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DATEi 08/19/99 


o 

o 


0 0 0 1 
00 0 2 
00 0 3 
00 0 4 


* 

9 


NAM CYFT DECK-ID N84 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 3.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


o 

00 0 7 
00 0 8 

P00 0 0 

0 BOO 


00 0 9 

P00G1 

5800 



P00G2 

0DA4 


0010 

P 0 0 0 3 

COOO 

u 

P00 0 4 

2 0 4E 


0011 

P0 00 5 

6800 



D 0 GO 6 

01 44 


0012 

POO 07 

CQ00 

u 

P000 8 

4E41 


00 13 

POO 09 

6800 



P0QQA 

01 51 


0014 

P000B 

G 0 0 0 

u 

P0 00C 

4D20 


0015 

P00 0D 

6800 



P00DE 

0153 


0016 

P0QGF 

COOO 

o 

P0010 

41 4D 


0017 

POOH 

6800 



P0012 

0155 


0018 

P 0 0 1 3 

5800 

u 

P 0 0 14 

0 1 2 B 


0019 

P0015 

1803 


00 2 0 

P0 016 

18EA 

o 

0021 
00 22 

POO 17 

18E9 


00 23 




0 0 2 4 



s~\ 

002 5 

P0018 

C A 0 0 

u 

P 0 0 19 

00D6 


0026 

P001 A 

9000 



P0018 

2020 


0027 

P001C 

0112 

u 

0 Q 2 8 

P Q 0 ID 

0D01 


00 29 

P001E 

18F9 


00 3 0 

POO IF 

C A 0 0 



P0G2Q 

00CF 


0031 

P0 021 

AO 0 0 


P0022 

FF00 


0032 

P0 023 

9000 



PO 02 A 

2000 

U 

0033 

P0 025 

0111 


003 4 

P0026 

13 66 


0035 

PQ 027 

C A 0 0 

o 


P0 028 

0 0C7 

0036 

P DO 29 

9000 



P002A 

4D20 



ENT 

CYFT 

9 



CYFT 

NOP 


GO 

RTJ 

READ 

zz 

L DA 

= A N 


STA 

PARA1+1 


LD A 

= AN A 


STA 

PARA2+1 


LDA 

= AM 


STA 

PARA3+1 


'LDA 

= A AM 


STA 

PARA4+1 


RTJ 

LOOK 


JMP* 

MOVE 


JMP* 

GO 


JMP* 

GO 

9 



9 



9 



MOVE 

LDA 

CRDIN , Q 


SUB 

= A 


SAN 

LL 

BMPQ 

I NO 

1 

JMP* 

MOVE 

LL 

LDA 

C RO I N , Q 


AND 

= N$ F F 0 0 


SUB 

= NS20 0 0 


SAN 

MM 


JMP* 

ODD 

MM 

LDA 

GROIN, Q 


SUB 

= AM 


SET UP PARAMETER TO CAL LOOK 
FOR NAM CARD 


Q RETURNS WITH NUMBER OF 

WORDS SEARCHED BEFORE A FIND 

RETURNS AT P WITH FIN'D, 

P+1 WITH NO FIND 
P + 2 WITH BLANK FIND 


CHECK FOR TWO BLANKS 


CHECK FOR BLANK/X 
YES, BLANK X 
CHECK FOR M/BLANK 


SUHMARY-ii 0N84Q 0 00 1 
N340Q 302 
N84000Q3 
N340 000% 


N3400006 
N840 0007 
N8400008 
N84Q0009 

N84Q0010 

N840 0011 

N8400 Ql 2 

N3400 013 

N8400014 

N340 0 01 5 

N84Q0016 

N8400017 

N8400016 

N84QD019 
N 3 40 0 02 0 
N8400321 
N8400022 
N8400 023 
N8400024 
N84G0Q25 

N34Q0026 

N 3 4 0 0 0 2 7 
N3400028 
N84Q0029 
N8 40 0 03 0 

N8400 031 

N8400Q32 

N840G 033 
N84Q0 034 
N34Q0G35 

N8400036 


o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 

CYFT 


LJ 

0037 

P0 02B 

0111 


SAN 


0038 

P00 2C 

1 8 F0 


JHP* 


0039 

POO 2D 

C A 0 0 

NN 

LD A 

o 


P0 02E 

00C1 



0040 

P002F 

68 0D 


ST A* 


0041 

P0030 

6834 


STAG- 


0042 

P0 031 

0D01 


ING! 

o 

0043 

P0032 

C A 0 0 


LDA 


P0 033 

ODBC 




00 44 

P0034 

6809 


STA* 


0045 

P 0 0 3 5 

6830 


ST A* 

o 

0046 

PO 036 

0D01 


INO 

0047 

PD 0 37 

C A 0 0 


LDA 



P0 038 

0 0 B7 




00 48 

P0 G 39 

6805 


ST A* 

o 

0049 

P 0 03 A 

632C 


S T A* 

0050 

P003B 

18 64 


JMP* 


0051 

P003C 

5858 

DCK 

ALF 



P0 03D 

5858 



o 


P003E 

5858 




P003F 

20 44 





P 0 0 40 

434B 





P0 041 

2F20 



o 


P 0 0 42 

49 2C 




P 0 0 43 

43 2 0 





P0044 

2020 





P0045 

2020 



o 


P0 0 46 

2020 




PQ 0h7 

2020 





P 0 048 

2020 





P0 049 

2020 



o 


P004A 

20 20 




P004B 

2020 





P004C 

2020 





P0 04D 

20 2 0 



o 


P0 04E 

2020 




PC04F 

20 20 




G 0 5 2 

P0 0 50 

2020 


ALF 



P 0 05 1 

2020 



o 


P0 05 2 

2020 




PO 0 53 

2020 





P0 0 54 

20 20 





P0055 

2020 



o 


P 0 0 56 

2020 




PQ057 

2020 





P0058 

2020 





P0 0 59 

20 20 



o 


P005A 

2020 




P005B 

2020 





P 0 05C 

2020 





P005D 

2020 



o 


P005E 

20 20 




P0 05F 

2020 





P 0 06 0 

2020 




o 


i o 


PAGE 2 DATEt 08/19/99 


NN 

BMPQ 

CRD IN, Q EVEN MOVE TREE WORDS 

DCK TO DC K/ AND HOL/ 

HOL CARDS 

1 

CRDIN ,Q 

DCK + i 
HOL + 1 
i 

GROIN, Q 

DCK + 2 
HOL*2 
INSERT 

20, XXXXXX DCK/ I,C 


20 , 



o 

N840Q037 

o 

N8400 Q38 
N840Q039 

o 

N8 40 0 0 40 
N34G0G41 
NS400042 
N84D0 043 

o 

N84Q0 044 
M840Q045 
N84Q0046 
N8400047 


o 

N8400Q48 

N840G049 

N840QQ5G 

o 

N8hOO 051 

o 


O 

o 

o 

o 

N8400052 

O 

O 

O 

o 

O 

o 
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r 

v.. 


O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 


P0 061 2020 
P0062 2020 
P0063 2020 

0053 P 0 0 6 4 5858 
P0065 5858 
P0066 5858 
P0G67 20 48 
POO 68 4F4C 
POO 69 2F20 
P0Q6A 2020 
P006B 2020 
PGQ6Q 2020 
P006D 2020 
P006E 2020 
P006F 2020 
PG070 2020 
P0G71 2020 
POG72 2020 
P 0 073 20 20 
P 0 0 7 4 2020 
PO 075 2020 
PO 076 2020 
P 0 0 7 7 2020 

0054 P0078 2020 
P0079 2020 
PG07A 2020 
P007B 2020 
P007C 2020 
PQ07D 2020 
PO 07 E 20 20 
P0 07F 2020 
P 0 0 80 2020 
P0Q81 2020 
PO 08 2 2020 
POO 83 20 20 
PO 08 4 2020 
P0085 2020 
P 0 38 6 20 20 
P0087 2020 
P 0 08 8 2020 
PO 0 89 2020 
P 0 0 8 A 2020 
PQG8B 2020 

005 5 P008C 40 FF 
00 56 PO 0 80 C962 

0057 P008E DOFF 

0058 P008F E960 

0059 PO 0 90 0 FES 
00 60 P 00 91 6802 
0051 P0092 68A9 
005 2 POO 93 QF F8 
0063 POO 94 DOFF 
0054 PO 0 95 F95A 


HOL 


ODD 


ALF 20 , XXXXXX HOL/ 


ALF 20, 


STG- I 

LDA * CR.0IN » I 2031 XXXX 

RAO- I 

LDQ* GROIN, I 2 D3i , 3233 

LLS 3 3132 33 XX 

SFA* HOL SAVE WORD ONE 

STA* DDK 

LLS 8 3233 XXXX 

RAO- I 

LDQ* GROIN, I 2333 3435 


N8400053 


N8400054 


N8400055 
N8400056 
N8400057 
N840 0058 
N840G059 
N 3 400060 
N840 0061 
N8400 062 
N3400 063 
N8400064 


o 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0065 P0 096 0FE3 
3 0 5 6 P0097 6 SCO 
0067 P0098 68A4 
0 D 5 8 P 0 099 QFF8 
0069 P009A DOFF 

007 0 P0 09B E9 64 
0071 P0 09C 0 FES 
0372 P009D 68C8 
00 73 P0 09E 68 9F 

0074 PCQ9F OBOO 

0075 P00A0 58 2£ 

0076 P00A1 5822 

0077 P00A2 5816 

0078 POO A3 5836 

0079 P0 0 A 4 1800 
P00A5 00D0 

00 8 0 

0081 P0DA6 OBOO 

0082 

0062 P00A7 54F4 
0082 P00A8 4800 
0082 P0OA9 00B0 P 
PQ0AA 0000 
0032 POOAB 18F9 

0082 PQGAC 0028 
PQ0AD 00EF P 

00 83 

0083 P0DAE 5h-F4 

0083 PODAF 0 A 0 0 

0084 P00BQ G8FA 

0085 PD0B1 0125 

008 6 P0OB2 Q F Cl 
0087 P00B3 0123 
00 88 

0 0 3 9 
0 0 90 

0091 P0OB4 5830 

0092 

0092 PO0B5 54F4 

0092 P00B6 0 A 0 0 

0093 P00B7 1 CEE 

009 4 

00 95 P 0 0 88 OBOO 
009 6 

0096 P00B9 54F4 
0096 POOBA 4C0 0 
0096 P00BB 00 C2 P 
POOBC 0000 
0096 POOBD 1 8 FA 

0096 POO BE 0028 
POGBF OOEF P 

0097 

0097 PGQCO 54F4 


LLS 8 


ST A* HOLU 
STA-* DCK*1 
LLS 8 
RAO- I 
LDQ* CRD IN 
LLS 8 


STA* H0L*2 


ST A* DCK+2 


INSERT NOP 0 


RTJ* WRDCK 
RTJ* WRHOL 
RTJ* WRITE 
RTJ* LSSP.K 
JMP ENDLK 


»I 


3334 35XX 
SAVE WORD TWO 

3435 XXXX 

3435 3620 

3536 20XX 
SAVE WORD THREE 


INSERT OCX/ CARD 
INSERT HOL/ CARD 
COPY NAM CARD 
LIST CURRENT DCK/ CARD 
GO LOOK FOR END CARD 


* 

READ NOP 0 

FREAD SF9,YY,CRDIN,40,A, READ A CARD 


EXIT 


YY LOA* REA 0*5 

SAP YZ BIT 15 SYA ERROR 

ALS 1 YES 

SAP YZ BIT 14 SAY FEWER WORDS 

* YES 

* ERROR + FEWER WORDS = END OF FILE 

RTJ* WREND WRITE FINAL END/ 


YZ JMP* {READ) 

» 

WRITE NOP 0 COPY CARD 

FWRITE $FA,WW,CRDIN,40,A,,,I, ,1 


EXIT 


O 


N84QQQ65 
N3400066 
N8400067 
N340 0068 
N8 4fi 0 069 
N 8 40 0 0 7 0 
N8400Q71 
N8400072 
N8400073 
N840 0074 
N840 0075 
N8 40 0 076 
N8400077 
NS400078 
N84Q0079 

N8400080 
N3400081 
**MSOS 4* 0N8400082 


N8400083 


N8400084 
N84Q 0 085 
N84Q0Q86 
N3400087 
N8400088 
N8400089 
N84D0090 
N8400091 
N8400 092 


N84Q0Q93 
N8400094 
N8400095 
**MSQS 4, ON8400096 


O 

O 

o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


N8 40 0 09 7 
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Q 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0097 P00C1 0 A 0 0 

0093 POOC2 1CF5 WW JMP* (WRITE) 

0099 * 

0100 P00C3 0B00 WRHQL NOP 0 INSERT HOL/ CARD 

0101 FWRITE $FA, VV, HOL, 40, A , ,,I, ,1 
0101 P00C4 54F4 

Old PD0C5 4C00 
0101 PO0C6 0 0 CD P 
P0DC7 0 0 0 D 
0101 P00C8 1 8 FA 

0101 P0QC9 0028 
P00CA 00 £4 P 

0102 EXIT 
0102 POOCB 54F4 

0102 POOCC 0 A 0 0 

0103 P00CO 1CF5 VV JMP* {WRHOLJ 

010 4 

0105 POOCE 0B00 WRDCK NOP 0 INSERT QCK/ CARD 

0106 FWRITE $FA,UU,DCK,4C,Av,,I-,d 
0106 PflOCF 54F4 

0106 POODO 4C00 
O10 6 P00D1 0 0D8 P 
P00D2 0000 
0106 P00D3 1 8 F A 

0106 P00D4 0028 

P 0 005 0 0 3C P 

0107 EXIT 
010 7 P00D6 5 4 F4 

0107 P00D7 Q A 0 0 

0108 P00D8 1CF5 UU JMP* CWRDQK3 

010 9 * 

0110 POOD9 OBOQ 'LSDCK NOP 0 LIST DCK/ CARD INSERTED 

0111 FWRITE $FB*TT,DGK,13,A,,,I,,i 
0111 P00DA 54F4 

0111 P00DB 4G00 
Dili POO DC O0E3 P 
P00DD 0000 

0111 POODE 18 FB 
Gill P0 OOF DQ0D 

POOEOOQ3CP 

0112 EXIT 
0112 P00E1 54F4 

0112 POOE2 0 A 0 0 

0113 P0QE3 1CF5 TT JMP* (LSDCK) 

0114 * 

0115 P00E4 QB0 0 WRENQ NOP 0 WRITE END/ CARD 

0116 FWRITE $FA»SS,'END,4D,At*«I»*i 

011 6 PQ0E5 54F4 
0116 P00E6 4C00 
0116 P00E7 0 0 EE P 

PQGE8 0000 
0116 P00E9 1 8 F A 
0116 POOEA 0028 

PDOEB 0191 P 


N340 0 098 
N840 0 099 
N8400100 
**HSOS 4. QN84001Q1 


N84DG102 


N 8 4 0 0 1 0 3 
N84001G4 
N8400105 
**MSOS 4. 0N84G0106 


N84001G7 


N8400108 
N840 0 109 
N8 40 0 11 D 
**MSOS 4* GN84D0111 


N84D3112 


N84GG113 
NS4O0114 
NS^OGll 5 
**M30S 4* ON8400116 


c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


N84GG 117 


0117 

0117 

P00EC 

5 4F4 


EXIT 



Oil 7 

PGOFD 

0 A 0 0 





0113 

PO OEE 

1CF5 

ss 

JMP* 

{ WREND5 


0119 
012 0 

POOEF 

0 0 50 

* 

BZS 

GROIN 180) 


0121 

P013F 

OBOO 

LOOK 

NOP 

0 


0122 

P 0 140 

0 8 42 


CL R 

Q 


0123 

PO 1 41 

CA AO 


LQA* 

GROIN , Q 


0124 

PO 1 42 

A 0 0 0 


AND 

= NS FFOO 



PO 1 43 

FFOO 




0125 

PO 1 44 

9000 


SUB 

=N$2QOO 

CHECK FIRST COLUMN 


PO 1 4 5 

20 0 0 




0126 

P 0 1 46 

0101 


SAZ 

TEST 


D 1 2 7 

PO 147 

18 2C 


JMP* 

CPYOUT 


0128 

P 0 1 48 

CAA6 

TEST 

LOA* 

GROIN, Q 


0129 

PO 149 

9000 

PARA! 

SUB 

= A N 

CHECK FOR N/ E 


PO 14 A 

20 4E 




0130 

P014B 

Dill 


SAN 

AA 


0131 

P014C 

1818 


JMP* 

XX 

NAN/ END TEST 

0132 

P014D 

CA A 1 

AA 

LOA* 

CROIN ,Q 

NAM /END TEST 

0133 

PQ14E 

9 0 00 


SUB 

= M $ 2 0 2 0 

CHECK FOR SP AC£*S PAC 


P014F 

2020 




0134 

PO 15 G 

0101 


SAZ 

SB 


0135 

P0151 

1822 


JMP* 

CPYOUT 


013 6 

PO 152 

0814 

BB 

TRQ 

A 


013 7 

PO 153 

0 9 DF 


INA 

-32 

CHECK FOR BLANK CARD 

0138 

PO 15 4 

0113 


SAN 

CC 

0139 

P0155 

D8E9 


RAO* 

LOOK 

BLANK FIND 

0140 

P0156 

D3F8 


RAO* 

LOOK 

0141 

PO 157 

1 CE7 


JMP* 

{LOOK 3 


0142 

PO 158 

ODQi 

CC 

INQ 

1 


0143 

PO 159 

CA 95 


LOA* 

CROIN, Q 


0144 

P015A 

9000 

PARA2 

SUB 

= AN A 

CHECK FOR NA/EN 


PO 15 B 

4F41 




0145 

P015C 

0101 


SAZ 

00 


0146 

P015D 

1 8 EA 


JMP* 

TEST 

TEST LOOP 

0147 

P015E 

QDQ1 

DD 

INQ 

1 


0148 

P015F 

C ABF 


LOA* 

CROIN, Q 


0149 

PO 16 0 

9000 

PARA3 

SUB 

= AM 

M /D TEST 


P 0 16 1 

4D20 




0150 

PO 162 

010F 


SAZ 

EE 


0151 

P 0 16 3 

1810 


JMP* 

CPYOUT 


015 2 

PG 164 

ODQI 

XX 

INQ 

1 


0153 

P0165 

CA 89 


LOA* 

CROIN, Q 


0154 

PG 166 

9 0 00 

PAR A4 

SUB 

= AAM 

A MX NO TEST 


P 0 1 67 

41 4D 





0155 

P0168 

0101 


SAZ 

FF 


015 6 

P D 169 

18 OA 


JM n * 

CPYOUT 


0157 

P 0 16 A 

0D01 

FF 

INQ 

1 


0158 

P016B 

C A 83 


LD A* 

CROIN, Q 


0159 

PGloC 

A 0 0 0 


AND 

= N$FF 0 0 



P016D 

FFOO 





N840 0118 
N84QG119 
N840Q12G 
N8400121 
N8400122 
N8400123 
N8400124 

N840 0125 

N8400126 
N840G127 
N84G0128 
N840 0129 

N8400130 
N8400131 
N840Q 132 
N84Q0133 

N840 0134 
N8400135 
N8400136 
N8400137 
N840G138 
N3400139 
N8400140 
N84Q0141 
N8400142 
N8400143 
N8400144 

N8400145 
N84Q0146 
N340 0147 
N84Q0148 
N8400149 

N840G150 
N34Q 0151 
N8400152 
N 3 4 0 0 1 5 3 
N840 0154 

N8*Q 0155 
N840 0156 
N8400157 
N84Q0158 
N3400159 




0 o 

N3400 160 

N8400161 
N340G 162 
N3400163 
N84Q0164 
N8400165 
N84Q 0 1 6 6 
N84D0167 
N84G 0168 

o 


o 

N84G0169 

o 

N340 3170 
N8400 171 

o 

N8400172 

N3400173 


N84Q 0174 
N8400175 

o 

N840 0176 
N840 3177 

o 

N3 40 0178 

N840Q179 
N8 40 018 0 
N8^Q0181 

o 

N8400 182 
N8400183 

o 

N8400184 

N840 018 5 

o 

N84D0186 

N84Q0187 


o 


o 


• o 


o 


o 


o 



o 

o 

o 

o 

o 

o 


o 


o 

N8400188 O 

o 

o 

o 

o 

N84G0189 Q 

O 

O 

o 

o 

o 

o 

o 

o 

■ o 
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EQUIVALENCES 


DEF .LINE 

NAME 

VALUE 

REFERENCED AT 

LINE NUMBER 

0 Q a 0 

I 

00FF 

1000255) 0055, 0057, 

0063, 0069 


o 


o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


CYFT 


PAGE ID 


OATEJ 0 8/ 19/9 9 


SYMBOLS 


DEF .LINE 

NAME 

ADDRESS 

REFERENC 

0 0 0 6 

CYFT 

00 0 0 

00 06 

0 0 0 9 

GO 

0 0 0 1 

0 020, 

0010 

11 

DO 0 3 

0019, 

0 025 

MOVE 

0018 

0 028 

BMPO 

0 0 1 D 

0 0 38 

0 030 

LL 

0 0 1 F 

0 027 

0035 

MM 

0027 

0 033 

0 039 

NN 

0 0 2 D 

0 037 

00 51 

QCK 

GQ3C 

0 0 40 , 

0 053 

HOL 

006 4 

0 0 41 , 

0 055 

ODD 

008C 

0034 

0 07 4 

INSERT 

0 09F 

0050 

0 081 

READ 

00 AS 

0 0 09, 

0 08 4 

YY 

00B0 

0 082 

00 93 

YZ 

0 0B7 

0 0 85, 

0 095 

WRITE 

0088 

Q Q 77 , 

0 098 

WW 

0 0€2 

0 0 96 

0 100 

WRHOL 

00C3 

0 0 76, 

0103 

vv 

0 ODD 

0101 

0 10 5 

WROCK 

00GE 

0 0 75, 

010 8 

UU 

0 0 D 8 

0 106 

0 110 

LSDCK 

0009 

0 0 78, 

0113 

IT 

0DE3 

0111 

0 115 

WREND 

002 4 

0 091, 

0 118 

SS 

0 DEE 

0116 

0119 

CRQIM 

OOEF 

0 0 2 5, 
0148, 

0121 

LOOK 

013F 

0018, 

0128 

TEST 

0148 

0126, 

0129 

PARA1 

0149 

0 011, 

0 132 

AA 

014D 

0 130 

013 6 

SB 

0152 

0134 

0 142 

CC 

0158 

0138 

0144 

PARA2 

0 1 5 A 

0 013, 

0147 

00 

015E 

0145 

0 149 

P A R A3 

0 16 0 

0 015, 

0152 

XX 

0164 

0131 

0154 

PAR A4 

016 6 

0017, 

015 7 

FF 

0 1 6 A 

0155 

0163 

EE 

0172 

0150 , 

0 164 

CPYOUT 

0173 

0127, 


0 027 
0 033 
0Q37 

0040 , 0 04 A, 0048, 0061, 0067, 0073, 0106, Dili 
0041, 0045, 0049, 0060, 0066, 0072, 0101 
0034 

« a rn 


u u a J \ 

5, 0158 


U A. K* J 2 

0146 


0056, 0058, 0064, 0070, 0082, 0096, 0123, 0128, 0132, 0143 
0165, 0177 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C) 

o 


o 
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! j 

o 

0167 

ENDLK 

017 5 

0 079, 0 180 , 0182 

O 


0 181 

TRY 1 

018 8 

0179 



0183 

TP Y 2 

0 1 8 B 

0 178 

o 

o 

018 7 

END 

0191 

0116 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





• o 

o 





o 

o 





° 

o 





o 

o 





o 

o 





■ o 

o 





o 

o 





o 

o 





o 


o 


CYFT 


PAGE 12 


DATE'i 0 8/19/99 


D 

O 

O 


** A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

AA 

0132 

SB 

0 136 

3MPQ 

0 028 

EE 

0153 

END 

Q 187 

ENDLK 

0167 

LOOK 

0121 

LSDCK 

0 110 

MM 

0 035 

PA 9 A 4 

0154 

READ 

0 081 

SS 

0118 

HRQCK 

010 5 

WREND 

0115 

WRHOL 

0100 


S Y M B 

0 L S 





CC 

0142 

CPYOUT 

0164 

CRDIN 

0119 

FF 

0157 

GO 

000 9 

HOL 

G 053 

MOVE 

0025 

NN 

0039 

ODD 

0055 

TEST 

0128 

TRY1 

0181 

TRY 2 

018 3 

WRITE 

0095 

WW 

0098 

XX 

0152 


C’YFT 

00 06 

DCK 

0 051 

DD 

0147 

I 

00 0 0 

INSERT 

0 07 4 

LL 

0030 

PARA1 

0129 

PARA2 

0144 

PARA3 

0149 

TT 

0113 

UU 

0108 

VV 

0103 

YY 

0084 

YZ 

0093 

zz 

0010 


o 


o 


o 


o 


o 

o 


o 

o 

o 

o 

o 

o 


o 

FT* 5 -! 

U 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 



L COSY 


PAGE 


1 


DATES 08/19/99 



o 


SUMMARY- 11 GN85Q00D1 
N8500002 
N85O0OG3 
N850 0 0 D Aj 


N850 0006 
N85Q 0 007 

N8500QB8 


N3500009 


N85Q0010 


N 3 500011 
N35B 0 012 
N8500013 

N35QG01A 

N850Q015 

N350GQ16 
N8 5 Q u 01 7 
N35QQQ18 
**MS0S A-.GN8 50G019 


N850QG20 

N8500021 

N8500022 

N85O0O23 

N35 0 0 Q2 A 
N85Q0025 
N8500026 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


L COSY 


PAGE 


2 


DATEi 08/19/99 



D 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0027 P00F2 C80Q 
P00F3 FF10 

0028 POOF^ 98D6 

0029 PGQF5 0 1 ul 

0030 P00F6 18 0 F 

0031 P0OF7 C 80 0 
P00F8 FF0C 

0032 POOF9 9 8 D 2 

0033 PQ0FA 0101 

0034 POO FB 1 80 A 

0035 

0035 P00FC 54F4 
003 5 PODFn 4C0 0 
0035 PQ0FE 0000 
POOFF 0000 

0035 PQ1C0 1 8 FB 
003 5 P0 101 0 0 0 C 

P 0 1 0 2 0 0 CD P 

003 6 

0036 P0 i 0 3 54F4 

0036 P010 4 0 A 0 0 

0037 P010 5 C8 00 CCK 
P 01 0 6 FEFC 

0 0 38 P0107 98 BF 

0039 P01G8 0101 

0040 PQ 1 09 18D1 

0041 P010A C 8 0 0 
P010B FEF8 

0042 P010C 98BB 

0043 PD10D 0101 

004 4 P010E 18 CC 
0045 P010F C 8 0 0 

P0110 FEF4 
004b POlil 98B7 

0047 P 0 112 0101 

0048 PG113 16C7 

0049 PQ 11 4 0 CO 5 

005 0 P0115 C A 0 0 HOVE 

P 0 1 1 6 FEE9 

0051 P0117 6AA9 

0052 P0 118 0DFE 
005 3 P0 119 0171 
005 4 P 0 11 A 18 F A 
00 5 5 

0055 P011B 54F4 
0055 P011C 4C0 0 
0055 P011D 0000 
P011E 00 00 
0055 POUF 1 8FB 

0055 P 0 120 00 06 
PB121 00C1 P 

0056 P 0 122 5800 
PO 123 0 0 C7 


LDA I N8UF + 4 

SUB* EOL+1 
SAZ 1 
JMP* CCK 
LOA INBUF+5 

SUB* EOL + 2 
SAZ 1 
JMP* CCK 

F WRITE $FB,0, END MSG, 12, A, 0,0, 1, 0,1 


EXIT 


LDA INBUF+3 

SUB* CHATCH 
SAZ 1 

JMP* CLEAR-2 
LDA INBUF+4 

SUB* CMATCH+i 
SAZ 1 

J HP* CLEAR-2 
LOA INBUF+5 

SUB* CHATCH+2 
SAZ 1 

JMP* CLEAR-2 
END 5 

LDA TNBUF,Q 

5TA* OUT 8U F , Q 
INQ -1 
SQM i 
JMP* HOVE 

F WRITE $FB,Q»OUTBUF,6,A,0,Q,I,Q»i 


RTJ PUNIT SEE IF WE PUNCH DCK CARDS 


N8500027 


N8500028 

N8500029 

N850003Q 

N8500031 

N85Q0032 
N8 50 0 0 3 3 
N850 0 034 
**MSOS 4* 0N85 0 0 035 


N8500036 


N850 0 037 

N8500038 

N85Q0Q39 

N3500G40 

N8500041 

N8500 042 
N85 00043 
N8500044 
N 8 500045 

N85Q0046 
N8500047 
N85Q 0 048 
N8500049 
N8500050 

N8508Q51 
N850G052 
N8500053 
N8500054 
**MSOS 4-. 0N850 0 05 5 


n 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


N8500056 


LGOSY 


PAGE 


3 


DATES 08/19/99 


0057 

p a 1 24 

C8F9 



LDA* *-6 

0053 

PQ 125 

0101 



SAZ 1 

00 59 

PO 126 

1 8 FD 



JMP* *-2 

DO 60 

P0127 

1 3 B3 



JMP* GLEAR-2 

0051 

P0128 

20 0-D 


TYPOUT 

ALF 10, SR DCK/ I ,H ,C 


PO 129 

2 0 44 





P012A 

43 4 B 





P012B 

2 F 2 0 





P012C 

49 2 0 





P 0 1 2D 

2C48 





P012E 

2 0 2C 





P012F 

4320 





PO 130 

2020 





P0131 

2020 




0062 

P 0 132 

OB 0 0 


TYPEIT 

NOP 

00 6 3 





FWRITE $FC,0,TYPOUT,1Q,A,0,G, 

0063 

PO 133 

54F4 




0063 

P 0 13 h 

40 0 0 




005 3 

PO 13 5 

0 0 0 0 





P0136 

0 00 0 




0 063 

P 0 137 

13 FC 




0063 

P 013 8 

0 0 0 A 





PO 1 39 

0128 

P 



006 4 





FREAD $FD,Q ,TYBUFF,8,A, 0,0, 1,0,1 

006 4 

P013A 

54F4 




0064 

PO 13 B 

48 00 




0064 

P013C 

0 0 0 0 





P013D 

0 0 0 0 




0064 

P013E 

1 8 FD 




006 4 

PO 13 F 

0 0 08 





PO 140 

0164 

P 



006 5 

P 01 41 

C8FB 



LDA* *-4 PICKUP THREAD WORD 

0066 

P 0 142 

0101 



SAZ 1 

0067 

PO 1 43 

1 8 FD 



JMP* *-2 LOOP ON BUSY 

0068 

PO 1 44 

C820 



LDA* TYBUFF 

0069 

PO 145 

0 822 



TRA Q 

007 0 

P 0 146 

A 8 2F 



AND* NUMCK $1010 

0071 

PO 147 

882E 



EOR* NUMCK 

00 7 2 

PO 148 

0107 



SAZ NUM010 

0073 

PO 149 

0 A 0 0 



ENA 0 

0074 

P014A 

OFEQ 



LLS 8 

007 5 

P 0 148 

09 D 0 



INA -$2F 

0076 

PO 14C 

0101 



SAZ 1 

0077 

P014D 

18 E5 



JMP* TYPE 11+1 ERROR OUTPUT AGAIN 

007 8 

P014E 

68 IF 



ST A*- DGKFLG CLR FLAG 

00 79 

P014F 

1C £2 


TYP El 0 

JMP* (TYPEIT) 


N35GG 057 
N8500058 
N8500059 
N85GGQ6G 
N85Q0051 


N850Q062 
**MSOS 4.QN350QG63 


**MSOS <+• QN85Q 0 064 


N850G065 
N350Q066 
N8500067 
M 8500068 
N850 0 069 
N850Q070 
N85Q0071 
N850QQ72 
N8500G73 
N850 0 074 
N8500075 
N3500076 
N85QQQ77 
N85QQ078 
N8500079 




L COSY 



PAGE 

4 DATE! 08/19/99 

00 3 1 
0082 



* 

If- 

THIS 

PART OF ' 

THE PROGRAM LOOKS FOR A SLASH 

0033 



■* 




008 4 



* 




008 5 

PQ 150 

4810 

NUM01 Q 

STQ* 

BCKFLG 


008 6 

PO 151 

48 ID 


STQ* 

BUILD 

STORE I PARAMETERS 

0087 

P0152 

E813 


LQQ* 

TYBUFF*1 


0088 

PO 153 

0FE8 


LLS 

8 


00 89 

P 0 154 

4810 


ST O'* 1 

HOLDI 

CHARI OF H PARAMETER 

0090 

PO 15 5 

0903 


INA 

-$2C 

CHECK FOR COMMA 

009 1 

P 0 15 6 

0101 


SAZ 

1 

COMMA 

0092 

PO 157 

1 BOB 


JMP* 

TYPFITh-1 

ERROR 

0 0 93 

PO 1 58 

E 8 1 9 


LDQ* 

HOLOl 


0094 

PO 159 

0 F A 8 


QLS 

8 


00 95 

PO 1 5 A 

C8GC 


LDA* 

TY8UFF4-2 


0 G 9 6 

PO 15B 

QFE8 


LLS 

8 


0097 

P015C 

0814 


TRQ 

A 

Q= H PARAMETER 

0098 

PO 150 

A 8 1 8 


AND* 

NUMCK 


0099 

P015E 

88 17 


FOR* 

NUMCK 


0100 

P015F 

0103 


SAZ 

3 


0101 

PO 160 

0 AFF 


ENA 

-0 


0102 

D 0161 

6 8 OF 


STA* 

8UIL0+1 


0103 

PO 162 

1822 


JMP* 

NUMQ 30 

THIS SHOULD BE RIGHT 

0104 

PG163 

1813 


JMP* 

NUMQ20 


0105 

PO 164 

0 9 09 


BZS 

TYBUFF l 9 ) 

010 6 

P016D 

00 00 

OCKFLG 

NUH 

0 


010 7 

PO 165 

0 0 03 


BZS 

BUILD (3 ) 


010 8 

PO 171 

OOOG 

HOLDI 

NUM 0 


0109 

P 0 172 

4930 

CONTRL 

ALF 

1,1 = 


0110 

PO 173 

4830 


ALF 

1 » H= 


0111 

PO 1 74 

4330 


ALF 

1,C = 


0112 

P0175 

1010 

NUMCK 

NUM 

$1010 


0113 







0114 



* 




0115 



* 




0116 







0117 

PO 17 6 

48F8 

NUM 020 

STQ* 

BUILO+1 

THIS IS FOR XX, XX, XX 

0118 

PO 17 7 

E8EF 


LDQ* 

TYBUFF+3 

PICKUP C= PARAMETERS 

0119 

PO 178 

0814 


TRQ 

A 


0120 

P0179 

A 8FB 


AND* 

NUMCK 


0121 

PD17A 

B8FA 


FOR* 

NUMCK 


0122 

P017B 

0106 


SAZ 

NUM 0 2 5 

IS IT A NUMBER 

0123 

P017C 

0 A 0 0 


ENA 

0 


0124 

PO 170 

0FE8 


LLS 

3 


012 5 

P017E 

0 9D0 


INA 

-S2F 


0126 

P017F 

0101 


SAZ 

1 CHECK 

FOR SLASH IF. NOT ERROR 

012 7 

PQ180 

1 8B2 


JMP* 

TYPEIT*i 


0128 

PO 181 

OCFF 


ENQ 

-0 

NO, FLAG WITH NFG ZERO, 

0129 

P9IB2 

43FD 

NUH025 

STQ* 

BUILD *2 

YES IA FOR XX,/, XX 

0130 

P0183 

1810 


JMP* 

NUM050 

BUILD CARD 

0131 

PO 184 

E8F1 

NUMC30 

LOO* 

TY8UFF*2 


0132 

P0185 

0 AGO 


ENA 

0 


0133 

PO 18 6 

0FE8 


LLS 

8 



N85Q0Q81 

N8500082 

N8500083 

N350Q034 

N850G085 

N85Q0086 

N85Q0Q87 

N85Q0Q88 

N850OOB9 

N8500090 

N8500G91 

NS5G0G92 

N8500093 

N85G 0 094 

N85QQ095 

N8500096 

N3500097 

N850 0 098 

N35QQ 099 

N85GG10G 

N85DQ1D1 

N850G1G2 

N85GQ1Q3 

N35Q01Q4 

N 35 0 0 10 5 

N35QQ106 

N 8 500107 

N850 0 108 

NS500109 

N 85 0 0 11 0 

N8500111 

N8500112 

N8500113 

N3500114 

N85Q011 5 

N850011 6 

M 8500117 

N8500118 

N8500119 

N8500120 

N85 0 Q 12 1 

N8500122 

N85Q0123 

N85GG124 

N3580125 

N850G126 

N35Q0127 

N 85 9 0 12 8 

N8500129 

N85G013D 

N8500131 

N 35 0 0 13 2 

N85D0133 


L COS Y 


PAGE 


3 


DATE? 08/19/99 


C13 4 

PO 187 

0 9D3 

INA 

-$2C 



N8500134 

013 5 

P 0 1 8 8 

0101 

SAZ 

1 



N8500135 

013 6 

PO 1 89 

18A9 

JMP* 

TVPEIIH 



N8500136 

013 7 

P 0 18 A 

C80B 

LOA* 

TY8UFF+2 

BUILD 

C PARAMETER 

N85QG137 

0138 

P0188 

E8DB 

LOQ* 

TYBUF F* 3 



N8500138 

0139 

PO 18C 

0 FE8 

LLS 

8 



N85G0139 

0140 

PO 1 80 

0 8 22 

TRA 

Q 



N85Q0140 

0141 

P018E 

A8E6 

AND* 

NUMCK 

IS IT 

NUMERIC 

N3500141 

0142 

P018F 

B8F5 

EOR* 

NUMCK 



N85Q0 142 

0143 

PO 190 

0101 

SAZ 

1 



N8500143 

0144 

PO 191 

1 8 A 1 

JMP* 

T YPFIf «■ 1 

ERROR 


N850G144 

0145 

P 0 192 

48 DO 

STQ* 

BUILO+2 

YES I 

TS A NUMBER 

N8500145 



L'COSY 


PAGE 


6 


DATE? 08/19/99 


0 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0147 * 

0148 * THIS PART OF THE PROGRAM PICKS UP THE LU 

0149 * AND ORS THEM WITH THE RIGHT PARAMETER AND STICKS IT IN 

0150 * THE CARO FEILD 

0151 Pfl 193 OC00 NUHQ50 END 0 

0152 P0194 40 FF ST Q- I ZERO I 

0153 P0195 C903 LDA* BUILD, I 

0154 P 0 19 6 0 133 SAM NUM055 

0155 PQ197 E832 LDQ* COMMA 

0156 PQ 198 01 42 SQZ 2 

0157 P0 199 1831 JflP* NUM070 

0153 P019A 1805 NUM055 JMP* NUH060 

0159 P019B E9D6 LDQ* CONTRL, I 

0160 P019C 68 0C STA* FEILD+i 

0161 P019D 48 0 A STQ* FEILD 

0162 P019E 482B STQ* COMMA 

0163 P019F DOFF NUN050 RAO- I 

0164 P01A0 18F4 JMP* NUM050*2 

0165 P01A1 2020 CARD ALF 3, 

P01A2 2020 

P01A3 2020 

0166 P01A4 2044 DCKK ALF 3, DCK/ 

P01A5 434B 

P01A6 2 F 2 0 

0167 PQ1A7 2020 FEILD ALF 10, 

P01A8 2020 

P01A9 2020 
P01AA 2020 
PG1A8 2020 
P01AC 2020 
P01AD 2020 
PfllAE 2020 
P01AF 2020 
P01B0 2020 

0168 P01B1 2020 ALF 5, 

P01B2 2020 

P01B3 2020 
PG1B4 2020 
P01B5 2020 

0169 P01B6 2020 ALF 5, 

P01B7 2020 

P01B8 2020 
P01B9 2020 
P01BA 2020 

0170 P01BB 2020 ALF 5, 

P01BC 2020 

P01BD 2020 
P01BE 2020 
P01BF 2020 

0171 P01C0 2020 ALF 5, 

P01C1 2020 

PG1C2 2020 
P01C3 2020 
P01C4 2020 


O 


N8500147 
N35Q0148 
N8 5 0 0 1 49 
N850 0150 
N3500151 
N3500152 
N8500153 
N3500154 
N8500155 
N850Q156 
N8500157 
N3500158 
N85Q0159 
N850D160 
N8500151 
N8500162 
N 8500163 
N8500164 
N8500165 


N8500166 


N850G167 


N85S0168 


N8500169 


N8500170 


O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 


N8500171 


o 


L COS Y 


PAGE 


7 


DATE: 08/19/99 


o 
° 
o 
o 
o 
I o 
o 
° 
o 
o 
o 
o 
o 
o 
o 

o 


0172 P01C5 2020 
P01C6 2020 
P01C7 2020 
P01C8 2020 

0173 P01C9 0000 

0174 P01CA 0A2C 

0175 P01CB E9A6 

0176 P01CC 0FE8 

0177 P01CO 68 DB 

0178 P01CE 0844 

0179 P01CF 0FE8 

0180 P01D0 E99D 
0161 P01D1 QFE8 

0182 P01D2 6807 

0183 

0184 

0185 P01D3 C0FF 

0186 P0 ID 4 0 9FD 

0187 P01D5 0134 

0188 P01D6 0020 

0189 P01B7 4803 

0190 PQ1D8 1C00 
P01D9 FF58 

0191 P 0 ID A 0D2C 

0192 P01DB 4800 
P01DC FFCE 

0193 P01DD DOFF 
C 19 4 P0 IDE C98F 

0195 P0 IDF 0900 

0196 P01E0 0105 

0197 P01E1 E900 
P01E2 FF8F 

0198 P01E3 48 C8 

0199 P01E4 68C8 

0200 PQ1E5 18F2 

0201 PQ1E6 0DF3 
0 20 2 P0 IE 7 48 0 0 

P01E8 FFC2 

0203 P01E9 1 8EE 

0204 P01EA QBQG 

0205 P01EB C381 

0206 P01EC Dili 

0207 P01ED 1CFC 

0208 P01EE CC02 

0209 P01EF CAG0 
PQ1F0 FEDO 

0210 P 0 1 F 1 6A00 
P01F2 FFAE 

0211 P01F3 0142 

0212 P01F4 GDFE 

0213 P01F5 18F9 

0214 

0214 P01F6 54F4 


ALF 4* 


COMMA NUM 0 

NUM070 ENA $2C , 

LDQ* CONTRL-, I Z= 

LLS 8 , Z 

STA* FEILD+2 

CL R A ZERO A 

LLS 8 = 

LDQ* BUILD, I XX 

LLS 8 * 

ST A* FEILD*3 =X 


* Q NOWS HAS LAST CHAR 

* 

IDA- I 
INA -2 
SAM NUM 0 8 0 
INQ $20 
STQ* FEILD*4 
NUM 07 5 JMP ITYPEIT ) 

NUM 08 0 INQ $2C 

STQ FEILD+4 

RAO- I 

LDA* 3UIL0, 1 
INA 0 

SAZ NUM090 SLASH IN C PARA 
LDQ CONTRL , I FEILD SHOULD EQUAL 

STQ* FEILD*5 

ST A* FEILD + 6 I=XX, H=XX,C=XX 

JMP* NUM 075 

NUM090 INQ -$C SET COMMA BACK TO BLANK 
STQ FEILDa-4 

JMP* NUM075 
PUNIT NOP 

LQA* OCKFLG 
SAN 1 

. JMP* I PUNIT1 
. ENQ 2 

PUT 02 0 LDA OUTBUF,Q MOVE THE NAME TO PUNCH BUFFER 

STA CARD, Q 

SQZ 2 
INQ -1 
JMP* PUT020 

FWRITE $F A, 0, CARD, 40, A, 0,0, I, 0,1 


N 850 Q 17 2 


N3500173 
N8500 174 
N 8 500175 
N850 0 176 
N8500177 
N350 0178 
N8500179 
N8500130 
N8 5 3 0 18 1 
N8500182 
N85G0183 
N850 0 184 
N8500185 
N8500186 
N850D187 
N8500188 
N8500189 
N8500190 

N850O191 

N85Q0192 

N85Q0193 
N85Q0194 
N8500195 
N85G 0196 
N85D0197 

N8500198 
N35Q 0199 
N850 0 20 0 
N8500201 
N8500202 

N85 0 0 203 
N8500204 
N350 0 20 5 
N8500206 
N8500207 
N350 0 208 
N8500209 

N8500210 

N850 0 211 
N35Q0212 
N8500213 
**M SO S 4. 0N85Q0214 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



L COSY 


PAGE 
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DATE'! 06/19/99 


LDA* *-4 

SAZ 1 SKIP IF FOSTIVE ZERO 

J MP'* *-2 
JMP* (PUNIT3 
END LGOSY 

CON = 0000 ( 03 DAT = 0000 ( 0) 

O 

O 

o 

o 

o 

o 

Q 

O 

O 

O 

O 



N35Q0215 
N85QQ 216 
N85D0217 
N8500218 
N8 50 0 219 


o 

u 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LCOSY 


PAGE 
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DATE: 08/19/99 


EQUIVALENCES 


QEF.LIN’E 

NAME 

VALUE 

REFERENCED AT 

LINE NUMBER 

0 0 0 0 

I 

00FF 

(0002559 0 152, 0163, 

0185, 0193 


LCOSY 


DATE: 08/19/99 


PAGE 10 


V ME 0 

L S 










DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 





0 00 6 

LCOSY 

0 OB 9 

0 0 06 








0 0 07 

INBUF 

00 0 0 

0015, 

0 019, 

0023, 

0027, 

0031, 

0037, 

0041, 

D 0 4 5 , 0050 

0 007 

OUTBUF 

00C1 

00 51, 

0 055, 

0209 





0 008 

CMATCH 

G0C7 

0 0 38 $ 

0 0 42, 

0 0 46 






0 0 09 

EOL 

OOCA 

0024, 

0028, 

0032 






0 010 

ENDMSG 

0 OCD 

0035 








0014 

CLEAR 

OODD 

0018, 

0040, 

0044, 

0 048, 

0060 




0 037 

CCK 

010 5 

0 026, 

0 030, 

0 03 4 






0 050 

MOVE 

0115 

0 054 








0 061 

TYPOUT 

0128 

0 0 63 








0 0 62 

TYPEIT 

0132 

0012, 

0 0 7 7, 

0 0 79, 

00 92, 

0127, 

0136, 

0144, 

0190 

0 079 

FYPE10 

014F 







0 08 5 

NUM010 

0150 

0 072 








010 5 

TYBUFF 

. 0164 

0 0 6*+ , 

0068 , 

0 087, 

0 Q 95, 

0118, 

0131, 

0137, 

0138 

S 10 6 

OCKFLG 

016D 

00 78, 

0 085, 

0205 




010 7 

BUILD 

0 16E 

0085 , 

0102, 

0117, 

0129, 

0145, 

0153 , 

0180 , 

0194 

0108 

HOLD1 

0171 

0 0 89, 

0093 






0109 

CON TRL 

0172 

0159, 

0175, 

0197 






0112 

NUMCK 

0175 

0070, 

0 071, 

0 098, 

0099, 

0120 , 

0121, 

0141, 

0142 

0117 

NUM020 

017 6 

0104 






0129 

N UM 0 2 5 

013 2 

0122 








0131 

NUM030 

0184 

0103 








0151 

NUM050 

0193 

0130, 

0164 







0158 

NUM055 

019A 

0154 








0163 

NUM06Q 

019F 

0158 








0165 

CARD 

0 1 A 1 

0210 , 

0214 







0166 

OCKK 

0 1 A 4 









0 16 7 

FEILD 

01 A 7 

0160 , 

0161$ 

0177, 

0 182, 

0189, 

0192, 

0198, 

0199, 0202 

0173 

COMMA 

01C9 

0155, 

0162 




0174 

NUM070 

01CA 

0157 








0 190 

NUM075 

0 1 D 8 

0200, 

0203 







0191 

NU MO 80 

0 ID A 

0187 








0 201 

NUM090 

01E 6 

. 0196 








0 204 

PUN IT 

0 IE A 

0056 , 

0207, 

0218 






0209 

PUTG2Q 

0 IE F 

0213 











LCOSY 


PAGE 

11 


DATE? 08/19/99 

0 

*** A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 




BUILD 

010 7 

CARD 

0165 

CCK 

0 037 

CLEAR 

0014 

CMATCH 

0008 

D 

E NO MSG 

0 010 

EOL 

0 0 09 

FEILD 

0167 

HOLCi 

0103 

I 

0 00 0 


NUM020 

0117 

NUM025 

0129 

NUM030 

0131 

NUM050 

0151 

NUM055 

015 8 


NUM090 

0 201 

NUMCK 

0112 

OUTBUF 

0 0 07 

PUNTT 

0204 

PUT 0 2 0 

020 9 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


COMMA 0173 CONTRL 
INBUF 0007 . LCOSY 
NUMQ60 0163 NUMQ70 
TYBUFF 0105 TYPE10 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



LISTR 


PAGE 


i 


D ATE >2 08/19/99 


000 1 
00 0 2 
00 03 
00 0 4 


* 

* 


NAM LISTR DECK-ID N86 MSOS 
MASS STORAGE OPERATING SYSTEM VERSIO 
SMALL SYSTEMS DIVISION, LA JOLLA, CA 
COPYRIGHT CONTROL DATA CORPORATION 1 


5.0 
N 5.0 
LIFGRNIA 
976 


SUMMARY- 11 0N860 0 00 1 
N8600Q02 
N8600003 
N860 0004 


00 0 6 



000 7 



000 8 



0009 



0010 



0011 



0012 



0013 



0014 



0 G 1 5 

PQOOfl 

0800 

0016 



0016 

P0 0 01 

54F4 

0016 

P0Q02 

4C00 

0016 

P0 003 

0 0 09 


P0 00 4 

0 0 0 0 

0016 

P0005 

13FB 

0016 

P00-06 

00 01 


P0007 

0182 

0017 

P00G8 

14EA 

0018 

P0 009 

0B00 

0019 

P00DA 

58 00 


P000B 

0 0C3 

C 0 2 0 

P000C 

0102 

0021 

P000D 

Q 1 25 

0022 

PO 00E 

0132 

0023 

POOOF 

1800 


P0010 

00 9A 

00 2 4 

P0Q11 

1800 


P 0 0 1 2 

0 0 AC 

0025 



0026 



0027 



002 8 



0029 



0Q3 0 



0031 



0032 

P0 013 

0 BOO 

0033 

P0014 

COOO 


P0015 

2020 

00 34 

P0016 

6800 


P0017 

01 57 

0035 

PO 018 

68 0 0 


PO 0 19 

0156 

0036 

P0 01 A 

6800 


P001B 

01 55 

0037 

P001C 

6800 


P0 0 ID 

0154 


» 

* THIS PROGRAM WILL LIST RELOCATABLE 

* NAME BLOCKS AND CONTROL STATEMENTS 

* FROM THE STANDARD INPUT DEVICE ON 

* THE STANDARD LIST DEVICE. 

* 


LISTR 


ENT LISTR 

NOP 


F WRITE $F8,LISTRi,T0P,l, A, 0,0 , 


U , 


1 


P 


JMP- I$EA) 
LISTR 1 NOP 



RTJ 

INP 


SAZ 

ERR 


SAP 

PLUS 


SAM IN0R 

-1 r * BLOCK 

ERR 

JMP ERRA 


INDR 

JMP MINUS 


& 

* 

% 

THIS IS 

THE PLUS ROUTINE 

* 

IT IS USED WHEN A NAME 

* 

X 

BLOCK IS 

FOUND ON THE RELO. 

* 

PLUS 

NOP 



L D A 

= N$2 0 2 0 


STA 

BUFR 


STA 

BUFR+1 


STA 

BUFR*2 


STA 

BUFRa-3 


INPUT 

0 ERROR MESSAGE 
+1 NAME BLOCK 


INPUT 

BLANK THREE WORDS 


N8600006 
N8600007 
N8600008 
N860000 9 
N86QO01Q 
N8600011 
N8600012 
N8600013 
N8600014 
N8600Q15 
**MSOS 4.0N8600016 


N8600017 
N8600 01 8 
N8600019 

N360 0 020 
N860 0021 
N8600022 
N3600G23 

N 8600024 

N8600 025 
N860 Q 026 
N86Q0Q2F 
N8600 028 
N8600029 
N8600030 
N86G0031 
N3600032 
N8600033 

N8600034 

N8600035 

N8600036 

N86D0037 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


LISTR 
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DATE! 08/19/99 



0038 

P001E 

68 00 


P001F 

01 56 


0039 

P0020 

680 0 

o 


P0 021 

01 55 

004D 

P0022 

6800 


P0023 

01 54 


0041 

P002 4 

6800 

o 


P0025 

015.3 

0042 

PC026 

680 0 



PQ027 

0152 


0 0 43 

P00 28 

6800 

o 


P0 029 

0151 

0044 

P002A 

6800 



P0G2B 

01 50 


00 45 

P002C 

58 0 0 

o 


P0 02D 

0 0 D 4 

0046 

P0Q2E 

58 00 



PQ02F 

gone 


004 7 

P 0 03 0 

£8 IB 


0048 

P0031 

5841 

u 

0049 

POO 32 

E81 A 


0 05 0 

P 00 33 

583F 


0051 

P 0 0 3 4 

580 0 

o 


P0 035 

0 099 

00 52 

P0 036 

0101 


0053 

P 0 0 3 7 

1 878 


0 0 5 4 

P 0 038 

C8 00 

o 


PO 039 

0135 

0055 

P003A 

90 00 



P0 03 B 

C 0 5 0 


00 56 

P003C 

0105 

o 

00 5 7 

P003D 

F30E 

0058 

PGQ3E 

5834 


0059 

PO 03 F 

E 8 0D 


00 60 

P 00 40 

58 32 

o 

0061 

P0 0 41 

18F2 

0062 

P0042 

E8 09 


0 0 63 

P0 043 

582F 


0064 

P0Q 44 

E 8 08 

o 

006 5 

P0 0 45 

58 2D 

0066 

P 3 0 4 6 

E8 04 


0067 

P 0 0 47 

58 2B 


00 6 8 

P 0 0 48 

5 805 

o 

0069 

POO 49 

18 BF 

0070 

POQhA 

0132 


0071 

PO 04B 

01 5B 


0072 

P004C 

0164 

o 

0073 
007 4 
0 07 5 
00 7 6 



o 

0077 

0078 




CHKTR 


YES 


IRA 


P ALCNT 
P ARC NT 
P ATRCNT 
* 

«• 

* 


STA 

STA 

STA 

STA 

STA 

STA 

STA 

RT J 

RTJ 

10 Q* 

RTJ* 

LDQ* 

RTJ* 

RTJ 

S AZ 

JMP* ERRA1 
LDA 

SUB 

SAZ 

LDQ* 

RTJ* 

1DQ* 

RTJ* 

JMP* 

LDQ* 

RTJ* 

: LDQ* 

RTJ* 

ID Q* 

RTJ* 

RTJ* 

JMP* LISTR1 
ADC 
ADC 
AOC 


BUFR*Z 

BUFR*8 

BUFR*9 

BUFR*10 

BUFR+11 

BUFRT12 

BUFR*i3 

BLKOUT 

MOVE 

ARCNT 
I NCR 
A IRC NT 
INC R 
TNP 

YES 

BUFR 

=N$C95 0 

TRA 
ARCNT 
I NCR 
ATRCNT 
I NCR 
CHKTR 
ARCNT 
I NCR 
ATRCNT 
I NCR 
ALCNT 
I NCR 
DUMP 

LCNT* 1 
Rcrmi 
TRENT *1 


NOT NAME OR * BLOCK 


TRA BLOCK MASK 
SKIP IF TRA BLOCK 


THIS IS THE DUMP SUBROUTINE 
IT DUMPS A RECORD TO THE STD . LIST OUT 
IT ALSO CLEARS THE RECORD COUNT 
REGISTER and has a sel. stop loc. 


N8600038 

N86QGQ39 

N8600040 

N86Q0041 

N86QGQ42 

N3600043 

N8600Q44 

N86QQQ45 

N860 0 046 

N8600 047 
N8600048 
N8600049 
N860 0 05 0 
N8600051 

N8600Q52 
N8600 053 
N86Q0054 

N8600055 

N8600Q56 

M8600Q57 

N8 60 0 058 

N86D0059 

N86G0060 

N8630061 

N8600062 

N86QQQ83 

N8600064 

N8603G65 

N8600 066 

N8 60 0 06 7 

N8600068 

No 60 0 069 

N86QO07D 

N86 00071 

N860 0 07 2 

N86Q0073 

N8600074 

N8680075 

N8600076 

N8600D77 

N86Q0078 


□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


LISTR 
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0079 
008 0 
0081 
0082 
0082 
008 2 
0082 

0 Q 8 2 
0082 


P0 04D 0800 

P004E 54F4 
P0Q4F 4C0 0 
P0 050 0 0 57 
PO 051 0000 
PO 052 0 8 FB 
P 0 05 3 0 0 29 
P0054 0130 


DUMP 


F WRITE $F8, 88, RECORD, 41,8,,, I, , 1 


N 8600079 
N860008G 
N8600081 
**MSUS 4, ON86Q0082 


0083 

0083 

P0 05 5 

54F4 


EXIT 

00 83 

P 0 056 

0 A 0 0 



008 4 

P0 0 57 

cooo 

bb 

LDA 


P 0 0 58 

2 B 2 0 


008 5 

P 00 59 

6800 


STA 


P0 05 A 

0 0 EB 




=N$2B2 0 
REC2 


STORE PLUS SIGN 


0086 
00 8 6 
0 08 6 
0086 

00 8 5 
008 6 


PO 058 
P0Q5C 
P0 05D 
PO G5E 
P005F 
P 0 0 6 0 
P 0 06 1 


54F4 
4C0 0 
0 0 64 
00 00 
0 8 FB 
0 029 
0145 


FWRITE $F8,ZZ,REC2,41,B, ,»!,,! STANDARD LIST OUT 


N8600033 


N3600084 
N360 0085 
**MSOS 4-ON86GG086 


o 

0087 

0087 

P0 0 62 

54F4 


EXIT 


0087 

P0 063 

0 A 0 0 





0088 

PG064 

COOO 

ZZ 

LDA 

= NS 202 0 



P0 065 

2020 



o 

0089 

P0 0 66 

6800 


STA 

REC2 


PC 067 

0 ODE 




009 0 

P 0 06 8 

COOO 


LDA 

= N$3 0 3 0 



P 0 0 69 

3030 



n 

0 0 91 

PD06A 

68 0 0 


STA 

RGNT 



P0 068 

0 0 EF 




0 0 9 2 

POQbC 

6800 


STA 

RGNT+i 



P006D 

0 0 EE 


o 

0093 

P006E 

GO 00 


SLS 

0 

00 9 4 
009 5 

P006F 

1CDQ 


JMP* 

(DUMP) 



0096 







REMOVE PLUS SIGN 
ZERO CODE 


0097 

0098 
0 09 9 
010 0 
0101 
0102 

0103 

0104 
010 5 
0106 


P 0 070 0001 
PO 07 1 0001 
PO072 0800 
PO 073 0 A 01 


INCR 


THIS IS THE ASCII INCREMENT SUBROUTINE 
IT COLLECTS AN ADDRESS PARAMETER 
PASSED IN Q AND UPDATES 
the two word register by 1 ASCII 


PASS (1) 
SAVA (1) 


N8600Q87 


N8600088 

N860 0089 

N8 60 0 09 0 

N860G091 

N8600092 

N8600 093 
N860 0094 
N8600095 
N8600096 
N8600097 
N860 0 098 
N86GQ099 
N8600100 
N8600101 
N86Q0102 
N8600103 
N8 60 010 4 
N3600105 
N8600106 


u 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LISTR 


PAGE 


4 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0107 

P0074 

68FB 


STA* 

PASS 

0108 

P0075 

OBOfl 

PASS2 

MOP 

0 

0109 

P 0 076 

4806 


STQ* 

ADRA+i 

QUO 

P 0 0 77 

4808 


STQ* 

ADRB+1 

0111 

P0Q78 

48 ID 


STQ* 

ADRC+1 

0112 

P0 079 

4828 


STQ* 

AORDU 

0113 

P007A 

482C 


STQ* 

ADREs-1 

0114 

P007B 

D40 0 

ADRA 

R AOs- 

S7FFF 


P007C 

7FFF 



0115 

P007D 

0 8 44 


CL R 

A 

Oil 6 

P007E 

E400 

ADRB 

L DQf 

S7FFF 


P007F 

7FFF 




011 7 

P0 080 

OFFO 


LLS 

16 

0118 

P0 081 

OF EC 


L.LS 

12 

0119 

P0 0 82 

6 8 EE 


ST A* 

SAVA 

0120 

P 00 83 

90 00 


SUB 

= N$A0 0 0 


P0084 

A 0 0 0 



0121 

PO 085 

one 


SAN 

I NO 


0122 


0123 



* 



0124 

P0 086 

C8EA 


LDA* 

SAVA 

0125 

P0 Q 87 

OF EC 


. 'LLS 

12 

012 6 

P 0 0 8 8 

E0 00 


LDQ 

= N$3D 0 0 


P0 089 

30 00 


0127 

P008A 

0901 


INA 

+ 1 

0128 

POO SB 

68E5 


STA* 

SAVA 

0129 



* 


0130 

P0 08C 

90 00 


SUB 

= N$ 003 A 


F0 030 

0 0 3A 



0131 

P0 08E 

0114 


SAN 

IND+1 

0132 

PQ08F 

0 A30 


ENA 

S30 

0133 



*- 


0134 



* 



0135 

P0 090 

0FE3 


LLS 

8 

013 6 

P0091 

1803 


JMP* 

ADRC 

013 7 

PQ092 

18 06 

IND 

JMP* 

JPA 

0133 

P 0 0 9 3 

1 81 D 


JMP* 

JP8 

0139 

P0094 

6400 

ADRC 

STAs- 

S7FFF 


PG095 

7FFF 



01.4 0 

P0 096 

C 8 09 


LDA* 

PASS 

0141 

P 0 0 97 

OlOA 


SAZ 

DONE 

0142 

P0 098 

0 8^4 


CLR 

A 

0143 

P0 0 99 

6 8 D 6 


STA* 

PASS 

0144 

PQ09A 

E8E1 


LQQ* 

A DR A fl 

0145 

PD09B 

0 DFE 


INQ 

-1 

0146 

P0Q9C 

1 8 D 8 


JHP* 

PASS2 

014 7 



* 


0148 

P0 0 90 

C8D3 

JPA 

LDA* 

SAVA 

0149 

P0 Q9E 

OFFO 


LLS 

16 

0150 

PG09F 

0FE4 


LLS 

4 

0151 

P0 0 A0 

6400 

ADRD 

STA.+ 

$7FFF 


POO Ai 

7FFF 




0152 POOA2 1CCF DONE 


JMP* 


(INCRJ 


DATE J 08/19/99 


STORE PASS GOUNT 
PASS TWO ENTRY POINT 
STORE COUNTER ADR, 

STORE COUNTER ADDRESS 
STORE COUNTER ADDRESS 
STORE COUNTER ADDRESS 
STORE COUNTER ADDRESS 

A Q INCH COUNTER 

0000 3X3X 
CHECK COUNTER 

3X3 X 0000 
X0 0 0 03X3 

XXXX 03X3 

SKIP, NO CARRY 
IF A = 0, CARRY 
A Q 

X000 03X3 

09 3 X 3X00 


0 03 X 3X00 

SAVE IN CASE OF NO CARRY 
A Q 

XXXX 3X00 

SKIP NO CARRY 
CARRY A=0 
A Q 

0030 3000 

3030 0000 


SET COUNER 

CHECK PASS COUNT 
SKIP, END SECOND PASS 

SIGNAL END OF FIRST PASS 
COLLECT REGISTER ADR. 
UPDATE COUNTER ADDRESS 
PASS 2 ENTRY 
A Q 

XG00 0303 
0303 X0 00 
303X 0000 

SET COUNTER 


N 8600107 
N8600108 
N8600109 
N86G 0110 
N860G111 
N56QQ112 
N8600113 
N8600114 

N860011 5 
N860011 6 

N360011 7 
N860Q118 
N86D0119 
N 86 0 0 12 0 

N8600121 

N8600122 

N8600123 

N86Q0124 

N86Q0125 

N8600126 

N 8690127 
N 8600128 
N8600129 
N86 fl 0 130 

N36Q0131 

N8600132 

N8600133 

N8600134 

N8600135 

N86Q0136 

N860013? 

N8600138 

N86GD139 

N8600 140 
N8600141 
NS6Q0142 
N8600143 
N8600144 
N8600145 
N860G146 
N8600147 
N8600148 
N3600149 
N36Q0150 
N 8600151 



O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


RETURN 


N860 D 15 2 


LISTR 


PAGE 


5 


DATE! 08/19/99 


0153 



* 



A Q 

0154 

P00A3 

C8CD 

JPB 

LDA* 

SAVA 

OOOX 300 

0155 

P00A4 

0 F E 8 


LLS 

8 

3X30 000 

015 6 

PO0A5 

6400 

ADRE 

STA 

$7 FFF 

SET COUNTER 


P00A6 

7 FFF 





015 7 

P00A7 

1CCA 


JMP* 

{INCR? 

RETURN 

0158 



* 




0159 







015 0 



* 

THIS IS THE ERROR SUBROUTINE 


0161 



*• 

IT IS USED 

WHEN A BLOCK IS FOUND 

015 2 



*• 

THAT IS OUT OF LOGICAL ORDER 


0163 




A NOTE IS 

ENTERED IN THE RECORD DUMP 

0164 







0165 



* 




0166 

P00A8 

5826 

GON 

RTJ* INP 



0167 

P0OA9 

0 115 


SAN ERRAI 



0168 

P00AA 

E3A0 

ERR A 

LDQ* ARCNT 



0169 

P00AB 

58C6 


RTJ* 

INCR 


0170 

P 0 0 AC 

E8 9F 


L D O'* 

ATRCNT 


0171 

P00AD 

58C4 


RTJ* 

INCR 


0172 

P00AE 

18F9 


JMP* GON 



0173 

POOAF 

E 8 9 A 

ERRAi 

LDO* ALCNT 



0174 

PQ0BG 

58 Cl 


RTU* I NCR 

INCREMENT LINE COUNT 

0175 

P00B1 

QGOE 


ENQ 14 



0176 

POO 62 

CAOO 

AGO 

LD A EMSG.Q 




P 0 0B 3 

0 0 6E 





017 7 

P00B4 

6AO0 


STA NHE , Q 

MOVE EHSG TO 

NME 


P00B5 

0 0 7F 





0178 

P00B6 

01 42 


SQZ GONN 



0179 

P00B7 

OOFE 


INQ -1 



0180 

P0OB8 

18F9 


JMP* AGO 



0181 

P00B9 

5893 

GONN 

RTU* DUMP 



018 2 

P00BA 

C845 

ERRA2 

LDA* FLAG 



0183 

P00BB 

■0132 


SAM MINUS 



0184 

P0 0BC 

1800 


JMP PLUS 




POOBD 

FF 55 





018 5 







018 6 



* 




018 7 



* 

THIS IS TH 

E MINUS SUBROUTINE 


0188 




IT IS USED 

WHEN A * BLOCK 


0139 




1CONTROL STATEMENT! IS FOUND 


019 0 



* 

ON THE RELOCATABLE INPUT, 


0191 



* 




0192 



* 




0193 

PO OBE 

QBOO 

MINUS 

NOP 



0194 

P 0 DBF 

5842 


RTJ* 

BLKOUT 


0195 

POOCO 

58 4A 


RTJ* 

MOVE 


019 6 

P00C1 

E 8 00 


LOQ ALCNT 




P00C2 

FF 87 





0197 

P00C3 

5 8AE 


RTJ* 

INCR 


0198 

P00C4 

E8 00 


LDQ ARCNT 




P0QC5 

F F 85 





0199 

POOC6 

58 AB 


R'TJ* I NCR 




N86G0153 

N86D0154 

N86B0I55 

N86QG156 

N86G0157 
N8600158 
N86Q0159 
N86G016Q 
N86Q0161 
N8600 162 
N8600163 
N8 60 0 16 4 
N8600165 
N860Q166 
N860 0167 
N8600168 
N8600169 
N86Q0170 
N8600171 
N8600172 
N86GQ173 
N8600174 
N860 0175 
N8600176 

N86Q0177 

N8600178 
N8600179 
N8608 180 
N86Q0181 
N8600182 
N8600183 
N8600184 

N360D185 
N860G186 
N8600187 
N8600188 
N36GQ189 
N8600190 
N8600191 
N8630192 
N8600193 
N 8 600194 
N860Q195 
N86QQ196 

N8600197 

N860G198 

N86Q0199 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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020 0 

0201 
020 2 

020 3 

020 4 
02 0 5 
020 6 
0207 
020 8 

020 9 
0210 
0211 
0212 

0213 

0214 

0215 

021 6 

0217 

0218 

0219 

0220 
0221 
0222 
0223 
0223 
0223 
0223 

0223 

0223 

0224 
0224 

0224 

0225 
022 6 

0226 
0226 
0227 
0 22 8 

0229 

0230 

0231 

0232 

0233 


P00C7 

P00C8 

E800 
FF 83 


LDQ 

ATRCNT 

P00C9 

58A8 


RTU + 

I NCR 

P00CA 

P0QC8 

5800 
FF 8 1 


RTJ 

DUMP 

poocn 
P0 0CD 

1800 

FF3B 

if- 

JMP 

LISTR1 


PQQCF 
POOCF 
POODO 
PO GDI 
P0 0D2 
PO 0D3 
PO 0D4 
PG0D5 
P00D6 

P00D7 
POODS 
PQ0D9 
POODA 
POODB 
POO DC 
POODD 

POODE 

PGODF 

POOEO 

POflEi 
P00E2 
P00E3 
P00E4 
P03E5 
P 0 OE 6 
P00E7 
P00E8 
P00E9 
PGQEA 
P00E8 
POOEC 


¥ 

* 

* 

* 

* 

•* 


THIS IS THE INPUT SUBROUTINE 
FIRST IT CLEARS THE BUFR THEN 
IT DOES AN INPUT AND CHECKS THE 
TYPE OF RECORD READ . 

PARAMETERS ARE PASSED IN A 
-1 INDICATES A * BLOCK 
+1 INDICATES A NAME BLOCK 
0 INDICATES ALL OTHERS 


OBOO 
COOO 
2020 
OC OE 
6 A 0 0 
009B 
ODFE 
0141 
18FB 

5 4F4 
48 00 
00 EO 
0000 
Q8F9 

oaoF 

OISE 

54F4 
0 AO 0 
0162 

54F 4 
0 A 0 0 
OFFO 
A 0 0 0 
40 00 
0114 
C819 
0 9 OD 
6800 
0 0 92 
C 8 0 0 
0 082 


INP 


DOIT 


NOP 

LDA 

ENQ 

STA 


=N$2Q20 
+ 14 

BUFRf 0 


INQ -1 

SQZ 1 

JMP* DOIT 

FREAD $F9,AA»BUFR,15,B* tiltil 


BLANK BUFR AREA 


STD INPUT DEVICE 


**MSOS 4- 


AA 


AB 


XX 


EXIT 


SQP AB-+-1 
EXIT 0 


.S 16 
AND 

SAN 

LQA* 

INA 

STA 

LDA 


EXIT IF ERROR OR EOF 


= NS 40 0 0 
X X 

BUFRAD 

+ 13 

BUFR+14 

BUFR 


STATUS TO A 


BIT 14 SHORT READ MASK 

SKIP IF SHORT READ 

CALCULATE FAKE WORD COUNT 
STORE FAKE WORD COUNT 


N86002GD 

N8600201 

N8600202 

N860G2D3 

N860 0 20 4 
N8600205 
N86Q 0206 
N8600207 
N8600208 
N860 0209 
N8600210 
N8 60 0 211 
N8600212 
N8600213 
N860 0 21 4 
N8600215 
N8600216 
N8600217 

N8600218 

N8600219 

N8600 220 
N860G 221 
N860B222 
0N86G 0 223 


N8600224 


N860 0225 
N8600226 


N8600227 

N86C0228 

N860 0229 
N8600230 
N 860 0 23 1 
N8600232 

N8600233 


o 

o 

o 

o 

o 

o 

o 

o 

o 

0 

o 

o 

o 

o 

o 


o 


o 


7 


DATE: 08/19/99 


o 


n 


LISTR 


PAGE 


O 

O 

O 

O 

O 

o 


o 

o 

o 

o 

o 

o 

o 


o 


023 4 

POOED 

OF 48 


APS 

8 


DROP LOWER CHARACTER 

0235 

P0 0EE 

9 0 00 


SUB 

= N S 0 0 2 A 


MASK* 1 


P0 0EF 

0 02A 






023 6 

POOFO 

010 8 


SAZ 

PARAI 


SKIP IF '* 

0237 

POOF1 

C ’8 0 0 


EDA 

BUFR 



0238 

P0 0F2 
P0 0F3 

a o 7C 
9000 


SUB 

= N$20 5 0 


MASK FOR NAME BLOCK 

0239 

POOF4 

P00F5 

2050 

0106 


SAZ 

PARA2 


SKIP IF NAME BLOCK 

0 240 

P00F6 

OA 00 


ENA 

0 


CLEAR A 

0241 

PO0F7 

6808 


STA* 

FLAG 


NOT NAME OR * BLOCK 

0242 

P00F8 

1 CD5 


JMP* 

I INPJ 


RETURN 

0 2 43 

PQ0F9 

OAFE 

PARAi 

ENA 

-1 


* BLOCK FLAG 

0244 

P00 FA 

68 05 


ST A # 

FLAG 



0245 

PflOFB 

1CD2 


JMP* 

tINPI 


RETURN 

0246 

POOFC 

0 A G 1 

PARA? 

ENA 

1 


NAME BLOCK FLAG 

0247 

P00FD 

6802 


ST A* 

FLAG 



0248 

POOF'E 

1CCF 


JMP* 

iiNPi 


RETURN 

0249 

P00FF 

0 0 01 


BZS 

FLAG* 1 ) 



0250 

P010Q 

Q16E P 

8UFRAD 

ADC 

BUFR 



0251 



* 





0252 








0253 



?r 

THIS 

IS THE BLANK OUT SUBROUTINE 

0254 



& 

IT STORES BLANKS IN 

THE 


0255 



If- 

OUTPUT RECORD AREA 



0256 



* 





0257 



¥ 





0258 

P0101 

0B00 

BLKOUT 

NOP 




0259 

P 0 102 

C000 


LDA 

= N $ 2 G 2 0 


BLANKS 


P 0 10 3 

20 20 






0260 

P01D4 

OCQE 


ENQ 

14 


LOOP COUNT 

0261 

P01Q5 

6 A 2F 

SPIN 

STAG- 

MME» Q 


FILL 

026 2 

P010 6 

0T3FE 


ING 

-1 



026 3 

PO 107 

0141 


SQZ 

GO 


CHECK SPIN COUNT 

0264 

PQ108 

1 8FC 


JMP* 

SPIN 


LOOP AGAIN 

0265 

PO 109 

IGF 7 

GO 

JMP* 

( BLKOUT) 


RETURN 

0266 








0267 

0268 



* 

THIS 

IS THE HOVE SUBROUTINE 


0269 



•#* 

IT MOVES T HE INPUT 

BUFFER AREA 

027 0 



*• 

TO THE RECORD OUTPUT AREA 


0271 



* 

IT ALSO CHECKS FOR 

$FF IN 


027 2 




THE : 

LAST CHARACTER 

AND THROWS 


0273 



v- 

IT OUT IF FOUND. 



0274 








0275 



& 





027 6 

PO 10 A 

0B00 

HOVE 

NOP 




0277 

PG10B 

C 8 0 0 


LDA 

BUFR+14 



0278 

PO IOC 
P010D 

0 0 70 
98F2 


SU8* 

BUFRAD 


CALCULATE WORD COUNT 

0279 

P010E 

OFFO 


LLS 

16 


WORD COUNT TO Q 

0280 

P010F 

C A 0 0 


LDA 

BUFR* Q 




PG11D 

0 0 5E 







N860 0234 

O 

N860G 235 


N8600236 

o 

N8600237 

N86G0238 

■ o 

N86G0239 

N8600240 


N8600241 


N8600242 

o 

N86GQ 243 

N860Q244 


N860 0245 


N860 0246 

o 

N86Q0247 

N8600248 


N860 0249 


N 86 0 0 25 0 

o 

N8600251 

N860G252 


N860Q253 


N86G0254 

o 

N860Q255 

N86G0256 


N8600257 


N8 60 0 25 8 

o 

N9600259 

N860Q260 


N860Q261 

■ o 

N8600262 

N86G0263 


N8600264 


N8600265 

' o 

N8 60 0 266 

N8600267 


N860 0268 


N860 0269 

o 

N8600 270 

N8600271 


N8600272 


N8600273 

o 

N86QQ274 

N8600275 


N 8 600276 


N8600277 

; O 

N86Q0278 


N86GQ279 


N8 60 fl 28 0 

o 


o 


o 


o 


o 


LISTR 


PAGE 


3 


DATE 


08/19/99 


0 

Q 28 1 

POlli 

A 0 0 0 


AND 

= N$ 0 OFF 

N8600281 

□ 



P 0 1 1 2 

00FF 




N8600282 



0282 

P0113 

90 00 


SUB 

= N$ 0 OFF 


o ■ 

0283 

P0 114 
P 0 1 1 5- 

00FF 

0115 


SAN 

AGAIN 

N8600283 

o 


0284 

P0116 

C A 0 0 


LDA 

BUFR.Q 

N8600284 




P0117 

0 0 57 




N860Q285 


o 

0265 

P0118 

A 0 0 0 


AND 

= N$FF0 0 

o 

P0119 

FF00 




N8600286 


0286 

P011A 

1802 


JMP* 

AGAIN1 



028 7 

PflllB 

C A 53 

AGAIN 

LDA* 

bufr,q 

N860Q287 


o 

0288 

P011C 

6A1 8 

AGA INI 

ST A* 

NME,Q MOVE THE DATA 

N8600288 

o 

0289 

P0 11 D 

Cl 42 

SQZ 

RET SKIP WHEN DONE 

N86Q0289 


0290 

P0 HE 

0DFF 


INQ 

-1 DECREMENT THE MODIFIER 

N860G290 



0291 

P011F 

1 8 F8 


JMP* 

AGAIN LOOP 

N8600291 


o 

0292 

P0 120 

1CE9 

RET 

JM'P* 

(MOVE) RETUNN 

N86QD292 

o 

0293 




N86QD293 


0294 




INPUT 

AND OUTPUT BUFFER AREA 

N8600294 



0295 



* 



N8600295 


o 

0296 

P0 121 

4F55 

EMSG 

ALF 

15, OUT OF ORDER INPUT BLOCK 

N86Q0296 

o 


P0 122 

5420 







P0123 

4F46 








P0 124 

204F 






o 


P0 125 

52 44 





o 


PQ126 

4552 







PG 127 

2049 








P 0 1 2 8 

4E5 0 






s~\ 


PQ129 

5554 





o 



P 0 1 2 A 

20 42 







P012B 

4C4F 








P012C 

43 4 B 






o 


P012D 

2020 





o 


P012E 

20 20 







P012F 

2020 




N3600297 



0297 

P0 130 

2B20 

RECORD 

ALF 

1 » * 


o 

0290 

P 0 1 3 1 

3030 

LCNT 

NUM 

$3030, $3030 

N860 0298 

o 


P0132 

3030 






0299 

P0133 

2020 


NUN 

$2020 

N8600299 



030 0 

P 0 13 4 

20 20 

NME 

ALF 

15, 

N860 0 30 0 


o 


P 0 1-3 5 

20 20 





o 


P0136 

2020 







PG 13 7 

20 20 








P0 138 

20 20 






o 


P G 139 
P013A 

2020 

2020 





o 



P013B 

20 20 








P013C 

2020 






o 


PQ13D 

2020 





o 


P013E 

20 20 







P013F 

2020 








PG 140 

20 20 






o 


P0141 

P0142 

20 20 
2020 





o 

o 








o 

o 








o 


LISTR 


PAGE 


9 


DATE: 08/19/99 


D3Q1 

P0143 

2020 


NUM 

$2020, S2020 

N86G0301 


P0144 

2020 




MS 6 0 0 3 0 2 

0302 

P0145 

20 20 

REC2 

ALF 

21, 


P0146 

20 20 






P 01-47 

2020 






P 0 1 4 8 

2020 






P0149 

2020 






P014A 

20 20 






P014R 

2020 






P014C 

2020 






P0 14D 

2 D 2 0 






P014E 

2 0 20 






P014F 

2020 






Pfl 1 5 0 

2020 






PO 151 

2020 






P0152 

2020 






PO 153 

2020 






PO 154 

2020 






PQ155 

2020 






PO 1 56 

20 20 






PQ157 

2020 






P 0 15 8 

2020 






P 0 159 

20 20 




N86003G3 

0303 

PO 15 A 

30 30 

RCNT 

NUM 

$3030-, $3030 


PO 15 B 

3030 




N8600304 

030-4 

P015G 

20 20 


NUM 

$2020 

030 5 

P015D 

52 45 


ALF 

4, RECORDS 

N8600 305 


P015E 

434F 






P015F 

5244 






PG 160 

5320 




N86093B6 

0306 

P0161 

2020 


NUH 

$2020, $2020 


P0162 

2020 




N8600307 

0307 

P0163 

3030 

TRENT 

NUM 

$3030 ,$3 030 


PO 164 

30 30 




NB600308 

0308 

P0165 

2020 


NUM 

$2020 

0309 

P 0 1 6 6 

544F 


ALF 

7, TOTAL RECORDS. 

N8600309 


P 0 1 67 

5441 






PQ 168 

4C20 






P 0 1 6 9 

5245 






P016A 

434F 






P016B 

5244 






P016C 

532E 




M8600310 

0310 

PG16D 

2E03 


NUM 

S2E03 

0311 

POISE 

00 14 


BZS 

BUFR { 2 O') 

N8600311 

0 312 

P 0 1 8 2 

3120 

TOP 

ALF 1,1 


N8 60 0 312 

0313 




END 

LISTR 

N86Q 0 313 

PGM= 

0183 

1 38 70 COW 

= 0 0 00 •( 

0) DAT = 000 0 { O') 



n 

•K,y 

O 

O 

o 

o 


LISTR rage 10 DATE: 08/19/99 

EQUIVALENCES 

DEF . LINE NAME VALUE REFERENCED AT LINE NUMBER 

0000 I uOFF (0002553 


o 

o 


o 

o 


o 


o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LISTR 


PAGE ii 


DATES 08/19/99 


c 


S V M E 0 L S 

o 



DEF.LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 


o 

0 014 

LISTR 

0 00 0 

0014 


0203 




0018 

LISTR1 

0009 

0016, 

0 069, 




0 Q23 

ERR 

0 0 0 F 

0 0 20 





o 

0 02 4 

INDR 

0011 

0 022 

0184 




0032 

PLUS 

0013 

0 0 21, 





0 051 

G H K TR 

0034 

0061 






0 05 4 

YES 

0038 

0 052 





o 

0 0 62 

TRA 

0 0 42 

0 056 


0196 



0070 

A LG NT 

004A 

0 0 66, 

0173, 




0 071 

A RENT 

0 0 4 B 

0047, 

0057, 

0 062, 

0168, 

0198 


0 072 

A IRON T 

004C 

0 0 49 , 

0059, 

0064, 

0170, 

020 0 

o 

0 081 

DUMP 

004D 

00 68, 

009 4, 

0181 , 

0202 


0 0 8 4 

813 

0 0 57 

0 082 






0 088 

ZZ 

006 4 

0 0 86 


0 143 




0103 

PASS 

0070 

0 107, 

0 140 , 


0154 

o 

0104 

SAVA 

0071 

0119, 

012 4, 

0128, 

0148 , 

010 5 

I NCR 

0072 

0 0 4'8 , 

0050, 

0058, 

0060, 

0 063 


0108 

PASS2 

0075 

0146 

0144 





0114 

ADRA 

0 0 7 B 

0109, 




o 

0116 

ADRB 

0 0 7 E 

0 110 

0131 




0137 

IND 

0092 

0121, 





0139 

A DRC 

0094 

0111, 

0136 





0148 

JP A 

0 0 9 D 

0137 





o 

0151 

AD RD 

00 A0 

0 112 





0152 

DONE 

0 0 A 2 

0141 






0154 

JPB 

0 0 A3 

0 138 






0156 

A DR F 

0 0 A 5 

0113 





o 

016 6 

GON 

Q0A8 

0172 





0168 

ERRA 

00AA 

0 0 23 

0167 





0173 

ERR A 1 

0 0 A F 

00 53, 





0176 

AGO 

0 0 B 2 

0180 





o 

0181 

GONN 

0089 

0178 





0182 

ERRA2 

Q0BA 

0024, 

0183 





0 193 

MINUS 

OOBE 

0166, 


0245 


021 6 

INP 

00CE 

0019, 

0 051, 

0242, 

o 

0 219 

DOIT 

0 0 D 2 

0 222 





0225 

AA 

00E 0 

0223 






022 7 

AB 

0 0 E 3 

0 225 






0 233 

XX 

00EB 

0229 





o 

0243 

PARA1 

Q 0 F 9 

0236 





0246 

PARA2 

00FC 

0239 






O 

O 

O 


S~ • 

U 

n 

o 
o 

O 
O 

0065, 0067, 0152, 0157, 0169, 0171, 0174, 0197, 0199, 0201 ^ 

o 

o 

o 

o 

0 2-4 8 

o 

o 

o 

o 

o 


o 

s,,- 

o 

o 

o 


o 


o 

o 

o 

o 

o 


LISTR 


PAGE 12 


DATE: D 8/1 9/99 


0 249 

FLAG 

00FF 

0 250 

BUFRAD 

010 0 

0258 

BLK OUT 

0101 

0 261 

SPIN 

010 5 

0265 

GO 

0109 

0276 

MOVE 

010A 

0287 

AGAIN 

one 

0 288 

AG A IN 1 

one 

0292 

RET 

012 0 

0 29 6 

EMSG 

0121 

0297 

RECORD 

0130 

0 298 

LCNT 

0131 

0 300 

NME 

0134 

a 302 

REC2 

0145 

0303 

RCNT 

015A 

0 30 7 

TRC NT 

0163 

0 311 

BUFR 

0 16 E 

0312 

TOP 

0182 


0 182, 
0 230 , 

0 241, 
0 27 8 

0244, 

0247 

0 0 45, 

0264 

0263 

019 4, 

0265 


0 046, 
0 283 , 
0286 
0 289 
0176 
0 0 82 
0070 

0195, 

0291 

0292 


0 177, 

0 261 , 

0288 


00 85, 

0036, 

0089 


0 0 71 , 
0 072 

0 091, 

0092 

0037 

0 0 34, 

0 03 5, 

0 0 36 , 

0237, 

0016 

0 25 0, 

0277, 

0 280 


0033, 003.9, 
0284, 0287 


0040, 0041, 


0042, 


0043, 


0044, 


0054, 0219, 0223, 0232, 0233 


o 

o 

o 

o 

o 

o 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LISTR 
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DATES 08/19/99 



o 

o 

o 

o 

o 

o 


*** A L 

P H A 

B E T I 

CAL 

S 0 R 

AA 

0225 

AB 

0 227 

ADRA 

AGO 

0176 

ALCNT 

0 070 

ARCNT 

DOIT 

0219 

DONE 

0152 

DUMP 

GO 

0265 

GON 

0166 

GONN 

JPB 

0154 

LCNT 

0298 

LISTR 

PASS 

0103 

PASS2 

0108 

PLUS 

TOP 

0 312 

TRA 

0 Q 62 

TRCNT 


0 F 

S y M B 

0 L S 

*** 


0 114 

A ORB 

0116 

A DRC 

0139 

0071 

ATRCNT 

0072 

BB 

0084 

0 0 81 

EMSG 

0296 

ERR 

€023 

0181 

I 

00 0 0 

INCR 

0105 

0 014 

LISTRi 

0018 

MINUS 

0193 

0 032 

RCNT 

0303 

REG 2 

0302 

0307 

XX 

0233 

YES 

0 05 4 


o 

o 


o 


o 

o 

o 

o 

o 


o 


ADRD 

0151 

ADRE 

015 6 

AGAIN 

BLKOUT 

0258 

BUFR 

0311 

BUFRAD 

ERRA 

0168 

ERRA1 

0173 

ERRA2 

IND 

013 7 

INOR 

002 4 

INP 

MOVE 

0276 

NME 

0300 

PARA1 

RECORD 

ZZ 

0297 

0088 

RET 

0292 

SAVA 





o 




o 

0287 

A GA INI 

0288 

o 

0 250 

CHKTR 

0051 

0182 

FLAG 

0249 


0 216 

JPA 

0148 


0243 

PARA2 

0246 

o 

0104 

SPIN 

0261 




o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


n 





L UL 1ST 



PAGE 1 

DATE! 08/1979 9 



o 

ODOl 





NAM 

LULIST 

DECK-ID N 87 MSOS 5.0 

SUMMARY 

- 1 3 2 * * * * * * * 


000 2 





HASS 

STORAGE OPERATING SYSTEM VERSION 5,0 


N8700002 


OOC3 




* 

SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 


N8 7 0 0 3 0 3 

o 

000 4 




* 

COPYRIGHT CONTROL 

DATA CORPORATION 1976 


N870 0004 


000 6 





IDENTIFIES EQUIPMENTS FOR SYSTEM LOGICAL UNITS 

FOR - MSOS 4.1 

N87Q0006 

o 

00 0 7 




*■ 

1700 

MASS STORAGE 

OPERATING SYSTEM VERSION 4,1 

CALIFORNIA 

N8700Q07 

000 8 




3r 

SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, 

N870QQ08 


0 0 0 9 




* 

COPYRIGHT CONTROL 

DATA CORPORATION 1973 


N870 0309 

o 

OOil 




* 


THIS PROGRAM 

MUST BE RUN AS A JOB OR 


N870G011 


0012 




* 


ADDED TO THE 

PROGRAM LIBRARY. 


N 8 700012 

o 

0013 




'#• 


IT OPERATES 

BY MAKING A STATUS REQUEST FOR EACH LU 

N8700013 

0015 


0 0 46 



EQU 

TEN <$46 ) » S EVEN! $5) ,FIV£ ,SIXC 3441 


N37QG015 



0 0 05 








o 



0 Q 43 
0 0 44 









0016 




EXT 

SYSMON.SYSDAY ,SYSYER,SYSIO 


N87GB016 


0017 


0 0 02 



EQU 

LPMASKi 21 



N8700017 

o 

0018 


0 0F4 



EQU 

AMONI (S F41 



N8700018 

0019 





EXT 

LOG1A 



N8700019 


0020 





ENT 

LULIST 



N 8 700020 


0021 


0 0 0 0 

P 


EQU 

LULIST!*) 



N8700021 

o 

0022 

POOO 0 

0 COP 



ENQ 

15 

MOVE SYSTEM ID 


N8700022 

0023 

P0GQ1 

C 6 0 0 

X 

MQVn ■ 

LDA4 

SYSID,Q 

FROM SYSDAT INTO 


N8700023 



POO 02 

7FFF 

X 





N870 0 0 2 4 


0024 

P 0 0 0 3 

6A00 



ST A 

MSGID2, Q 

MESSAGE BUFFER 


o 


P 0 0 0 4 

0 0C3 







N87QS025 

00 2 5 

P0 005 

OQFE 



INQ 

-1 




0026 

P 0 0 06 

0171 



SQM 

IDMOVD 



N870 0 026 


0027 

P0 007 

18F9 



JMP* 

MOV 10 



N870G927 

o 

00 28 

P 0 0 0 8 

COOO 

X 

IDMOVD 

LD A 

= XSYSMON 

HOVE SYSTEM DATE 


N8700028 


P00Q9 

7FFF 

X 






N37G0029 


0029 

P 0 0 0 A 

6800 



STA 

MSGID3+1 

INTO MESSAGE BUFFER 




POOOB 

0 0 CD 







N8700Q3D 

o 

0030 

POOOC 

COOO 

X 


LQA 

= XSYS YER 




POOQD 

7FFF 

X 






N8700031 


0031 

POOOE 

68 00 



STA 

MS GI03 »-4 





POOOF 

OOCC 







N8703032 

o 

0032 

P0010 

EO 00 



LDQ 

=N$2F2F 




POOH 

2F2F 







N8700033 


0033 

P 0 012 

COOO 

X 


LOA 

= XSYSDAY 





POO 13 

7FFF 

X 






N8700034 

o 

00 3 4 

P0014 

QFF8 



LLS 

8 



0035 

P0015 

6800 



STA 

MSG 13 3 »• 3 



N8700035 



P0Q16 

00C4 







N8700Q36 


0036 

POO 17 

48 OG 



SIQ 

MSGID3S-2 



o 


P0018 

00C1 







N8700037 

0037 

P0019 

54F4 



RTJ- 

(AHONI) 

F WRITE HEADING PART 1 



o 


O 


u 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


LULIST 


DATE! 08/19/99 


PAGE 2 


003 8 

POO 1 A 

4C00 



NUM 

$4C0 0 

0039 

P0 01B 

0 0 0 0 



NUM 

0 

QQ40 

P001C 

0 0 0 0 



NUM 

0 

0041 

P001D 

1 8 FB 



NUM 

$ 1 8 F B 

0042 

P001E 

00 27 



NUM 

39 

0043 

P0G1F 

C0B5 

P 


ADC 

MSGIDO 

00 4 4 

P0020 

54F4 



RTJ- 

moND 

0 G 4 5 

P 0 021 

4C00 



NUM 

$4CQ 0 

00 4 6 

P0Q22 

QOGO 


TO 

ADC 

0» 0»®18FB 


PO 023 

0 00 0 






P0024 

1 8 F B 





0047 

PC 025 

0024 



ADC 

LLtMl 


PO 0 26 

0091 

P 




0 G 4 8 

P 0 0 27 

C8FB 


LO 

L DA* 

TOU 

0 G 4 9 

P0028 

0101 



SAZ 

A 

005 0 

PO 029 

1 8FD 



JMP* 

LO 

005 1 

P002A 

C80D 


A 

LD A* 

B 

0052 

P002B 

09 01 



INA 

1 

0053 

P002C 

6 8 0 B 



5TA* 

3 

005 4 

PQG2D 

9400 

X 


. SUB 

LOG1A 


P002E 

7FFF 

X 




0055 

PD02F 

0101 



SAZ 

ZZ 

0056 

P0030 

0128 



SAP 

EXIT 

0057 

P0031 

E8 06 


21 

LOQ* 

B 

0058 

P0032 

E 6 BO 

X 


LDQ<t- 

LOGlA , Q 


PO 033 

0 0 2E 

X 




0059 

PD 034 

E208 



LDQ- 

8,Q 

006 0 

P0035 

4803 



STQ* 

XQ 

006 1 

PD036 

1805 



JMP* 

D 

0062 

PO 03 7 

00 00 


B 

NUM 

0 

0063 

PO 038 

0000 


XQ 

NUM 

0 

0064 




EXIT 

EXIT 


0064 

P0039 

54 F4 





0064 

P003A 

OAOO 





0066 

P003B 

C8FC 


D 

IDA* 

XQ 

0067 

F0Q3C 

A 0 0 0 



AND 

=N$07F0 


PO 03 D 

0 7FQ 





0068 

P003E 

OF 44 



ARS 

4 

0069 

P003F 

09AF 



INA 

-ALFN 

007 0 

PO 0 40 

0131 



SAM 

TYPE 

0071 

PO 041 

OAOO 



ENA 

0 

00 72 

PO 042 

0 9 50 


TYPE 

INA 

ALFN 

0073 

PO 0 43 

GFC4 



ALS 

4 

0074 

P0044 

80 00 



ADD 

= XALF 


PO 045 

OOFO 

p 




0075 

P0046 

6806 



ST A* 

E 

007 6 

PQ047 

C8EF 



L DA* 

8 

0077 

PO 0 48 

5841 



RTJ* 

CONVRT 

0078 

P 0 0 49 

6848 



STA* 

Ml 

00 79 

P004A 

0C1Q 



ENQ 

1 6 

0080 

P004B 

58 2D 



RTJ* 

MOVE 

0081 

P004C 

OOFO 

p 

E 

ADC 

ALF 


FWRITE HEADING PART 2 


LOOP ON THREAD 


ADO 1 TO LU IN REQUEST 
IS IT LAST LU 


LOGICAL UNIT 

GET LOCATION OF PHYSTAB 

GET WORD 8 OF PHYSTAB 
CREQUEST STATUS - TYPE CODE! 
GO TO PRINT SECTION 


STATUS WORD 
GET TYPE CODE 


IF LESS THAN MAX TYPE CODE 
SET UP FOR MAX TYPE CODE 

MULTIPLY BY 16 


START OF EQUIP TYPE MSG 
COVERT LU TO ASCII 


N8 70 0 0 3 8 
N8700Q39 
N87Q G 040 
N8700 041 
N8700042 
N87Q0043 
N 8700044 
N370G045 
N87Q0046 


N8700047 

N87Q0048 

N87G0049 

N87QQQ50 

N8700Q51 

N87Q0052 

N870Q053 

N8700054 

N370GQ55 
N870 005b 
N870G357 
N3700058 

N87QQQ59 
NB700060 
N87G0061 
N87G0062 
N8700063 
N8700 064 


N87B 0 066 
N8700067 

N87Q0068 
N87B0069 
N8700070 
N8700 071 
N8700Q72 
N87Q0073 
N8700074 

N8700Q75 
N8700076 
N8700077 
N8700078 
N8700 079 
N8 70 0 08 0 
N87G0 081 


o 

L UL 1ST PAGE 3 



0082 

P004D 

0 0 93 

P 


ADC 

M1B 

O 

0084 

P0 04E 

C8E9 



L DA* 

XQ 

008 5 

P004F 

A0 44 



AND- 

SIX 


008 6 

P0050 

OF 41 



ARS 

1 


0087 

P 0 051 

2 0 43 



MUI- 

Fiy e 

n 

0088 

P0052 

8 0 0 0 



ADD 

= XARF 



P0 053 

0 0DC 

P 





00 89 

POO 54 

6803 



STA* 

F 


0090 

PG 055 

OC 0 5 



ENQ 

5 

O 

00 91 

P0 056 

5822 



RTJ* 

MOyE 

0092 

P0 057 

D 0 DC 

P 

F 

ADC 

ARE 


0093 

P0 058 

00 A4 

P 


ADC 

MIA 

O 

0095 

POO 59 

C80E 



L DA* 

XQ 


0096 

P005A 

0F4B 



ARS 

11 


0097 

P005B 

A0 05 



AND- 

SEVEN 

O 

0098 

P005C 

20 05 



MUI- 

SEVEN 

0099 

P0Q5D 

ROOD 



ADD = 

: XARL 


P005E 

06 00 

P 





0100 

P005F 

68 03 



STA* 

F2 

O 

0101 

PC06G 

GC07 



ENQ 

7 

0102 

P0 061 

5817 



RTJ* 

MOVE 


0103 

P 0 0 62 

06 00 

P 

F2 

ADC 

ARL 


0104 

P 0 063 

G 0 A A 

P 


ADC 

Ml F 

O 

0106 

P0G64 

E 8 02 



LDG* 

B 


010 7 

PQ 065 

E6 00 

X 


lock 

L0G1A , 0, 

O 


P 0 0 6 6 

0 0 33 

X 




010 8 

P0067 

C 2 07 



LDA- 

7 1 Q 


0199 

P0 068 

0 F47 



ARS 

7 


0110 

PG069 

A 0 0 6 



ANQ- 

LPMAS K*4 

O 

0111 

P0Q6A 

5 8 1 F 



RTJ* 

GQNVRT 

0112 

PGQ6B 

6849 



STA* 

M1G+2 


0113 

0114 

P006C 

54F4 


* 

RTJ- 

CAMONIi 

O 

0115 

PG06D 

4C00 



NUM 

$4C0 0 

0116 

PG06E 

Q 0 0 0 


11 

ADC 

0,0 ,$18FB 



P0G6F 

00 0 0 







P 0070 

18 FB 





O 

0117 

P0 071 

GO 24 



ADC 

LL, Ml 


P0072 

0 0 91 

p 





0118 

P0 07 3 

C8FB 


LI 

IDA* 

Tl*-1 


0119 

P 01374 

0101 



SAZ 

GOBCK 

o 

0120 

P 0 0 7 5 

1 8 F D 



JMP* 

LI 

0121 

P0076 

1800 


GOBCK 

JMP 

A 


P0G77 FF 82 


o 


DATE: 08/19/99 

STATUS WORD 
GET R/W CODE 

START OF R/W MSG 

A = CLASS CODE 

MOVE CLASS CODE MESSAGE TO 


CONVERT TO ASCII 


STORE IT IN OUTPUT LINE 


FWRITE REQUEST 


WAIT 



RETURN TO START 


o 


N8700082 


N87Q 0 0 84 
N37Q 0 085 
N8700086 
N6700087 
N3700086 

N8700089 
NS70Q09G 
N8700091 
N 8700092 
N8700093 


N3700Q95 
N8700096 
N87Q0097 
N8700 098 
N37Q0Q99 

N37GG1D0 

N8700101 

OUT BUFFER N8700102 

N87Q01D3 

N87001G4 


NS 700106 
N870 0107 

N370 3108 
N870 010 9 
N870011 0 
N8700111 
N3700112 
NS700113 
N870011 4 
N8700115 
N 870 0 11 6 


N8700117 

N8700118 

N87Q0119 

N8700120 

N8700121 


O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LULIST 


PAGE 


4 


DATE'S 08/19/99 


0123 

PG 073 

0000 


HOVE 

NUM 0 SUBROUTINE TO HOVE BLOCK OF CORE 

012* 

POO 79 

C8FE 



LDA* MOVE 

0125 

P007A 

6DFF 



STA- I 

012 6 

PG07B 

C4FF 



LDA- 115 

0127 

P007G 

6309 



STA* MOVLH 

0128 

P007D 

C101 



LDA- 1,1 

0129 

P0 07E 

68 09 



STA* MOVLl+l 

013 0 

PO 07 F 

ODFE 


MOVC 

INQ -1 

0131 

Pfl 08 0 

0163 



SQP M GV L - * - 1 

0132 

P0081 

D8F6 



RAO* MOVE 

013 3 

PO 0 82 

D8F5 



RAO* MOVE 

0134 

P.00 83 

1CF4 



JMP* (HOVE) 

0135 

P0084 

C600 


MOVE 

LDA+ MOVE, Q 


PO 085 

0 0 78 

P 



0136 

PO 086 

6600 


M0VL1 

STA+ MOVE, Q 


P0087 

0 0 78 

P 



0137 

PO 088 

18F6 



JMP* MOVC 

0139 




* 

HEX TO ASCII CONVERSION 

0140 





A-REG = S00 TO $63 ON ENTRY 

0141 




* 

ROUTINE CONVERTS TO DECIMAL 

0142 




* 

AND RETURNS WITH ASCII CHARS IN A 

0144 

PO 089 

00 00 


CONVRT 

NUM 0 HEX TO ASC CONVERSION 

0145 

P008A 

ocoo 



ENQ 0 

0146 

PO Q8B 

3 0 46 



DVI- TEN MSB IN A, LSB IN Q 

0147 

P008C 

0FC8 



ALS 3 

0148 

P008D 

0 834 



AAQ A 

0149 

P0 08E 

8 0 00 



ADD =N$3030 TWO ASCII CHARS IN A-REG 


P0 08F 

3030 




0150 

P0090 

1CF8 



JMP* I CONVRT) 

0152 

P0Q91 

4C55 


Ml 

ALF 2,LU* 


PQ092 

2E2 0 




0153 

P0093 

4551 


M1B 

ALF 17, EQUIPMENT DESCRIPTION 


P0Q94 

5549 





PO 095 

5 0 40 





P0D96 

4 54E 





P0097 

5420 





PO 098 

4445 





PQ099 

53 43 





P009A 

5249 





P009B 

5.0 54 





P009C 

494F 





P009D 

4E2 0 





P009E 

2020 





P009F 

2020 





POO AO 

2020 





P00A1 

2020 





P00A2 

2 0 2 Q 





PG0A3 

2020 




0154 

PO 0 A 4 

5245 


MIA 

ALF 06, READ/WRITE 


POOA5 

4144 





N870Q123 

N8700124 

N8700125 

N8700126 

N87Q0127 

N870Q128 

N8700129 

N8700130 

N8700131 

N3700132 

N8700133 

N8700134 

N8700135 

N8700136 

N87DQ137 

N87Q0139 

N8700140 

N870Q141 

N87QD142 

N870Q144 
N870 0145 
N8700146 
N87Q0147 
N870B148 
NB700149 

N87Q0150 


N8700 152 
N8700153 


N870 0 154 


LULIST 


PAGE 5 


DATE: 08/19/99 


0155 


015 6 

015 7 
0158 
G159 


0 j 50 


0161 


P00A6 

2F57 





P0GA7 

5249 





POOA8 

5445 





P00A9 

2020 





POO AA 

434C 

HIE 

ALE 

08, CLASS GOOF 


POOAB 

41 53 





POO AC 

5320 





POO AD 

434F 





POOAE 

4445 





POOAF 

2020 





POOBO 

2020 





PO OBI 

2020 





P00B2 

2 0 45 

MIG 

ALP 

03, EQ NO 


PGGB3 

5120 





POO BA 

4E4F 






0 024 

LL 

EQU 

L L (*- Ml ) 


P00B5 

OCOD 

MSG 100 

NUM 

$ 0 C 0 D TOP OF 

FORM 

P00B6 

4D53 

MSGI31 

ALF 

1 7 , M S 0 S 5.0 LOGICAL 

UNIT LISTING FOR 

P00B7 

4F53 





P00B8 

2035 





P00B9 

2E3 0 





POOBA 

2 0 4C 





POOBD 

4F47 





POOBC 

4943 





POOBD 

41 4C 





PD OBE 

20 55 





POOBF 

4E49 





POOCO 

5420 





P00C1 

4C49 





PQ0C2 

53 54 





POOC3 

49 4E 





PG0C4 

4720 





POOC 5 

464F 





P0QC6 

5220 





P0QC7 

2020 

MSGID2 

ALF 

1 6 , 


P0QC8 

2020 





P00C9 

2020 





POOCA 

2020 





POOCB 

2 02 0 





POOCC 

2020 





POOED 

2020 





POOCE 

2020 





POOCF 

2020 





POODO 

20 2D 





P00D1 

2020 





P00D2 

2020 





P00D3 

2020 





P00D4 

2020 





P00D5 

2020 





POODS 

2020 





P00D7 

2020 

MSGID3 

ALF 

5, MM/OD/Y Y 


PO 008 

4D4D 





POOD9 

2F44 





POODA 

442F 






N870G155 


N87Q0156 


N 8700157 
N8700158 
N3700159 


N870 G16D 


N8700161 


LULIST 


PAGE 


6 


DATE 


08/ 19/99 


0153 

0164 

0165 
016 6 

0167 

0168 
0169 


0170 


POODB 5959 



0 0 DC 

P 

ARF 

POODC 

5246 



POODD 

49 45 



POODE 

4C44 



POODF 

2 0 3D 



POO EO 

2030 



POOE1 

52 45 



P0QE2 

4144 



P00E3 

2020 



POOE4 

4F4E 



POOE5 

4C59 



P00E6 

5752 



P0 0E7 

4954 



P00E8 

4520 



POOE9 

4F4E 



POOEA 

4C59 



POOEB 

5245 



P 0 0 EC 

4144 



PAGED 

2 F 57 



POO EE 

5249 



PGOEF 

5445 




OOFO 

P 

ALF 

POOFO 

3137 



P00F1 

3131 



P00F2 

2054 



PQ0F3 

4 5 4C 



P00F4 

4 5 54 



POOFS 

5950 



POOF6 

4557 



P00F7 

52 49 



P00F8 

5445 



POOF9 

5220 



POOFA 

2020 



PGOFB 

2020 



POOFC 

2020 



POOFD 

202Q 



POO FE 

2020 



POOFF 

2020 



P0100 

3137 



P0101 

3 231 



P01G2 

2F31 



P0103 

3732 



P QiO 4 

3220 



PfllO 5 

50 41 



P0106 

5045 



P0107 

5220 



P0108 

5441 



P01Q9 

5045 



P010A 

2052 



PO 10B 

4541 




EQU ARF 

ALF 0 5, RFIELD = 0 
ALF 05, READ ONLY 
ALF 05, WRITE ONLY 
ALF 05, READ /WRITE 
EQU ALFC*J 

ALF 16,1711 TELETYPEWRITER 

ALF 16,1721/1722 PAPER TAPE READER 


N8700163 

N870G164 

N8700165 

N8700166 

N8700167 

N8700168 

N870Q169 


N8700170 


LULTST 


PAGE 7 


DATES 08/19/99 


0171 


0172 


0173 


0174 


P010C 

4 4 45 





P010D 

5220 





P010E 

2020 





P010F 

2020 





PQ110 

3137 

ALF 

16,1723/1724 PAPER TAPE PUNCH 

2 

N8700171 

POlil 

3233 





PO 112 

2F31 





PQ113 

3732 





PO 114 

3420 





P 0 11 5 

5041 





PQ116 

5045 





PO 11 7 

5220 





P011 8 

5441 





P 0 1 19 

50 45 





P011A 

2050 





PO 118 

554E 





P011C 

4348 





P011D 

2020 





P011E 

20 20 





POUF 

2020 





PO 120 

3137 

ALF 

16,1752 DRUM UNIT 

3 

N87Q0172 

PO 1 21 

3532 





PO 12 2 

2020 





P 0123 

2020 





P 0 1 2 4 

2020 





P012 5 

4452 





P0126 

554D 





P0127 

2055 





P0128 

4E49 





PO 129 

5 42 0 





P 0 12 A 

2020 





P012B 

20 20 





P012C 

2020 





P012D 

2020 





P012E 

2020 





P012F 

2020 





PG13Q 

3731 

ALF 

16,71 3, 10/711-100/713-120 CRT 

4 

N8 70 0 173 

PO 131 

332C 





P 0 13 2 

3130 





PD 13 3 

2 F37 





P 0 13 4 

3131 





P 0 13 5 

2 D31 





PO 13 6 

3030 





P0137 

2 F37 





P0138 

3133 





PO 139 

2031 





P013A 

3230 





P013B 

2 0 43 





PQ13C 

5254 





P013D 

2020 





P013E 

2020 





P013F 

2 020 





PO 140 

3137 

ALF 

16,1738/853 DISK UNIT (1.5M5 

5 

N8700174 

P 0 141 

3338 







LULIST 


PAGE 


8 


DATES 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P 0 142 2F38 
P0 143 3533 
P0144 2020 
P 0 1 4 5 4449 
P 0 146 534B 
P0 147 2055 
P0 148 4E49 
P0 149 5420 
P014A 2 8 '31 
P014B 2E35 
P014C 4029 
P014D 2020 
P014E 2020 
P014F 2020 

0175 P0150 3137 
P0151 3531 
P 0 1 5 2 2044 
P 0 1 5 3 5255 
P0154 4020 
PO 155 2020 
P0156 2020 
P0157 2020 
P0158 2020 
P0 159 2020 
P015A 2020 
P015B 2020 
P0 15 C 2020 
P015D 2020 
P015E 2020 
P015F 2020 

0176 P0 160 3137 
P0161 3339 
PO 162 2D31 
P0 163 2020 
P0.164 2020 
PO 16 5 4341 
PO 166 5254 
P0167 5249 
P 0 16 8 4447 
P 0 1 69 4520 
P016A 4449 
P016B 534B 
P016C 2055 
P0 1 60 4E49 
P016E 5420 
P016F 2020 

0177 P 0 170 3137 
P0171 3338 
PO 172 2F38 
P0 173 3534 
P 0 174 2020 
P0175 4449 
PO 1 76 53 4 B 
P0177 2055 


ALF 16,1751 DRUM 


ALF 16,1739-1 CARTRIDGE DISK UNIT 7 


ALF 16,1738/854 DISK UNIT C3.1M1 


o 


o 

o 

o 

o 

o 

N 8 700175 

o 

o 

o 

o 

N8700176 

o 
o 
o 
o 
o 
o 
o 
o 


N8700177 


LULIST 


PAGE 
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DATES 08/19/99 


o 

Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P0178 4E49 
P0179 5420 
P017A 2833 
P017B 2E31 
P017C 4029 
P017D 2020 
P017E 2020 
P017F 2020 

0178 P 0 180 3137 
P0181 3331 
P 0 182 2F36 
P0183 3031 
P0 184 204D 
P0 185 4147 
P 01 86 4E45 
P 0 187 5449 
P0188 4320 
P0189 5441 
P018A 5045 
P018B 2020 
P018C 2020 
P018D 2020 
POISE 2020 
P018F 2020 

0179 P0190 534F 
P0191 4654 
P0 192 5741 
P 0 193 5245 
P0194 2020 
P0195 4255 
P0196 4646 
P 0 197 4552 
P0198 494E 
P0199 4720 
P019A 4445 
P019B 5649 
P019C 43 45 
PG190 2020 
P019E 2020 
P019F 2020 

0180 P01A0 434F 
P01A1 5359 
PG1A2 2055 
P 0 1 A 3 4 E49 
P01A4 5420 
PfllA 5 2020 
P01A6 2020 
P01A7 2020 
PD1A8 2 Q 2 0 
P01A9 2020 
P01AA 2020 
P01AB 2020 
P01AG 2020 
P 01 AD 2020 


ALF 16,1731/601 MAGNETIC TAPE 


ALF 16, SOFTWARE BUFFERING DEVICE 


ALF 16, COSY UNIT 


10 


o 


□ 

O 

N8 70 0 17 8 O 

o 

o 

o 

N870 0179 O 

O 

O 

O 

N87Q0180 O 

O 

o 

o 

o 

o 


LULIST 
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DATE3 08/19/99 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


PQ1AE 2020 
P01AF 2020 

0181 P01B0 3137 
P01B1 3238 
PD1B2 2F34 
P01B3 3330 
P01B4 2020 
P01B5 4341 
P01B6 5244 
PQ1B7 2052 
P01B8 4541 
P01B9 4445 
P01BA 522F 
P01EB 5055 
P01BC 4E43 
PQ1BD 4820 
P01BE 2020 
P01BF 2020 

0182 POICO 534F 
P01C1 4654 
P01C2 5741 
P01C3 5245 
P01C4 2020 
P01C5 434F 
P01C6 5245 
P01C7 2Q 41 
P01C8 4C4C 
P01C9 4F43 
P01CA 4154 
P01CB 4F52 
P01CC 2020 
P01CD 2020 
P01CE 2320 
P01CF 2020 

0183 PQ1D0 3137 
P01D1 3333 
P 0 102 2D31 
PG1D3 2F38 
P0iB4 3534 
PQ1D5 2044 
P01O6 4953 
P01D7 4B20 
PD1D8 554E 
P01D9 4954 
P01DA 2028 
P01D6 332E 
P01DC 31 4D 
P01.DD 2920 
P 0 IDE 2020 
P01DF 2020 

0184 P01E0 3137 
P01E1 3333 
P01E2 2 D32 
P01E3 2F38 


ALF 16,1728/430 CARD READER/PUNCH 12 


ALF 16, SOFTWARE CORE ALLOCATOR 13 


ALF 16,1733-1/854 DISK UNIT (3.1M) 14 


ALF 16,1733-2/856-2 DISK UNIT 12, 2M) 16 


N8700181 


o 
o 
o 
o 
o 

N87GG182 

O 

O 

O 

o 

N8700183 

O 

O 

o 

o 

N37Q0184 

O 

O 


LULIST 
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DATEi 08/19/99 


o 


° 

o 

o 

o 

° 

o 

o 

o 

o 

o 

° 

o 

° 

I o 
o 

o 


PG1E4 3536 
P01E5 2D 32 
P01E6 2044 
P01E7 4953 
P01E8 -4B2 Q 
P01E9 554E 
PD1EA 4954 
P01EB 2028 
P01EC 322E 
P01ED 324D 
P01EE 2920 
P01EF 2020 

0185 P01F0 3137 
P01F1 3333 
P01F2 2032 
P01F3 2F38 
P01FU 3535 
P01F5 2 D 34 
P01F6 2044 
P01F7 4953 
P01F8 4B20 
P01F9 554E 
P01FA 4954 
P01FB 2028 
P01FC 3 42E 
P01FD 354D 
P01FE 2920 
P Q IFF 2020 

0186 P0200 3137 
P0201 3432 
P0 202 2 03 3 
P 0 203 3020 
P020 4 4Ci*9 
P 0 205 4E45 
P 0 2 0 6 20 50 
P 0 20 7 5249 
P0 208 4E54 
P 0209 4552 
P020A 2020 
P020B 2020 
P020C 2020 
P020D 2020 
P020E 2020 
P 0 20F 2020 

0187 P021G 3137 
P0211 3432 
P 0 21 2 2031 
P 0213 3230 
P0214 2D4C 
P0215 494E 
PQ216 4520 
P0217 5052 
P0218 494E 
P0 219 5445 


ALF 16,1733-2/856-4 DISK UNIT (4*5M0 


ALF 16,1742-30 LINE PRINTER 


ALF 16,1742-120 LINE PRINTER 


15 


17 


18 


o 


N87001B5 


N870 0186 


N8700187 


o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


LULIST 
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DATES 08/19/99 


o 

o 

o 

o 

o 

o 

o 

° 

° 

o 

o 

o 

o 

o 

o 

o 


P0 21 A 5220 
P021B 2020 
P021C 2020 
P021D 2020 
P021E 2020 
P021F 2020 

0188 P0 220 3137 
P 0 221 3430 
PD222 2F35 
P0 223 3031 
P 0 22 4 2020 
PC 225 4C49 
P 0 22 6 4E45 
P0 227 2050 
PO 228 5249 
PC 229 4E54 
P022A 4552 
P022B 2020 
P022C 2020 
P022D 2020 
P022E 2020 
P022F 2020 

0189 P 0 230 3137 
P0231 3332 
P 0 232 2D32 
P0 23 3 2 F 36 
P0 234 3135 
P 0 235 2D 37 
P 0236 3320 
P0 237 4041 
P0 238 4720 
P0 239 5441 
P023A 5045 
PQ23B 2055 
P0 23C hE49 
PC 23D 5420 
P 0 23E 2020 
P023F 2020 

0190 P0 240 3137 
P 0 241 3332 
P 0 242 2D32 
P 0 243 2F36 
P 0244 3135 
P0 245 2039 
P0246 3320 
P024? 4041 
P 0 248 4720 
P0 249 5441 
PQ24A 50 45 
P024B 2055 
PQ24C 4E49 
P 0 240 5420 
P024E 2020 
P024F 2020 


ALF 16*1740/501 LINE PRINTER 19 


ALF 16*1732-2/615-73 MAG TAPE UNIT 


ALF 16,1732-2/615-93 MAG TAPE UNIT 


o 

' □ 

o 

N8700188 

o 

o 

o 

o 

N8700189 

O 

O 

O 

o 

N8700190 

O 

O 

o 

o 

o 

o 


LULIST 
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DATE! 08/19/99 


0 


o 

0191 

P0 250 

3137 



P0251 

3332 



P 0252 

2D31 

o 


P0253 

2F31 


P0254 

3730 



P0255 

362F 



P 0 25 6 

3630 

o 


P 02 57 

3820 


PB 258 

4255 



P 0 259 

4652 



P025A 

2 0 40 

o 


P025B 

4147 


P025C 

2E20 



P 0 250 

5441 



P0 25E 

5045 

o 


P025F 

2020 

0192 

P0260 

3137 



P0 261 

3 236 



P0 262 

2 F 34 

o 


P0 263 

3035 


P 026 4 

2020 



P0 265 

4341 



P0 266 

5244 

o 


P0267 

20 52 


PQ 268 

4541 



P0269 

4445 



P 026 A 

52 2 0 

o 


P026B 

2020 


P0 26C 

2020 



P026D 

20 20 



P026E 

20 20 

o 


P026F 

20 20 

0193 

P0 270 

3137 



PD 2 71 

3332 



P0 27 2 

2031 

o 


P 0 27 3 

2F36 


P0 27 4 

3038 



P0 275 

20 40 



PG 27 6 

4147 

o 


P0277 

2054 


P0278 

41 50 



P 0 279 

4520 



P 0 27 A 

554E 

o 


P027B 

4954 


PG27C 

2020 



P027D 

2020 



P027E 

20 20 

o 


P827F 

2020 

019 4 

Pfl 280 

3137 



P0 281 

3332 



P0282 

2D31 

o 


P0 283 

2F36 


P0284 

3039 



P0285 

204D 


o 


ALF 16,1732-1/1706/608 BUFR HAG. TAPE 


ALF 16,1726/405 CARD READIER 23 


ALF 16,1732-1/608 HAG TAPE UNIT 24 


ALF 16,1732-1/609 HAG TAPE UNIT 25 


N8700191 


o 



N37Q0194 


LULIST 
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DATE 


08/19/99 




P0 286 

4147 



P 02 87 

2054 



PO 288 

41 50 



P 0 289 

4520 



P 0 2 8 A 

554E 



PO 28B 

4954 



P028C 

2020 



P028D 

2020 



P028E 

2020 



P028F 

2020 

019 

5 

P 0 290 

3137 



P 0 29 1 

3133 



P0292 

2020 



PO 293 

2020 



PO 294 

20 20 



P 0 295 

5445 



P 0 296 

4C45 



P 0 297 

5459 



P0298 

5 0 45 



PO 299 

20 4B 



P029A 

4559 



P029B 

424F 



P029C 

4152 



P O 29 D 

4420 



P029E 

2020 



P029F 

2020 

019 

6 

P02A0 

3137 



P02A1 

3133 



P02A2 

2020 



P02A3 

20 2D 



P02A4 

20 20 



P02A5 

5454 



P02A6 

5920 



P02A7 

50 41 



P02A8 

50 45 



P02A9 

5220 



PD2AA 

54 41 



P02A8 

5 0 45 



P02AC 

20 50 



P02AD 

554E 



P02AE 

43 48 



P02AF 

2020 

019 

7 

PQ2BQ 

31 37 



P02B1 

3133 



P02B2 

20 20 



P02B3 

2020 



P 0 2 84 

20 20 



P02B5 

5454 



P02B6 

5920 



PD2B7 

50 41 



P02B8 

5045 



P02B9 

52 2 0 



P02BA 

5441 



P0 2BB 

5 0 45 


ALF 16*1713 TELETYPE KEYBOARD 26 


ALF 16,1713 TTY PAPER TAPE PUNCH 27 


ALF 16,1713 


TTY PAPER TAPE READER 28 


N 8700195 


N8 70 0 19 6 


N8700197 


LULIST 
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DATE; 08/19/99 


n 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P02BC 2052 
P02BD 4541 
P02BE 4445 
P02BF 5220 

0198 P02CQ 3137 
P02C1 3239 
P02C2 2 D32 
P02C3 2020 
P02C4 2020 
P02C5 4341 
P02C6 5244 
P02C7 20 52 
P02C8 4541 
P02C9 4445 
P02CA 5220 
P02DB 2020 
P02CC 2020 
P02CD 2020 
P02CE 2020 
P02CF 2020 

0199 P02DG 3137 
P02D1 3332 
P0 202 2D31 
P02D3 2F31 
P02D4 3730 
P02D5 362F 
P 0 2D 6 3630 
P02D7 3920 
P02D8 4255 
P02D9 4652 
P02DA 204D 
P0 2DB *147 
PQ20C 2054 
P02DD 4150 
P02DE 4520 
P02DF 2020 

0200 P02EQ 534F 
P02E1 4654 
P02E2 5741 
P02E3 5245 
P02E4 2020 
P02E5 4455 
P 0 2 £ 6 40 40 
P02E7 5920 
P02E8 41 4C 
P02E9 5445 
P02FA 524E 
P02EB 4154 
P02EC 4520 
P02ED 4445 
P02EE 5649 
P02EF 4345 

0201 P02F0 3336 
P02F1 342 D 


ALF 16, 1729-2 CAP.D READER 29 


ALF 16,1732-1/1706/609 BUFR MAG TAPE 30 


ALF 16, SOFT MARE DUMMY ALTERNATE DEVICE 31 


ALF 16,364-4/361-1 HDX COMM DEVICE 


o 


N8700198 ^ 

O 

O 

o 

N870 0199 ( -' 

o 

o 

o 

N3700200 O 

O 
O 

o 
o 
o 

o 


N8700201 



LULIST 


* AG E 16 


DATES 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P02F2 342F 
P02F3 3336 
P02F4 31 2D 
P02F5 3120 
P02F6 4844 
P02F7 5820 
P02F8 434F 
P02F9 4D4D 
P02FA 2044 
P02FB 4556 
P02FC 4943 
P02FD 4520 
P02FE 2020 
P02FF 2020 
0202 P0300 3336 
P 030 1 3420 
P 0 30 2 342F 
P0303 3336 
P 0 30 4 31 2D 
P0305 3420 
P0306 4644 
P0307 5820 
P0308 434F 
P0309 4D4D 
P03GA 20 44 
P030B 4556 
PD30C 4943 
P03GD 4520 
P030E 2020 
PG30F 2020 
020 3 P 0 310 313? 
P0 311 3432 
P0312 2D31 
P 0 3 1 3 204C 
P0314 494E 
P0 315 4520 
P 0 -3 1 6 5 0 52 
P 0 31 7 494E 
P0318 5445 
P 0 3 1 9 5220 
P031A 2020 
P031B 2020 
P03.1C 2020 
P031D 2020 
P031E 2020 
P031F 2020 
02 0 4 P0 32 0 3137 
P 0 321 3737 
P0322 2050 
P 0 3 2 3 4150 
PQ 324 4552 
P0 325 2054 
P0326 4150 
P0 327 4520 


ALF 16,364-4/361-4 FDX COMM DEVICE 


ALF 16,1742-1 LINE PRINTER 


ALF 16,1777 PAPER TAPE READER 


34 


o 


N87002D2 


N8700203 



O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


N8700204 


LULIST 
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dates 08/19/99 


o 


G 


o 


P0 328 

5245 





P0329 

4144 





P032A 

4552 



o 


PO 32 B 

2020 




PQ32C 

2020 





P032D 

2020 





P032E 

20 20 



o 


P0 32F 

2020 



020 5 

P0 330 

50 53 

ALF 

16, PSEUDO TAPE UNIT 



P 0 331 

4555 





P0332 

444F 



o 


P0 33 3 

20 54 




PQ334 

41 50 





P 0 335 

4520 





P0 336 

55 4E 



o 


P 0 337 

4954 




PG338 

2020 





P0 339 

2020 





P 0 3 3 A 

2020 



o 


P033B 

2020 




P033C 

2020 





P033D 

2020 





PQ33F 

2020 



o 

020 6 

P033F 

2020 



P 0340 

3137 

ALF 

16,1777 PAPER TAPE PUNCH 



P0341 

3737 




P0342 

20 50 



o 


P0 343 

4150 




P0344 

4552 





P0345 

20 54 





P0346 

4150 



o 


P0347 

4520 




P0 348 

5055 





P0349 

4E43 





P034A 

4820 



o 


P034B 

2020 




PQ34C 

2020 





PG34D 

2020 





PQ34E 

2020 



o 


PQ34F 

2020 



020 7 

PC 35 0 

3137 

ALF 

16,1729-3 CARD READER 



P 0 351 

3239 




P0 352 

2D33 



o 


P0 353 

2 0 43 




PQ354 

4152 





P0355 

4420 





P0356 

5245 



o 


P0357 

4144 




P0 358 

4552 





P 0359 

2020 





P035A 

2020 



o 


P035B 

20 20 




P035C 

2020 





P035D 

2020 



o 







35 


37 


6 


N8700205 


N87Q0206 


N87G 0 20 7 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


LULIST 


PflGF IB 


DATEi 08/19/99 


c 

ij 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P035E 2020 
P035F 2020 

0208 P 0 360 3137 
P 0361 3333 
P0362 2031 
P0363 2F38 
P0364 3533 
P0365 2044 
PO 366 4953 
P0367 4020 
P 0 368 554F 
P0369 4954 
P036A 2028 
P036E 31 2 E 
P036C 354D 
P036D 2920 
P036E 2020 
P036F 2020 

0209 P0370 3137 
P 037 1 3331 
P0 372 2F31 
P0 373 3730 
Pfl 374 3 62 F 
P0 375 3630 
P 0 376 3120 
P0377 4255 
P 0 3 7 8 4620 
P0379 4D41 
P 03 7 A 4720 
P0378 5441 
P037C 5045 
P037D 2020 
P037E 2020 
P037F 2020 

0210 PQ 380 3137 
P0381 3236 
P0 38 2 2F31 
PC383 3730 
P0 384 362F 
P0385 3430 
P0386 3520 
P0387 4255 
PC 388 4620 
P0389 4341 
P0 38 A 5244 
PG38R 2052 
P038C 4541 
P036O 4445 
P038E 5220 
P038F 2020 

0211 P 0 390 3137 
P0 391 3437 
PO 392 2044 
P0 393 41 54 


ALF 16,1733-1/853 DISK UNIT C 1 . 5H > 9 


ALF 16,1731/1706/601 BUF HAG TAPE 


ALF 16,1726/1706/405 BUF CARD READER 


ALF 16,174/ DATA SET INTERFACE 


N870 0208 


0 

1 ! 

O 
O 

o 
o 

N8700209 

o 

o 

o 

o 

N8700210 

O 

o 

O 

O 

N370G211 

o 

o 


o 


LULIST 


PAGE 


19 


DATE 


08/19/99 



P0 394 

4120 


P 0395 

5345 


PO 396 

5420 


P0397 

49 4E 


PO 398 

5445 


P0399 

5246 


P 0 3 9 A 

4143 


P039B 

45 20 


P0 39C 

2020 


P039D 

2020 


P039F 

2020 


P039F 

20 20 

0 212 

P03A0 

3137 


P03A1 

3 43 4 


P03A2 

2F32 


P03A3 

3734 


PO 3A4 

2 Q 44 


P03A5 

4947 


P03A6 

4947 


P03A7 

5241 


PO 3 A 8 

5048 


P03A9 

4943 


PG3 A A 

2 0 43 


P 0 3 A B 

4F4E 


P03AC 

534F 


P03AD 

4C45 


PG3AE 

2020 


P0 3AF 

20 20 

Q 21 3 

P03BQ 

3135 


P03B1 

3336 


P0 3B2 

20 4C 


P03B3 

4F57 


P03B4 

2 0 4C 


P03B5 

4556 


P03B6 

4540 


P03B7 

20 41 


PD3B8 

4-E41 


P03B9 

4C4F 


P03BA 

4720 


P03BB 

494E 


P03BC 

5055 


P03BD 

5420 


P 03 BE 

2020 


P03BF 

2020 

0214 

PG3CG 

3135 


P03C1 

3031 


P03C2 

2 0 48 


P03C3 

4947 


PG 3C4 

4820 


P03C5 

4C45 


P03C6 

5645 


P0.3C7 

4C2 0 


P03C8 

41 4E 


PQ3C9 

41 4C 


ALF 1 6* 1 744/274 DIGIGRAPHIC CONSOLE 


ALF 16,1536 LOW LEVEL ANALOG INPUT 


ALF 16,1501 HIGH LEVEL ANALOG INPUT 


N87QG212 


N87QQ213 


N870G214 


LULIST 
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DATES 08/19/99 


n 

‘s,,/ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P03CA 
P0 3CB 
P03CC 
P 0 3 CD 
P03CE 
P03CF 
P0 3D0 
PQ3D1 
P03D2 
P 0 30 3 
PQ3D4 
P03D5 
P03D6 
PQ3D7 
P03D8 
P03D9 
P03DA 
PO3D0 
P03DC 
P03DD 
P03DE 
P03DF 


0216 P03EO 3135 
P03E1 3434 
P03E2 2044 
P03E3 4947 
P03E4 4954 
P03E5 414C 
PQ3E6 2049 
PQ3E7 4E50 
P03E8 5554 
P03E9 2055 
P03EA 4E49 
P03EB 5420 
P03EC 2020 
P03EO 2020 
P03EE 2020 
PQ3EF 2020 

0217 P03FO 3135 
P03F1 3533 
P03F2 2 0 <+4 
P03F3 4947 
P03F4 4954 
P03F5 414C 
P03F6 204F 
P03F7 5554 
P03F8 5055 
P03F9 5420 
P03FA 554E 
P03FB 4954 


P03FC 2020 
P03FD 2020 
P03FE 2020 
P03FF 2020 


ALF 16,1536 REMOTE LOW LEVEL ANALOG I NP 


ALF 1 6-, 1 544 DIGITAL INPUT UNIT 


ALF 16,1553 DIGITAL OUTPUT UNIT 


N8700 215 


O 
O 
O 
O 
O 
O 

N87Q0216 

o 

o 

o 

o 

N8 70 0 21 7 

o 
' o 
• o 
o 
o 

' o 


LULIST 


PAGE 21 


DATE! 08/19/99 


o 

D 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0218 P 0 4 0 0 3135 
P0401 3535 
PG402 2052 
P 0 403 4540 
P0404 4159 
P.0405 20 4F 
P0406 5554 
P04Q7 5055 
P 0 4 0 8 5420 
PO409 55 4 E 
P040A 4954 
P040B 2020 
P040C 2020 
PG 400 2020 
P040E 2020 
P040F 2020 

0219 PG410 3135 
P0411 3636 
P0412 2044 
P0413 4947 
P0 414 4954 
P0415 4140 
P 0 416 2D 54 
P 0 417 4F2D 
P0418 414E 
P0419 4140 
PG41A 4F47 
P 04 18 2043 
PQ41C 4F4E 
P041D 5645 
PQ41E 5254 
P041F 4552 

022 0 P 0 42 0 3135 
P0 421 3 437 
PQ422 2045 
P0 423 5 645 
PO 424 4E54 
P0 425 5320 
P0 426 434F 
P0427 554E 
P 0428 5445 
P0 429 5220 
P042A 2020 
P042B 2020 
P042C 2020 
P042D 2020 
P.0 42E 2 0 20 
P042F 2020 

0221 P0 43 0 3135 
P0431 3935 
P0432 2053 
P 0 43 3 4552 
P0 434 4941 
P0435 4C20 


ALF 16,1555 RELAY OUTPUT UNIT 


ALF 16,1566 DI GI TAL-TO-ANALOG CONVERTER 


ALF 16,1547 EVENTS COUNTER 


ALF 16,1595 SERIAL I/O 


N3700218 


o 

□ 

o 
o 
o 

N87D0219 O 

o 

o 

o 

N8700 220 O 

o 

o 

o 

N8700221 O 

o 

o 


o 


LULIST 
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OATES 08/19/99 


o 

o 

o 

o 

° 

o 

o 

o 

o 

° 

o 

o 

o 


o 


o 

o 


P0 436 492F 
PG 437 4F2 0 
PQ438 2 D 20 
PQ439 2020 
P 0 43 A 2020 
P043B 2020 
P043C 2020 
P0 430 2020 
P043E 2020 
P043F 2020 

0222 P 0 440 3137 
P0441 3332 
PO 442 2 D3 3 
P0 443 2F36 
P 0 44 4 3136 
PQ445 2037 
P0 446 3220 
P0 447 4041 
P0 448 4720 
P0 449 5441 
P0 44 A 5045 
P044B 2020 
P044C 2020 
P0 440 2020 
P044E 2020 
PD44F 2020 

0223 P 0 450 3137 
P0451 3332 
P0 452 2033 
P G 45 3 2F36 
P 0 45 4 3136 
P0455 2039 
P0 456 3220 
P0 45 7 40 41 
P 0458 4720 
P0459 5441 
P045A 5045 
P045B 2020 
PD45C 2020 
P045D 2020 
P045E 2020 
P045F 2020 

0224 P0460 3137 
P 0461 3433 
P0 462 2032 
PD463 20 41 
P0 464 5359 
P0 46 5 4'E 2 0 
P.0466 43 4F 
P 0 46 7 40 4 D 
P0 468 2043 
P0469 4 F 4 £ 
P 0 46 A 5452 
P046B 2020 


ALF 16,1732-3/616-72 MAG TAPE 


ALF 16,1732-3/616-92 MAG TAPE 


ALF 16,1743-2 AS¥N COMM CONTP 


f 

“W 

o 

o 

o 

N 870 0 22 2 

o 

° 

o 

o 

N8700223 

o 
o 
o 
■ o 

N8700224 

o 

o 

o 

o 

o 


o 


LULISI 


PAGE 23 


DATE: 08/19/99 


o 


P046C 

2020 



P046D 

20 20 



P0 46E 

2020 

o 


P046F 

2020 

0225 

P0 <47 0 

3137 



P0 471 

3435 



PC 472 

2F32 

o 


P0 473 

3131 


P 0 474 

20 43 



P 0 47 5 

52 54 



P0476 

2020 

o 


P 0 477 

20 20 


P 047 8 

2020 



P 0 4 79 

20 20 



P0 47A 

20 20 

o 


P 0 4 7 6 

20 20 


P047C 

20 20 



P 0 470 

20 20 



P047E 

2020 

o 


PQ47F 

20 20 

022 6 

P043Q 

3137 



P0481 

32 3 5 



P0482 

2D31 

o 


P0483 

2 0 43 


P0 484 

4152 



P0485 

4420 



P0 4 8 6 

5055 

o 


PC 48 7 

4E43 


P0488 

4820 



P0 489 

2020 



P 0 4 8 A 

20 20 

o 


PG48B 

2020 


PQ48C 

2020 



P0 48D 

20 20 



P 0 48 E 

2 0 2 0 

o 


P048F 

2020 

0227 

P 0 49 0 

3137 



P0491 

3230 



P0 492 

2D31 

o 


P 0 4 9 3 

2050 


P 0 494 

41 50 



P0 h9 5 

4552 



P0496 

2054 

o 


P0497 

4150 


P0498 

4520 



P0499 

5245 



P 0 49 A 

41 44 

o 


P049B 

4552 


P049C 

2020 



P049D 

20 20 



P049E 

20 20 

o 


P049F 

2020 

0228 

P04A0 

3137 



P04A1 

3230 

o 




o 





ALF 16,1745/211 CRT 


ALF 16,1725-1 CARD PUNCH 


ALF 16,1720-1 PAPER TAPE READER 


ALF 16,1720-1 PAPER TAPE PUNCH 


N8700225 



N870D228 


o 


LULIST 
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DATE: 08/19/99 


o 
o 
o 
o 
f: o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 


P04A2 2D31 
P04A3 20 50 
P04A4 4150 
P04A5 4552 
P04A6 2054 
P04A7 4150 
PQ4A8 4520 
P 0.4 A 9 5.0 55 
PC4AA 4E43 
PQ4AB 4520 
P04AC 2020 
P04AD 2020 
P04AE 2020 
P04AF 2020 
0229 PO 480 4D41 
P04B1 474E 
P04B2 4554 
- P0 4B3 49 43 
P04B4 2054 
PG4B5 4150 
PD4B6 4520 
P04B7 5349 
P.Q4B8 4055 
PJ3 4B9 4C41 
P048A 544F 
P048B 5220 
P04BC 2020 
PQ4B0 2020 
P0 48E 2020 
P04BF 2020 
0230: PQ4CG 3137 
P04C1 3332 
P0 4C2 2D33 
P04C3 20 4C 
P04C4 4F4E 
P04C5 4720 
P04C6 5245 
P04C7 434F 
P04C8 5244 
PG4C9 20 4D 
P04CA 4147 
P04CB 2054 
P04CC 4150 
P04CD 4520 
P04CE 3754 
P04CF 5248 
0231 P04B0 3138 
P04D1 3130 
P04D2 2D31 
P04D3 204C 
PG4D‘+ 4941 
P0 4D5 5420 
P04D6 4352 
PG4D7 542F 


ALF 16, MAGNETIC TAPE SIMULATOR 


ALF 16,1732-3 LONG RECORD MAG TAPE 7TRK 


ALF 16,1810-1 L I A T CRT / PRINT ER 


I 


o 

o 

o 

N37G0229 

o 

o 

o 

o 

NS 70 0 230 

o 
o 
o 
o 
o 
o 
o 

o 


N8700 231 


LULIST 
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D A T c : Oii/ 13/9 9 


o 


o 

PO 408 

5 0 5? 


P 0 409 

49 up 


P 0 4 0 A 

5 4 4-5 

o 

P0 A.QP 

5220 


P04DC 

? n pn 


PO ADD 

2 0 20 


P Q an F 

2 0 2 0 

o 

P 0 40 F 

2Q20 

C 23 2 Pu^FC 

31 38 


PQ 4E1 

3 2 3 9 


P04F2 

2 D 3 3 

o 

P 0 4-F 3 

3 0 2 F 

P Q 4 F 4 

3 630 


P 0 4 F 5 

2 0 43 


P04E6 

415? 

n 

P04E7 

4420 


PO 4F* 

•32 P-5 


PO 4 F9 

4144 


P 0 4 F A 

45F2 

n 

P 0 4E R 

20 20 


P0 4EC 

2020 


PO LED 

20 20 


P 0 4F E 

20 20 


P04EF 

20 20 

kJ 

G 23 3 P04F0 

3138 


P04F1 

3237 


P04F2 

2033 

o 

P0 4F3 

30 2F 


P04F4 

3630 


PQ4F5 

2 0 4C 


PD4F6 

49 4E 

o 

P0 4F7 

4520 


P04F8 

5052 


P04F9 

494E 


P04FA 

5445 

n 

PQ4FB 

52 2 0 


P04FC 

2020 


P04FD 

2020 


P04FF 

20 20 

D 

P0 4FF 

20 20 


G 23 ^ P050 C 

3138 


P0 50 i 

363 0 


P0 50 2 

2 0 3 7 

o 

P 0 5 Q o 

3 2 2 0 


P 0 50 4 

4043 


P 0 5 0 5 

5454 


PQ506 

2 0 37 

n 

P 0 5 0 7 

5 4 4 E 


F 0 5 0 8 

20 40 


P G 5 0 9 

41 47 


P 0 5 0 A 

2 0 54 

o 

PQ 50 9 

41 50 


P 0 5 u 0 

4520 


PG 5l0 

20 2 0 


ALF 16 , i 829-16 /6G CAP.9 FF A D - R 


ALF 16,1827-30/60 LINE PRINTER 


ALF 16,1850-72 LCTT 7TK NAG TAPE 


O 


O 


o 

o 

o 

N * 7 o c 2 3 2 O 

O 

O 

O 

N87G0233 O 

O 

O 

O 

N8 70 0 23 4 O 

o 

o 

o 

o 

o 


LULIST 


PAGE 


DATF: Gd/l 9/9 n 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


PQ50E 2 G 20 
P 0 5 0 F 2 G ? 0 

CPS 5 PG510 313 8 
P0511 3630 
P 0 5 1 2 2039 
P051S 3? ?0 
P0514 ^C<-3 
PQ 5 1 5 5 454 
P 0 51 6 2039 
P 0 51 7 5 4 4 B 
P 05 1 8 20 4D 
PO 519 4147 
P051A 2054 
P051B 4150 
P051C 4520 
P0510 2020 
PQ51E 2020 
P051F 2020 

0236 P052Q 3138 
P0521 3332 
P 0 522 2035 
P0523 2043 
P0 52 4 4153 
P 052 5 5345 
P0526 5454 
P0 52 7 4520 
P0 52 8 4 D 41 
P 05 29 4720 
P 0 52 A 5441 
PQ52B 50^5 
P052C 2020 
P 0 520 20 2 0 
=>052“ 2 0 20 
P052F 20 20 

0237 P 0530 3138 
P0 53 1 33 3 5 
PD532 2035 
13 0533 2 0 46 
P 0 53 4 40 4 5 
P 0 5 3 5 5849 
P0 53C- 4 2^0 
P0 537 45 2 0 
° 0 5 3 B 4PP9 
P0 539 53 4B 
P 0 5 3 A 20 20 
PCS 3 9 20 2 0 
P 0 53 0 20 20 
PS-53 D 2 0 20 
P053F 2020 
P053F 2020 

023 8 P 0 5 4 0 31 38 
P 0 541 3333 
P 0 5 42 2D31 
P 0 5 4 3 2 0 53 


2 6 

ALF 16,1860-92 LC TT 9TK MAG TAPE 
ALF 16,1832-5 CASSETTE MAG TAPE 

ALF 16,1835-5 FLEXIBLE DISK 

ALF lb, 1833- j STORAGE MODULE DRIVE 25 HP 


i ) 
‘w 

O 

M 8 7 G G 23 5 

o 

; O 
O 

o 

N8700236 

o 

o 

: ° 

; O 

132^541 &**■*** 

o 
o 
o 
o 
o 
o 

o 


M87G C 238 


o 
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DATE: 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P 0 54 4 5 4 4 F 
P 0 5 4 5 9241 
P 0 54 6 4745 
P 0 547 20 40 
P 0 54 8 4F 44 
P 0 549 554C 
P 0 54 A 4520 
P 0 5 4B 4452 
P054C 4956 
P054D 4520 
P054F 5235 
P054F 4D42 

0239 P0550 3138 
P 055 1 3333 
P 0 552 2D 31 
PD553 2053 
P 0 55 4 544F 
P0555 5241 
P0556 4745 
P 0 557 20 4D 
P 0 55 8 4F44 
P0559 554C 
P055A 4520 
PD55B 4452 
PQ55C 4956 
P055D 4520 
P055F 3530 
PG55F 4D42 

0240 P 0 56 0 4431 
P0561 3845 
P 0 5 6 2 43 4 D 
PQ563 20 45 
P 0 56 4 5854 
P0565 454 E 
P 0 5 6 6 4445 
P0567 4420 
PQ568 434F 
pn569 5?45 
P 0 5 h A 2 0 44 
P 0 5 6 R 52^9 
P056C 5 n 5 
P G 5 o D 522 0 
P 0 56 F 2 0 20 
P056F 2020 

G?41 P0570 50 P3 
P 0 5 7 1 4 5 55 
P0572 4 4 4 F 
PQ573 2044 
P 0 5 7 4 4953 
P 0 5 7 5 49 7 0 
PQ576 4^5? 
POE 7 7 495b 
P 0 5 7 8 4552 
P 0 5 79 20 20 


ALF 16,1833-1 STORAGE MODULE DRIVE 50 M B 


ALF 16,01 8ECM EXTENDED CORE DRIVER 


ALF 16 , PS F.UDO DISK D°IV"P. 



N 870 0 23 9 


N 8 7 0 Q 24C 


N 8 7 0 0 2 ■+ 1 


o 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


LULIST 


PAGE 


28 


DATE: 08/19/99 



o 

PU5 7A 

20 2G 


P 057 9 

2 0 2 0 


PC 57 C 

2 0 2 D 

o 

P 0 5 70 

20 20 

P G 5 7 F 

2020 


P0 5 7F 

20 2 0 


0 1 T 7 p G 5 8 0 

3133 

o 

PU 581 

3 433 

PG 582 

2D 32 


P 0 5 3 3 

2 0 33 


P G 58 -+ 

2 0 43 

o 

P 0 5 8 5 

4841 

P 0 58 6 

4E4E 


P 0 5 87 

4 5 4 C 


P0588 

2 0 43 

o 

P0589 

4041 

P058A 

20 20 


PQ 58 B 

2020 


PG58C 

2020 

o 

P058O 

20 20 

P058E 

20 20 


P058F 

2020 


0243 P0590 

3138 

o 

PQ591 

3636 

P0 592 

2D31 


P0 593 

3420 


P0594 

4341 

o 

P0595 

52 54 

P 0 59 6 

5249 


PO 597 

4447 


P 0 5 9 8 

4520 

o 

P 0 599 

4449 

P059A 

534B 


PG59B 

2020 


P059C 

2020 

o 

PG5 9D 

2 020 

P059E 

20 20 


P0 59F 

2 Q 2 0 


0244 PQ5A0 

3138 

o 

PQ 5A1 

3 6 36 

P05A2 

2031 


PG BAS 

3 2 2 0 


P 0 5 A u 

43 41 

o 

P 0 5 A 5 

52 54 

P 0 5 A 6 

5249 


p D 5 A 7 

£& 4 4 / 


P 0 5 A 8 

45 2 G 

o 

P 0 5 A 9 

4 4^9 

P0 5 A A 

53 4 B 


P05AR 

20 20 


PG5AC 

2 0 2 0 

o 

P G 5 A D 

20 20 

Pu5i\ c 

20 20 


P0 5AF 

2020 


ALF 16,1343-2 8 CHANNEL CLA 


ALF 16,1866-14 CARTRIDGE DISK 


ALF 16*1866-12 CARTRIDGE DISK 


O 

O 


1 32*541 8 **■*»***?• 


o 
o 
o 
o 
o 
o 
o 

132*5418******** 

o 

o 

o 

o 

132*5-rl8** ****** 

o 

o 

o 

o 

o 


r v 



PAG? ?q hat [-' : u v 19/99 

ALF 15,13 27-7 HA TP I X INT r R 


ALF 16,501-12 TAB CARD PUNCH 


ALF 16, SPOOLED PRINTER DRIVER 


. ALF 1 6, 13 A3 -1 2 CHANNEL CLA 



o 


1 32 * 5 -rl 3 *****-** 1 ? O 

o 

o 

o 

132 * 5418 ******** O 

O 

O 

; ° 

132*5418******** • O 

' O 
‘ O 

o 

132*5413******** O 

o 

o 


o 


u 

LULIST 


J , 


P05E6 

4£4E 



PQ5E7 

454C 



P05.E8 

2 0 43 

o 


P05E9 

4C41 


P0 SEA 

2020 



P05EB 

20 20 



PQ5EC 

2 0 2 D 

O ' 


P05ED 

20 20 


P05EE 

2020 



P0 5EF 

2020 


0249 



o 

0250 


0 5 00 
0 Q 50 


0251 

P05F0 

55 4E 



PG5F1 

4445 

o 


P05F2 

4649 


P05F3 

4E45 



P0 5F4 

4420 



P05F5 

554E 

C \ 


P05F6 

49 5 4 

w 


P05F7 

20 54 



P0 5F8 

5950 



P05F9 

4520 

o 


P05FA 

20 20 


P05F9 

2020 



P05FC 

2 0 20 



P05FD 

2020 

o 


P0 5FE 

20 20 


P05FF 

2020 

o 

0253 

P 0 60 0 

4E4F 


P 0 60 1 

2 0 43 



P06G2 

4C41 



P 0 60 3 

5353 

o 


P 0 6 0 4 

2 0 43 


P0605 

4F44 



P 060 6 

4520 


0254 

P06G7 

4941 

o 


P 0 6 0 8 

4 7 4 : E 


P 0 6 0 9 

4554 



P 0 60 A 

4 943 



P060B 

2 0 54 

o 


P 0 6 0 C 

4150 


PQ6QD 

4520 


0255 

P0 60E 

4041 



P060F 

5353 

o 


P061Q 

2 0 53 


PG 611 

5 4 4F 



P 0 6.1 2 

52 41 



P0613 

4745 

o 


P0614 

2020 

025 6 

P0615 

4341 



PQ616 

5244 


o 


PAGE ■ 30 


OATES 08/19/99 


PUT ALL NEW ENTERICS BEFORE THIS CARO 
EQU ALFNLGi‘*-ALF) , ALFN ! ALFNLG/ 163 

ALF 16*UN0EFIN‘ED UNIT TYPE 38 


AiLF 07, NO CLASS CODE 


ALF 0 7, MAGNETIC TAPE 


ALF 07, HA SS STORAGE 


ALF 07, CARO RDR/PUNCH 


N8700242 

N8700243 

N8700244 


N8700246 


N870 Q 247 


N870G248 


N8700249 


o 

It' 7 ] 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 


o 


o 



o 

o 

o 

o 


o 

o 


N870025G 


N8700251 


N870 0 25 2 


N87G0253 


N8700254 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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DATE: 08/19/99 


Q 


O 



E Q U I V 

A l E N 

C E S 

o 




o 

def.line 

NAME 

VALUE 

0 000 

I 

00FF 


0015 

FEN 

00 46 


0015 

SEVEN 

000 5 

o 

0 015 

FIVE 

00 43 

0015 

SIX 

0044 


0 017 

LPMASK 

0 00 2 


0018 

AMONI 

0 0 F 4 

o 

015 7 

LL 

002 4 

0 250 

ALFNLG 

050 0 


0 250 

ALFN 

0050 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


REFERENCED AT LINE NUMBER 


( 0002553 

0125, 

0126 

( 00 007 03 

0146 


( 0000053 

0097, 

0098 

(0000673 

0 0 87 


( 0000683 

0 0 85 


(0000023 

0 110 


( 0Q02443 

0037, 

0044, 0114 

(0000363 

0047, 

0117 

(0012803 

0250 


T 0 0 0 08 03 

0069, 

0 072 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


i \ 

Vj 








O 



LULIST 
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DATES 

08/19/99 

PH 

l w .‘ 

5 Y M B 0 

L S 






LJ 

o 








o 


DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 


O ' 

0 0 20 

LULIST 

0 00 0 

0020 




1 o 


0 023 

MOV ID 

0 001 

0 027 






0028 

IDMOVD 

00 08 

0 026 





o 

C 0 4 6 

ro 

0022 

0 048 




o 

0 048 

LQ 

0027 

0050 





0 051 

A 

00 2 A 

0 0 49, 

0121 





0 057 

21 

0031 

0 0 55 





o 

0062 

8 

00 37 

0 051, 

0053, 

QG57, 

Q 076, 

0106 0 

0 0 63 

XQ 

0038 

0 060 , 

0066, 

0084, 

0 095 

1 

0 064 

EXIT 

0039 

0 0 56 






0 066 

3 

0038 

0061 





o 

0 072 

TYPE 

0042 

0070 




O 

0 081 

E 

00 4C 

0 075 





0 092 

F 

0057 

0 089 






0 103 

F 2 

0062 

0100 





° 

0116 

n 

006E 

0118 




O 

0118 

Ll 

0073 

0120 





0121 

GOBCK 

0076 

0119 






0123 

MOVE 

0 078 

0080, 

0091, 

0102, 

012 4, 

0132, 0133, 0134, 0135, 0136 

o 

0 13 0 

MOVC 

0 0 7 F 

0137 




o 

0135 

MOV’L 

008 4 

0127, 

0131 




0136 

MOVL1 

0 0 8 6 

0129 






0144 

GONVRT 

0 0 89 

0077, 

0111, 

0150 



o 

0152 

Ml 

0091 

0 0 47, 

0078, 

0117, 

0157 

o 

0153 

Ml B 

0093 

0 0 82 





0154 

Ml A 

0 0 A 4 

8093 






0 155 

Ml F 

0 0 A A 

0104 





o 

0156 

MiG 

£03? 

0 112 




o 

0158 

MSG I QO 

0085 

0 0 43 





0159 

MS G ID 1 

0086 







0 160 

MSGID2 

D 0 C 7 

0 024 





o 

0161 

MSG 103 

0 0 07 

0 0 29 , 

0031 , 

0035, 

0 036 

o 

0163 

A RF 

0 0 D C 

0088, 

0 092 




0168 

ALF 

0 0 F 0 

0074, 

0 081, 

0250 




0 253 

ARL 

0600 

0099, 

010 3 




o 








o 

o 








o 

o 








o 

o 








o 

o 








o 
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DATEJ 08/19/99 



o 

o 

o 

o 

o 


REFERENCED AT LINE NUMBER 


0 028 
0 033 
0 030 
0 023 

0054, 0058, 0107 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 




LULIST 


PAGE 

35 


DATEJ 08/19/99 

o 

*** A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H B 

0 L S 



o 

A 

0051 

ALF 

0168 

ALFN 

0 250 

ALFNLG 

0 250 

AMONI 

0018 

D 

0056 

E 

0 081 

EXIT 

0 0 64 

F 

0092 

F 2 

0103 


L3 

0 048 

Li 

0118 

LL 

0 1 5 7 

LOG1 A 

0 019 

LPMASK 

0017 


M1F 

0155 

MIG 

0156 

MOVC 

0130 

MOVE 

0123 

MOVID 

0023 

f~\ 

MSGID3 

0161 

MSGIOO 

0 158 

SEVEsi 

0015 

SIX 

0015 

SYS DAY 

0016 


T 1 

Oil 6 

TEN 

0015 

TYPE 

0072 

XQ 

0063 

ZZ 

0057 


o 
o 
o 
o 
o 
° 
o 
o 
o 
o 
o 
i o 

o 


ARF 0163 

FIVE 0015 

LULIST 0 020 

MOVL 0135 

SYSIO 0016 


ARL 0253 
GOBCK 0121 
Ml 0152 
MOVL 1 0136 
SYSMGN 0016 


8 

0 062 

I 

0 000 

MIA 

0154 

MSGIOl 

0159 

SYSYER 

0016 


CONVRT 0144 
I DM OVD 0028 
Ml B 0153 

MSGI02 0160 
TO 0046 


o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


OPSORT 


PAGE 


i 


DATE: 08/19/99 





SUMH ART-110N88 G 0 00 1 

o 

N880G002 


N8 8 0 0 0 0 3 


N880QGD4 

o 

N88G 0006 


N880 0008 

o 

N8800009 ' 


N88G001G 


N880G011 

o 

N38G0012 

N8 8 00013 


N88Q0014 


N8800D15 


N3800Q16 

o 

N88GGQ17 


N8800018 


N8800019 

o 

N880 0020 

N8800021 


N88Q0022 


N88G0023 

o 

N8830024 

N880 D 025 


N880 0 026 


N880G027 

o 

N3800028 


¥ *MSGS 4* 0N88D0 029 

o 


o 

N8800030 


N880 0031 

o 

N880 0 03 2 


N8300033 

o 

N8800034 


N880 0 035 


N 8800036 

o 

N880 0037 


N3800Q38 


N8800039 

u 


o 

O 


OPSORT 


PAGE 


2 


DATE! 08/19/99 


0040 

0041 

0042 

0043 

0044 
00 4 5 

0046 

0047 

0048 
00 49 

005 0 

0051 

0052 

0053 
00 5 4 

0055 

00 56 
BO 57 

0058 

0059 

0060 

006 1 

006 2 

0063 

0064 

0065 

0066 
006 7 
0068 

0069 
00 7 0 
0071 
00 7 2 

0073 

0074 
00 75 
00 7 6 
00 77 

0078 

0079 

0080 


P001C 

E8 CO 


LDQ 

PRGNAM 

P001D 

0171 




P001E 

0145 


SQZ 

NUMCK1 

P001F 

0 F48 


ARS 

8 

P002Q 

AO OA 


AND- 

HO 0 FF 

P0Q21 

0 9 BF 


IN A 

-$40 

P0 022 

0131 


SAM 

1 

P0023 

1 8E2 


JMP* 

8GNRQ*6 

P0024 

C800 

NUMCK1 

LD A 

BUFFa-l 

P 0 02 5 

00 AO 




P0026 

OF 48 


ARS 

8 

POO 27 

B 0 30 


EOR- 

Bill 4 

PO 0 23 

6800 


STA 

GHRBF*2 

P 00 29 

0 0 93 




P 0 0 2 A 

C 8 0 0 


LDA 

BUFFH 

PO 02 B 

0 0 9A 




P002C 

0FC8 


ALS 

8 

PO 0 2D 

A 01A 


AND- 

HFFOO 

P002E 

6800 


STA 

CHRBF+3 

P002F 

GO BE 




PO 03 0 

C8 0 0 


LDA 

BUFFtf-2 

P 0 03 1 

0095 




P 0 03 2 

0FC8 


ALS 

8 

PO 0 33 

AO 1A 


AND- 

HFFOO 

P003 4 

680 0 


STA 

BUFF 

P 0 0 3 5 

0 08F 




PO O 36 

C 8 0 D 


LDA 

CHRBF^-4 

PO 037 

0 0 87 




PO 038 

AO 1 A 


AND- 

HFFOO 

P0Q39 

98 00 


SUB 

BUFF 

P003A 

0 0 8A 




PO 03 R 

0111 


SAN 

1 

PO 03 C 

13C9 


JMP* 

BGNRD + 6 

P0Q3D 

C 8 0 0 


LDA 

BUFF*- 2 

PO 03E 

0088 




P003F 

OF 48 


ARS 

8 

P 0 0 4 0 

B87D 


EOR* 

CHR8F+3 

P0041 

687C 


STA* 

C HR BF * 3 

POO 42 

C8 00 


LDA 

BUFFf 2 

PO 043 

0 0 83 




PO 0 44 

0 F 'C8 


ALS 

8 

POO 45 

AD1A 


AND- 

HFFOO 

PCQ46 

0 920 


INA 

$20 

P 0 0 47 

6877 


■ STA* 

CHR8FS-4 

PO 048 

OCOA 


ENQ 

10 

PO 0 49 

40 FF 


STQ- 

I 

PG04A 

C97A 


LOA* 

BUFF, I 

PO 0 4 B 

AO 1A 


ANO- 

HFFOO 

P004C 

B 0 0 0 


EDR 

= N$2A0 0 

P0Q4D 

2A0 0 




P0G4E 

cm 


SAN 

1 

PQ04F 

18B3 


JMP* 

BGNRD+3 

PO 0 50 

C974 

NXTWRD 

LDA* 

BUFF, I 


HAS THE NAM CARD BEEN READ 
NO » CONTINUE SEARCH 


MEMORY MAP 


NO, OUTPUT A BLANK PLUS 
ONE CHAR. OF LOC. FLD. 


OUTPUT 2ND CHAR OF LOC. FLD. 


IS TH IS RECORD WITHIN A 
MACRO 

YES, READ NEXT RECORD 
OUTPUT 3RD CHAR. OF LOC. 


OUTPUT LA 

ST CHAR 

OF 

LOC . 

LOCATE TO 

THE 

FIRST 

WORD 

OF LABEL 

FLD. 




CHECK FOR 

AN 

ASTERI 

K 

COMMENT C 

ARD 

GET 

NE 

XT R£C 


**MSOS 

**MSOS 


**MSOS 


N8800040 

N8800041 
N8800042 
N88Q0 043 
N3800Q44 
N8800045 
N8800 046 
N8800047 

N8800048 

N8800049 

N8300050 

N8800Q51 

N88GG 052 
N880G053 
N8800 054 

N88G0055 

N8BQ0Q56 
N8800057 
N8800 058 

N8800059 

N8B00060 

N8800061 

N8800062 

N88Q0G63 

N8800Q64 

N8800065 
4. GN880G066 
4. 0N880D067 
N880G 068 

N8800069 
N880Q070 
N88G0071 
N88B0072 
N8800 073 
N880 0 074 
4.0N8R0Q075 
N8800076 
N88Q0Q77 

N8800Q78 

N3800079 

N88G0Q80 


OPSORT 


PAGE 


3 


OATES 08/19/99 


0081 

PA 05 i 

A 0 1A 


AND- 

HFFOO 

003 2 

P0052 

BO 3 0 


EOR- 

BIT 14 

0083 

P 0 053 

0113 


SAN 

3 

008 4 

PG054 

0 A01 


ENA 

1 

0085 

P 0 0 5 5 

6862 


ST A* 

CHRFLG 

0086 

P 0 0 5 6 

1 80 A 


JMP* 

OPC DSR 

003 7 

POO 57 

C96D 


LOA* 

BUFF, I 

0088 

POO 58 

AGO A 


AND- 

HDOFF 

0089 

P0059 

0 9 DF 


I N A 

-320 

0090 

P005A 

0113 


SAN 

3 

0091 

P005B 

0 A 0 0 


ENA 

0 

0092 

P005C 

68 5B 


STA* 

CHRFLG 

0093 

P005D 

1803 


JMP* 

OPCDSR 

0094 

P005E 

OOFF 


RAO- 

I 

0095 

P005F 

1 3 FO 


3MP* 

NXTWRD 

0096 

P 00 60 

F 8 57 

0PCC3R 

LDQ* 

CHRFLG 

0097 

P0061 

01 46 


SQZ 

CNTSR 

0098 

P0062 

C962 


LDA* 

BUFF, I 

0099 

P0063 

AO OA 


ANB- 

HQGFF 

0100 

POO 64 

BO 28 


EOP- 

BITS 

0101 

PO 065 

0 1 1 A 


SAN 

FLOCK 

010 2 

P 0 066 

0 8 44 


CL R 

A 

0103 

POD 67 

6850 


ST A* 

CHRFLG 

0104 

P 00 68 

DOFF 

CNTSR 

RAO- 

I 

010 5 

P0069 

C958 


LDA'* 

BUFF, I 

0106 

PGQ6A 

AG1A 


AND- 

HFFOO 

0107 

P006B 

BO 30 


FOR- 

BIT14 

010 8 

P0 06C 

0113 


SAN 

FLOCK 

0109 

P006D 

0C01 


END 

1 

0110 

PO 06 E 

4849 


STQ* 

CHRFLG 

0111 

P006F 

1 8F2 


DMP* 

OP" DSR*- 2 

0112 

P0070 

E 848 

FLOCK 

LDQ* 

0 FFLG 

0113 

PO 071 

01 41 


SQZ 

1 

0114 

P 0 072 

1800 


3 HP 

OPRND 


PO 073 

0 097 




Oil 5 

P00 74 

COFF 

ENDCD 

LDA- 

I 

0116 

P0D75 

68 43 


S T A v 

OPFLG 

Oil 7 

POO 76 

C 8 41 


LDA* 

CHRFLG 

0118 

PO 077 

0101 


SAZ 

1 

0119 

PAG 78 

1 BID 


UMP* 

CNTSR1 

0120 

P 0 079 

C9 4B 


LDA* 

BUFF, I 

0121 

P007A 

9838 


5UB* 

£N 

012 2 

PG G7B 

01 13 


SAN 

3 

0123 

P007C 

C949 


LDA* 

BUFFt-l, I 

0124 

P0 0 7D 

9837 


SUB* 

DBLK 

0125 

P007E 

0104 


SAZ 

COMP 

012 6 

PG07F 

0945 


LOA* 

BUFF, I 

012 7 

PO 0 80 

683 A 


STA* 

CHRBF 

0128 

PO 081 

DOFF 


RAO- 

I 

0129 

PO 0 82 

1 8 0 D 


JMP* 

CON Pi 

013 G 

PO 083 

0 A 0 1 

COMP 

ENA 

1 

0131 

PO G 84 

6800 


STA 

LSTRD 


PQ085 

1029 





CHECK FOR A BLANK CHAR. 
TERMINATING A FIELD 

SWITCH CHAR* FLAG 


SWITCH CHAR. FLAG 

BEGIN CHECK FOR NON-BLANK 
CHAR.- 1ST WRD. OF OPCODE 


SWITCH CHAR. FLAG 


SWITCH CHAR FLAG 

SEARCHING FOR OPERAND OR 

OPCODE 

OPERAND 


END CARD CHECK 


OUTPUT OPCODE 


END CARO FOUND, WRITE ALL 
PARTIALLY FILLED BUFFERS 


N8800081 
N880GG82 
N8800 983 
N880 0 08 A 
N880 0 085 
N8800 086 
N8 80 0 087 
N8830Q88 
N88D0 089 
N8800G90 
N8800091 
N880GG92 
NB80GQ93 
N8BQ0Q94 
N88G0 095 
N8B00096 
N880D097 
N8800098 
N88Q0 099 
N 8800100 
N880Q1G1 
N88G0102 
N880G1G3 
N88SG104 
N88G01G5 
N88001D6 
N88001G7 
N8800108 
N880G109 
N8800110 
N8800111 
N380G 112 
N8800113 
N880G114 

N880G11 5 
N88Q0116 
N380G11 7 
N8890118 
N880G119 
N88DQ120 
N38C0121 
N86GQ122 
N880G123 
N88G0124 
N88G0125 
N8B00126 
N88Q 0127 
N8800128 
N8800129 
N88QG13D 
N88G0131 


OPSORT 


PAGE 


4 


DATE3 08/19/99 


0132 

PO 086 

0 A 0 0 


ENA 

0 

0133 

P0087 

6 8 G 0 


ST A 

SEC AD 2 


P 0088 

1025 




0134 

POO 89 

C 8 0 0 


LOA 

BFTAB 


P 0 08 A 

0105 




0135 

PQ08B 

6800 


STA 

SECAD 


P008C 

1 0 IE 




0136 

P008D 

1800 


JMP 

WRTSC5 


P00 8E 

10 50 




0137 

P008F 

C935 

COM PI 

LD A* 

BUFF, I 

013 8 

P 0090 

6 8 2 B 


STA* 

CHRBFn 

0139 

P 0 0 9 1 

58 65 

CQMP2 

RTJ* 

MCROCK 

0140 

PO 0 92 

0 A 0 1 


ENA 

1 

0141 

PO 0 93 

6825 


ST A* 

OPFLG 

0142 

POO 94 

18CB 


JMP* 

QPG DSR 

0143 

PO 0 9 5 

0 8 44 

CNTSR1 

CLR 

A 

0144 

PO 0 96 

6821 


STA* 

CHRFLG 

0145 

PO 097 

C92D 


LDA* 

BUFF, I 

0146 

P 0 0 98 

OCOO 


ENQ 

0 

0147 

PO 099 

0FE8 


LLS 

8 

0148 

P009A 

6820 


STA* 

CHRBF 

0149 

P009B 

DOFF 


RAO- 

I 

0150 

P009C 

C 9 28 


LDA* 

BUFF, I 

0151 

P0 09D 

OF 48 


ARS 

8 

0152 

POG9E 

B 8 1C 


FOR* 

CHRBF 

0153 

P009F 

6 8 1 B 


STA* 

CHRBF 

0154 

POOAQ 

9812 


SUB* 

EN 

015 5 

P 0 0 A 1 

0114 


SAN 

4 

0156 

POO A2 

C922 


LOA* 

BUFF, I 

0157 

PO 0 A3 

9810 


SUB* 

ND 

0158 

PO 0A4 

0111 


SAN 

1 

0159 

PO 0 A 5 

1 8 DD 


JMP* 

COMP 

0160 

POO A6 

C91E 


LD A* 

BUFF, I 

0161 

PO 0A7 

OCOO 


ENQ 

0 

0162 

PO 0 A3 

0FE8 


LLS 

8 

0163 

P00A9 

6812 


STA* 

CHRBFh-1 

0164 

POO AA 

DOFF 


RAO- 

I 

016 5 

P0QA8 

C919 


■ IDA* 

8UFF , I 

0166 

PGOAC 

OF 43 


ARS 

8 

015 7 

PO 0 AD 

B8 OE 


FOR* 

CHRBF + 1 

0168 

PO OAE 

68 OD 


STA* 

CHRBF*1 

0169 

PO OAF 

0 A 0 1 


ENA 

1 

0170 

POOBO 

6807 


STA* 

CHRFLG 

01/1 

PG.GB1 

18 DF 


JMP* 

C0MP2 

0172 

PQ0B2 

454E 

EN 

NUN 

S454E 

0173 

P00B3 

4E44 

ND 

NUM 

$4E44 

01/4 

P0GB4 

4420 

DBLK 

NUM 

$4420 

01/5 

P00B5 

2 G 2 0 

BLANKS 

NUM 

$2020 

0176 

POOB6 

2A2A 

ASTKS 

NUM 

$2A2A 

01/7 

PDQB7 

0 0 0 0 

CHRFLG 

NUM 

0 

0178 

PO 0B8 

00 00 

OPFLG 

NUM 

0 

01/9 

POOB9 

QO 00 

COUNT 

NUM 

0 

0180 

PO DBA 

0 0 OA 

CHR8F 

BSS 

CHRBF 11 


ON MASS STORAGE 


OPGODE NOT END CARO 
CHECK RECORD FOR HACRO 
NOT A HACRO 

GO CHECK FOR 1ST OPERAND 
HALF WORD SEARCH 


END CARD RECORD 
NO, OUTPUT ONE WORD 

OUTPUT THE 2ND WORD 

SWITCH CHAR. FLAG 
CHECK FOR HACRO 


N880G 132 
N88Q0133 

N6800134 

N380013 5 

N3800136 

N8 60 0 137 

N38QG138 

N8800139 

N880 0 1^0 

N 8 800141 

N3800142 

N888G143 

N3800144 

N88Q0145 

N88Q0146 

N 880 G 1 47 

N8800148 

N880 G149 

N888G150 

N8800151 

N38Q0152 

N880G153 

N88G 0154 

N88G0155 

N88QQ156 

N88G0157 

N88GQ158 

N38Q0159 

N8800160 

N8800161 

N880 0162 

N 8 800163 

N8800164 

N8800165 

N880G166 

N8800167 

N88G01&8 

N88G0169 

N880017C 

N 8 800171 

N880G172 

N 880 8 17 3 

N8600174 

N8800175 

N88G0176 

N88G0177 

N880Q178 

N8800179 

N880018G 


OPSORT 


RAGE 


5 


DATEJ 08/19/99 


C 

s„<‘ 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0181 

P00C4 

0 0 32 

BUFF 

BSS 

BUFF? 503 

018 2 

P00F6 

0 000 

MCROCK 

0 

Q 

0183 

PO0F7 

C8C3 


LOA* 

QHRBF^l 

018 4 

P00F8 

OF 44 


ARS 

4 

0185 

P00F9 

A0 06 


AND- 

H000F 

018 6 

P0QFA 

B 0 24 


EOR- 

BIT 2 

0187 

P00F8 

0111 


SAN 

1 

0188 

P00FC 

1CF9 


JHP* 

C MCROCK > 

0189 

P00FD 

OCOO 


END 

0 

0190 

P00FF 

C8C6 


LDA* 

BUFF+-1 

0191 

P00FF 

6 A 0 0 


STA 

TITLE, Q 


P01GG 

00 D5 




0192 

P0101 

0D01 


INQ 

1 

0193 

P0 10 2 

CSC 3 


LOA* 

BUFF*-2 

0194 

P0103 

6A0 0 


STA 

TITLE, Q 


P0104 

0 0 D1 




0195 

P01D5 

0 D 0 2 


INQ 

2 

0196 

P0106 

C8B1 


LDA* 

OPFLG 

0197 

P 0 ID 7 

60 FF 


STA- 

I 

0198 

P0 108 

1800 


JMP 

DONE1-1 


P0109 

0 0 B6 




0199 

P010A 

E8 AC 

OPRNO 

LDQ* 

CHRFLG 

020 0 

P010B 

0145 


SQZ 

LFTPN-*- 

0201 

P01QC 

A0 0A 


AND- 

H00FF 

020 2 

P010D 

0 9D7 


I N A 

-$28 

0203 

P010E 

0111 


SAN 

1 

0204 

P010F 

1811 


JMP* 

0PRND2 

0205 

P0110 

1812 


UMP* 

0PRND4 

020 6 

P0111 

C9B2 

LFTPN 

LI) A' 5 * 

BUFF, I 

0207 

P0 112 

A Q 1 A 


AND- 

HFF00 

0208 

P0113 

B0 0 0 


EOR 

= NS 28 0 0 


P0114 

2 80 0 




0 20 9 

P0 115 

0101 


SAZ 

LFTPN1 

0210 

P0116 

18 02 


JMP* 

OPRND1 

0211 

P0117 

18 0B 

LFTPN1 

JMP* 

OPRND4 

0212 

P 0 11 8 

0 CFA 

OPRNOl 

ENQ 

-5 

0213 

P0119 

C9 A A 


LD A* 

BUFF, I 

0214 

P011A 

6AA9 


STA* 1 

CHRBF+1 0 

0215 

POUR 

DOFF 


RAO- 

I 

0216 

P011C 

0D01 


INQ 

1 

0217 

PQ11D 

01 61 


SQP 

1 

0213 

P 0 1 IE 

1 8F A 


JMP* 

OPRNQl^i 

0219 

P011F 

18 0 F 


JHIP* 

BUFA0 

0220 

PO 120 

DOFF 

OPR ND 2 

RAO- 

I 

0221 

P0121 

1 8F6 


UMP* 

OPRND1 

0222 

P0 122 

0 AO 0 

QPRNB4 

ENA 

0 

0223 

P0123 

6895 


STA* 

COUNT 

0224 

P0124 

E99F 

0PRND5 

LOQ* 

BUFF, I 

022 5 

P0125 

DOFF 


RAO- 

I 

0226 

PQ126 

C99D 


LD A* 

BUFF, I 

0227 

P 0127 

0 F 68 


LRS 

8 

0228 

PO 128 

E890 


LDQ* 

COUNT 

0229 

P0129 

6A95 


STA* 

GHR3F+5 , l 


IS THIS RECORD A MACRO 
YES 

PICK UP THE LOCATION OF 
THIS MACRO 


CHECK FIRST OPERAND WORD 
FOR A LEFT PAREN. 


OUTPUT COMPLETE WORDS 

CHAR. BUFFER FILLED 
YES, 

OUTPUT HALF WORDS 


N8800181 
N88Q0182 
N8800183 
N8800184 
N88C0185 
N3800 186 
N88Q0187 
N8800188 
N8800189 
N8800190 
N6800191 

N3800192 

N3800193 

N880Q194 

N88G0195 

N3800196 

N88QQ197 

N88Q0198 

N880 0199 
N8800 200 
N6800 201 
N8800202 
NSS902Q3 
N38Q 0 20 4 
N888G2G5 
N8800206 
N880 0 20 7 
N8800208 

N8800209 
N88Q0210 
N880S211 
N8800212 
N8800213 
N8800214 
N8800215 
N88Q021 6 
N88QQ217 
N380G218 
N8 80 0 21 9 
N 880 0 22 G 
N8 80 0 221 
N8800222 
N88 00223 
N88QG224 
N8800225 
N8800226 
N8800227 
N8800228 
N8 80 0 229 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

OPSORT P AG£ 6 


u 

0230 

P 0 1 2 A 

D38E 


RAO* 

COUNT 


0231 

P012B 

ODFB 


INQ 

-4 


0232 

P012C 

01 41 


SQ7 

1 

o 

0233 

P012D 

1 8F6 


JMP* 

0PRND5 

0234 

F012E 

ocoo 

BUFAD 

END 

0 


G 2 3 5 

P012F 

485C 


STQ* 

BFAOD 


0236 

P 0 13 0 

48 5C 


STQ* 

BFADD1 

o 

G 2 3 7 

P 0 131 

C88D 


LDA* 

CHRBF+5 

0238 

PO 132 

QFC1 


ALS 

1 


0239 

P0133 

0131 


SAM 

1 


0240 

P0 13 4 

1811 


JMP* 

B UFA 02 

o 

0241 

P0 13 5 

0 FCi 


ALS 

1 

0242 

P0 136 

0121 


SAP 

1 


0243 

P 0 137 

1837 


JMP* 

PRNOUT 


0244 

P0 13 8 

0 F Cl 


ALS 

1 

o 

0245 

P0 139 

0127 


SAP 

BUF ADI -*-l 

0246 

PD 13 A 

0F4B 


ARS 

11 


0247 

P013B 

A 0 0 6 


AND- 

HG00F 


0248 

P013C 

09F4 


INA 

-$B 

o 

0249 

P013D 

0131 


SAM 

1 

0250 

P013E 

1813 


JMP* 

BUFAD4 


0251 

P013F 

0 C 02 


ENQ 

2 


0252 

P0 140 

1810 


JMP* 

8UFA03 

o 

0253 

P 0 141 

QC01 

BUFA01 

ENQ 

1 

0254 

P0 142 

0 AFE 


ENA 

-1 


0255 

P 0 143 

6849 


ST A* 

8FA0D1 


0256 

P 0 144 

1 8 OC 


JMP* 

8UFA03 

o • 

0257 

P0 145 

0 FCI 

BUFA02 

ALS 

1 

0258 

P0 1 46 

0131 


SAM 

1 


0259 

P 0 147 

1827 


JMP* 

PRNOUT 


0250 

P0 148 

0 F Cl 


ALS 

1 

o 

026 1 

P 0 1 49 

0131 


SAM 

1 

0252 

P014A 

1811 


JMP* 

BUFAIJ5 


0263 

P014B 

OF 4B 


ARS 

11 


0254 

P014C 

A 0 0 6 


ang- 

H00 0F 

o 

0265 

P0 14D 

09F5 


ina 

-10 

0266 

PG14E 

0125 


SAP 

5 


026 7 

P014F 

OCOO 


ENQ 

0 


026 8 

P 0 1 5 0 

C 8 0 0 

8UFA93 

LDA 

CHRBF *5 

o 

P 01 51 

FF6D 




0259 

PS 15 2 

0FC4 


ALS 

4 

1 

0270 

P 0 15 3 

18 44 


JMP* 

BFCNT 

J 

0271 

P0 154 

0 9 FC 


INA 

-3 

o 

0272 

P0 15 5 

Q 1 0 3 


SAZ 

3 

0273 

P0 15 6 

0 CO 7 

BUFA04 

ENQ 

7 


0274 

P0 15 7 

0 A 00 


ENA 

0 


0275 

P 0 158 

183F 


JMP* 

BFCNT 

o 

027 6 

P0 159 

SCOT 


ENQ 

3 

0277 

P0 15 A 

1 8 FC 


JMP* 

*-3 


0278 

P0 156 

0F4B 

BUFAD5 

ARS 

11 


0279 

PQ15C 

A 006 


AND- 

HOOOF 

o 

0280 

P015D 

Q9F5 


INA 

-10 

0281 

P015E 

0121 


SAP 

1 


o 


O 


DATE. 08/19/99 


BUFFER FILLED 
NO, 

SELECT PROPER OPERAND 
BUFFER 


ILLEGAL CHAR. IN OPERAND 
FLO. PRINT ERROR MESSAGE 


SET INDEX FOR CHAR. P-Z 
SET INDEX FOR CHAR. A-0 
ELIMINATE / CHAR. 

ILLEGAL CHAR. 


SET INDEX FOR CHAR. 0-9 


SET INDEX FOR ODD CHARS. 


N8 80 0 23 0 
N8800231 
N880G232 
N8800233 
N8800234 
N8800235 
N8800236 
N38Q G237 
N880Q238 
N3a0 0239 
N8800240 
N 38 0 0 241 
N8800242 
N8800243 
N8SQ 0 244 
N8800245 
N8800246 
N8 80 0 247 
N8800248 
N88Q0249 
N38G025Q 
N8800 251 
N8890252 
N 3 800253 
N8800254 
N8800255 
N88Q9256 
N880Q257 
N8 80 0 25,8 
N8800 259 
N880S 260 
N 380 0 26 1 
N8800262 
N8800263 
N880 3284 
N3 80 0 265 
N88Q0266 
N8800267 
N 880 0 26 8 

N880 0269 
N8800270 
N 3800271 
N88QQ272 
N88S0273 
N860G274 
N8830275 
N 8 890276 
N389Q277 
N 8 800278 
N880 0279 
N 3 800280 
N8800281 


o 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


r 
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DATE: 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0282 P015F 18F6 JMP* BUFAD4 

0283 P0160 0113 SAN 3 

0284 P0161 0C 04 ENQ 4 SET INDEX FOR CHA R. * 

0285 P0 162 0 A0 0 ENA 0 

0286 P0 163 1834 JMP* 3FCNT 

028 7 P0 164 0 9FE INA -1 

0288 P0165 0122 SAP 2 

0289 PD166 0 C05 END 5 SET INDEX FOR CHAR. 4 

0290 PQ 167 1 8 FA JMP* *-5 

0291 P0 168 0 9 FD INA -2 

0292 P 0169 0113 SAN 3 

0293 P016A 0 C 0 6 ENQ 6 SET INDEX FOR CHAR. - 

0294 P0 168 0 A 0 0 ENA 0 

0295 P016C 182B JMP* BFCNT 

0296 P016D 18E8 JMP* BUFAD4 

0297 PR N OUT F WRITE STOOC D, PN0UT1,ERRMGE, 20 , A,0 ,1 ,1 , ,1 

0297 P016E 54F4 

0297 P016F 4C01 

0297 P0 170 0176 P 
P0 171 0000 

0297 P0 172 1 8 FC 

0297 P0 173 0014 

P 0 174 0177 P 

0298 P0 175 1 4 EA JMP- (DISP-J 

0299 P0176 1 4EA PN0UT1 JMP- (DISP) 

030 0 P0177 2020 ERR MGE ALF 20, ILLEGAL CHARACTER WAS DETECTED 

P 0 1 78 494C 
P0 179 4C45 
P017A 4741 
P0 170 4C20 
P017C 4348 
P017D 4152 
P017E 4143 
P017F 5445 
P 0 1 80 5220 
P0181 5741 
P0182 5320 
P0183 4445 
P 0 1 84 5445 
P 0 1 85 4354 
P 0 1 86 4544 
P0187 2020 
P0188 2020 


P 0 1 89 2020 
P018A 2020 

0301 P0 188 0000 BFAQQ ADC 0 

0302 P018C 0 0 8 0 BF ADD 1 AOC 0 

0303 P0 18D 0000 BFADD5 NUM 0 

0304 P018E 0000 PRGNAM NUM 0 

030 5 P018F 0 1 EE P 8FTAB ADC OUTBF STARTING BUFFER ADDRESS *S 

030 6 P0 190 0 57C P AOC OUTBF1 

0307 P0 191 0AD1 P ADC 0UTBF2 

Q 3 0 8 P 0 192 0 E BA P ADC OUT BF 3 


o 


o 


N8800282 
N88Q0283 
N8800 284 
N8 80 0 28 5 
N8800286 
N8830287 
N3800288 
N88Q0289 
N8800290 
N8800291 
N38O0292 
N8800293 
N880Q294 
N8800295 
N8800296 
**MSOS 4. 0N8800297 


N8800298 

N88G0299 

NB8SG30Q 


N88Q0301 
N8800 302 
N8800303 
N880Q304 
N8 80 030 5 
N880 0306 
N3800307 
N88QG308 


O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 


OPSORT 
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8 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0309 P0193 0 F 1 5 P 

0310 P 0 194 0F70 P 

0311 PG195 0FCB P 

0312 P0 196 1026 P 

0313 P 0 1 97 EAF7 

0314 P0198 48F2 

0315 P0 199 0F4C 

0316 P019A A0 0 6 
031 7 P019B 88 FO 

0318 P019C QFFfl 

0319 P019D 0146 
0 32 0 P019E 0 A 58 

0321 P019F 68 ED 

0322 PQ1A0 8 SEA 

0323 P01A1 68E9 

0324 PQ1A2 0BFE 

0325 P01A3 18F9 

0326 P01A4 6800 
P01A5 0F05 

0327 P01A6 095A 

0328 P01A7 68E4 

0329 PQ1A8 0 A 0 A 

0330 P 0 1 A 9 2CE2 

0331 P01 A A 8SEQ 

0332 P01AB 68 DF 

0333 P01AC 0 C 0 9 

0334 PfllAO C A 0 0 
P01AE F F 08 

0 33 5 P01AF 6’EDB 
0 33 6 P01B0 0 DFE 

0337 P01B1 0171 

0338 PG1B2 1 8FA 

0339 P01B3 OCD8 

0340 P01B4 CC 07 

0341 P01B5 09 F6 

0342 P01R6 0132 

0343 P01B7 1800 
P01B8 0EF8 

0344 P01B9 C8D4 
0 3 45 P01-BA 0111 

0346 PQ 186 1818 

0347 P01BC C A 0 A 

0348 P01BD 60 FF 

0349 PD 1 BE 0C 00 

0350 PD1BF 48CE 

0351 P0 ICO 0900 
P01C1 FF02 

0352 P01C2 E8C8 

0353 P01C3 6 A 1 2 

0354 P01C4 ODE 6 

0355 P01C5 0143 

0356 P01C6 DOFF 

0357 P01C7 D8C6 


ADC 0UT8F4 
ADC OUT BF5 
ADC 0UT8F6 
ADC OUT BF7 
BFGNT LOQ* BFTAB ,0 
STQ* BFAOD 
ARS 12 
AND- HO 0 0 F 
ADD* BFADOl 
LLS 16 

8FADG2 SQZ SFA0Q3-*-l 
ENA 91 
ST A* BFAD05 
ABB* BFAOO 
STA* 8FADD 
INQ -1 
JMP* 3FA0C52 
BFAB03 STA SECA0 

INA 90 
STA* BFA3Q1 
ENA 10 
MUI* CBFAQD1 % 
ADD* 8FAD0 
STA* BFAOQ 
END 9 

BFAD04 LDA CHRBF,Q 

STA* IBFAOB),Q 
INQ -1 
SQM BONE 
JMP* 8FADD4 
DONE RAO* (BFAQD1’) 
LDA* (BFAOD 1) 
IMA -9 
SAM 2 
JMP WRTSG 

LDA* PRGNAM 
SAN 1 

JMP* D0NE2*2 
ENA ID 
STA- I 
ENQ 0 
STQ* PRGNAM 
DONE1 LDA BUFF, I 

LDQ* PRGNAM 
STA* TITLE, Q 
INQ -25 
SQZ 3 
RAO- I 
RAO* PRGNAM 


DATE: 08/19/99 


CYCLE THROUGH TO THE 
DESIRED BUFFER 


CHECK THE 91ST WORD OF THE 
DESIRED BUFFER FOR NEXT 
AVAILABLE STORAGE LOCATION 


«- OPERAND TO THE PROPER 
8UF FER 

BUFFER FULL 

YES, OUTPUT SUFFER TO MS. 

NO, IS THIS THE FIRST LEGAL 
RECORD 

YES, OUTPUT THE NAM CARD 


N8800 309 
N8800310 
N8800311 
N8800 312 
N8800313 
N88Q0 314 
N8800 31 5 
N8800316 
N880Q317 
N8800318 
N8800319 
N8800320 
N88003Z1 
N880Q322 
N88GG323 
N88Q0324 
N88Q0325 
N88G0326 

N8800327 
N8800328 
N88Q0329 
**MSOS 4. GN8800 33G 
N8800331 
N8800 332 
N88Q 0333 
N8800334 

N88QD335 
N880 0 336 
N8800337 
N88Q Q 338 
N3800339 
N8800340 
N8800341 
N8B00342 
N88Q0343 

N88GG344 
N880Q345 
N8800346 
NB80D347 
N880G 348 
N88D 0 3<*9 
N88G 0350 
N8800351 

N88G0352 
N880G-353 
N8800354 
N880 0355 
N8800356 
N8800357 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


OPSORT 


RAGE 


9 


DATE: 08/19/99 


0358 

0359 
0359 
0359 
0359 

0359 

0359 

0360 

0361 

0362 

0363 

0364 


0365 

0366 

036 7 

0368 

0369 

0370 

0371 

0372 

0373 

0374 
D37 5 

037 6 

0377 

0378 


P01C8 

1 8F7 


JMP* 

D0NE1 

N8800358 

P01C9 

54F4 


FWRITE STDOUT,DONE2,TITLEt25,A,0,i,I,*l 

**MSOS «+. 0N8 800359 

P01CA 

mCOI 





PO 1CB 

01D1 

p 




PO ICC 

0 0 00 





P01CD 

1 8 FB 





PO ICE 

00 19 





P01CF 

0 1D5 

p 




P 0 IDO 

1 4EA 


JM'P- 

{ DI SP ) 

N88G 0 360 

PO ID 1 

0 A 00 

D0NE2 

ENA 

0 

N8800361 

PQ1D2 

68 68 


STA* 

PRG NA M 

N880 0 362 

PO 1D3 

1-8 0 0 


JMP 

8GNRD *3 

N880 0363 

P01D4 

FE2E 





P01O5 

21320 

TITLE 

ALF 

25, 

N8800364 

PG106 

2020 





P01D7 

20 20 





P01D8 

2020 





P01D9 

2020 





PO ID A 

2020 





P01DB 

2020 





PO 1 DC 

20 2 0 





P 0 I'D D 

2020 





P 0 IDE 

20 20 





P01DF 

2020 





POl'FO 

20 20 





P01E1 

2020 





P01E2 

20 20 





P01E3 

2 Q 20 





P01E4 

2020 





POLE 6 

2020 





P01E6 

20 20 





P01E7 

2020 





P01E8 

2020 





P01E9 

2020 





P01EA 

2020 





PG1EB 

2020 





P01EC 

2020 





P01ED 

2020 





P01EE 

03 8E 

0UT8F 

BZS 

0UF8F T9 1 01 

N 860 0 36 5 

P057C 

0 5 55 

0UTBF1 

B7S 

0UTBF1 ( 1365 ) 

N889 0 366 

P0AD1 

0 3 E 9 

OUT BF 2 

BZS 

0UTBF2( 1001) 

N880 0367 

PGEBA 

0 0 58 

0UTBF3 

BZS 

0UTBF3I 91) 

N880 0368 

P0F15 

0 0 5B 

0UT8F4 

BZS 

OUT 8F 4 1 9 1 ) 

N880 0369 

P0F70 

DO 5B 

0UTBF5 

BZS 

0UT8F51 910 

N880037G 

P0FC8 

0D5B 

OUT 8F6 

BZS 

0UTBF6T 91) 

N880 0371 

P 1 Q 2 6 

0 0 58 

OUT BF 7 

BZS 

0UTBF7I 91) 

N 8 8 G 3 372 

PI 08 1 

0029 

SAT 

BZS 

SAFT41) 

**MSOS 4-ON880G373 

P10AA 

OQ 00 

SEC AO 

ADC 

0 

N8800374 

P10AB 

0000 


NUM 

0 

N88Q 0375 

P10AC 

00 00 

SECA01 

ADC 

0 

N88Q 0376 

P10AD 

00 00 

SECA02 

NUM 

0 

N8 80 0 37 7 

P10AE 

GO 00 

LSTRO 

NUM 

0 

N8800378 


OPSORT 


PAGE 


10 


OATE: 08/19/99 


0379 

P10AF 

0 001 

WRTSC2 

NUM 

1 


**MSQS 

4. 0N8800379 

0380 

PIOEO 

C 8 0 0 

WRTSC 

LD A 

BFADD 



N88Q0 380 


PI OBI 

F0D9 







0381 

P10B2 

0 9 AF 


INA 

-80 



N8800381 

0382 

P10B3 

9800 


SUB 

BFFAB 



N8800382 


P10B4 

FODA 







033 3 

P1GB5 

OCOO 


ENQ 

0 



M8800383 

0384 

P10B6 

3800 


DVI 

BFADD5 



N8800384 


P10B7 

F0D5 







0385 

P10B8 

0822 


TRA 

0 

STORE CONTENTS OF. SAT FOR 


N880 0385 

0386 

P10B9 

CAC7 


LDA* 

SAT,Q 

THIS CHAR. IN WRO.90 OF BF 


N8800386 

036 7 

PI 0 BA 

6C0 0 


STA 

( BFAQD1 ) 



N8800387 


P10BB 

FOOQ 







0388 

P10BC 

C8F2 


LDA* 

WRTSC2 

UPDATE THE SAT TABLE 


N8800388 

038 9 

P10BD 

6 AC3 


STA* 

SAT t Q 



N880 0 389 

0390 

P10BE 

C8EB 

WRTSCi 

LOA* 

SECAD 


**MSOS 

4.GN880Q390 

0391 

P10BF 

68 O B 


STA* 

WRIT1S-6 


**MSOS 

4. QN8800391 

0392 

P1DC0 

C8EA 


LOA* 

SECAO+1 


**M SO S 

4. 0N8800 392 

0393 

P10C1 

6 8 0 A 


STA* 

WRI T1 * 7 


* *MSOS 

4.. 0N88B0393 

0394 

P10C2 

C8EC 


LDA* 

WRTSC2 


**MSOS 

4. 0N880G394 

0395 

P10C3 

6809 


STA* 

WRIT 1* 8 


**MSOS 

4. GN880 0 39 5 

039 6 



WRIT1 

FWRITE STDSCR, 

WRTSC3, ,91, A, 0, 0 ,1, ,1 

**MSOS 

4. 0NS80Q396 

0396 

P IOC 4 

54F4 







0396 

P10C5 

4C0 0 







0396 

P10C6 

10CE P 








P10C7 

00 00 







0396 

P10C8 

18B3 







0396 

P10C9 

0Q5B 








P10CA 

00 00 







0397 

P10CB 

GOOD 


AOC 

0 


**MSOS 

4 . 0N880Q397 

0398 

piece 

GOOD 


ADC 

0 


**MSOS 

4. 0N880Q398 

0399 

P10CD 

14EA 


JMP- 

*DISP> 



N8800399 

0400 

P10CE 

0 3 EG 

WRTSG3 

RAO* 

WRTSC2 

UPDATE SECTOR ADDRESS 


N8800 400 

0 401 

P10CF 

C8DE 


LOA* 

LSTRO 

HAS ENOCARD BEEN READ 


N8800401 

0402 

PIODO 

0115 


SAN 

5 



N860Q 40 2 

0403 

P10D1 

0 A 0 0 


ENA 

Q 

CLEAR WORD 90 OF THE WRITTEN 

BUFFER 

N880B403 

0404 

P 1 0 0 2 

6C00 


STA 

IBFAOOn 



N8800 404 


P10D3 

FOBS 







0405 

P10D4 

1800 


JMP 

8GNRB*3 



N8 80 0 40 5 


P1.0D5 

EF2D 







0406 

P10D6 

D8D6 

WRTSC4 

RAO* 

SECAD2 

UPDATE THE SECTOR COUNT 


N3800406 

0407 

P10D7 

C 8 05 


LOA* 

SECA02 



N3S00407 

0408 

PI 008 

0 9 06 


INA 

-41 



N88QG4G8 

0409 

P10D9 

0131 


SAM 

1 



NB800409 

0410 

P10DA 

1814 


JMP* 

BGSRT 



N8B00410 

0411 

P10.DB 

0 A 5B 


ENA 

91 



N8800411 

0412 

P10DC 

8 8 CO 


ADD* 

SECAO 



N88Q0 412 

0413 

PIODO 

6 SCC 


STA* 

SECAD 



N8800413 

G 41 4 

PI ODE 

0A5A ■ 

WRTSC5 

ENA 

90 



N8800 414 

0 415 

P10QF 

8 8 CA 


ADD* 

SECAD 



N8 80 0 Hi 5 

0 416 

PIOEO 

68 CB 


STA* 

SECAQi 



N880Q416 

0417 

P10E1 

CCC A 


LOA* 

ISECA01) 

DOES THIS BUFFER CONTAIN 


N8800 417 

0418 

P10E2 

0111 


SAN 

1 

CURRENT DATA 


N8800418 



OPSORT 
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DATES £58/ 19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0419 P10E3 18F2 

0420 P10E4 2046 

0421 P10E5 0822 
0 42 2 P13E6 GO 42 

0423 P10E7 6EC2 

0424 P10E8 F 8 04 

0425 P10E9 CA97 

0426 P10EA 6C Cl 

0427 P1QEB C8C3 

0428 P10EC 6 A 94 

0429 P10EO 18D0 

0430 PI 0 EE GOOD 

0431 P10EF 4800 
P10F0 0082 

0432 P10F1 C800 
P10F2 007C 

0433 P10F3 687C 

0434 P10F4 CD 0 0 
P1DF5 OF 93 

0435 P10F6 687B 

0436 P10F7 E87B 

0437 P10F8 CA 8 8 

0438 P10F9 0102 

0439 PIG FA 6873 
0443 P1CFB 18 0B 

0441 P10FC 0876 

0442 P10FD C 8 75 

0443 PI OFF 0906 

0444 P10FF 0135 

0445 P110 0 0 A Q 1 

0446 P11G1 68 AC 

0447 P11G2 C87C 

0448 P1103 1800 
P1104 00C7 

0449 P1105 18EB 

0450 PHD 6 C869 

0451 P 11 0 7 68 0 B 

0452 P1108 C868 

0453 P1109 680 A 

0454 P 11 0 A C 3 63 

0455 PI 10 8 6809 

0456 

0456 P110C 54F4 
0456 P110D 4800 
0456 P110E 1116 P 
PI 10 F 00 00 
0456 PI 110 18B3 

0456 Pllll 005B 
P 1 11 2 0000 

0457 PI 113 0000 

0458 Pill 4 0000 

0459 P1115 1 4EA 

0460 P1116 C800 
P1117 F F 96 


JMP* HRTSG4 NO, 

HU I- A 
TRA Q 

LD A- H7FFF HARK END OF CURRENT DATA 

STA* tSECADJtQ IN THIS BUFFER 

LOG* SECAD2 _ , 

LDA* SAT , Q UPDATE THE SECTOR TABLE 

. STA* ifSECADl') 

LDA* WRTSC2 

STA* SAT,Q ENTRY FOR THIS CHAR. 

JMP* WRTSC1 
8GSPX END 0 

STQ STCNT 

BGSRT1 LD A STPRG 

ST A* STADO 
LDA = XSRTLG 

STA* STADD2 

LOQ* STCNT BEGIN RELOAD OF EACH QP ER 

LDA* SAT, Q AND TYPE FOR SORTING 

SAZ 2 
ST A * STADD1 
JMP* DSKRD 
BGSRTA RAO* STCNT 

IN A* -41 Nf HAyF ALL CHAR. TYPES BEEN 

SAH BGSRT2 

ENA 1 

ST A* LSTRO 

LDA* LIST 

JHP S0RT4DH-3 

BGSRT2 JHP* BGSRT1 NO 

DSKRD LDA* STAG'D 

ST A* BSKRE3 3-6 
LDA* ST ADD 41 
STA* DSKRE0+7 
LDA* ST AO 01 
STA* OSKRED *8 

DSKRED FREAD S T3 S CR, DS KRD1 , , 91 , A , 0 , 0, I , , 1 


ADC 0 
ADC 0 
JHP- (QISP) 

DSKRD 1 LDA LSTRO LAST SECTOR WRITTEN FOR 


* * 


N8800419 
N8800420 
N880S421 
N8800 422 
N 880 0 42 3 
N880 G424 
N880 0425 
N88B0426 
N3800427 
N8800428 
N 8 8 0 0 4 2 9 
N88Q0430 
**MSOS 4.0N880Q431 

**MS OS 4* GN88Q0 432 

N3800433 
**MSOS 4. ON8800 434 

**MSOS 4. 0N88GG 435 
N8 80 0 43 6 
N38GD 437 
N880 0 438 
N38Q0439 
N880044G 
**HSOS 4* QN88Q8441 
N880.0 442 
N8800 443 
N8800444 
N8800 445 
N880 0^46 
N880 0 447 
N8800 448 


N88Q0449 
**MSOS 4.0N88Q045Q 
**MSGS 4* ON880 0 451 
**HSOS 4« 0N880 0 45 2 
**MSOS 4.0N8800453 
**MSOS 4» 0N88Q 0 454 
**HSOS 4* 0 N380 0 45 5 
**MSOS 4-0N8800456 


*MSOS 4 • ON 880 0 45 7 
*HSOS 4. 0N880Q458 
N88GQ459 
**MSOS 4* 0N88 0 0 460 


C ) 

V.«*' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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r"> 

O 

O 

o 

o 

o 

o 

° 

o 

o 

o 

o 

o 

o 

o 

o 


C46 1 P1U3 Dili 

0462 PI 119 1318 

0463 PI 11 A OCOO 

0464 Pill 8 C A 0 0 
P111C FQD1 

0465 P111D B 0 42 

0466 P111E 01 07 

0467 P111F OBOl 
0458 PI 120 0814 

0469 P 1121 0 9 AE 

0470 P 1 122 0112 

0471 P1123 0D09 

0472 P1124 1802 

0473 P 1 12 5 18F5 

0474 P 1 1 2 6 F 8 4 8 

0475 P1127 4848 

0476 P1128 0 A 0 0 

0477 P1129 6800 
P112A FF83 

0478 P112B C 8 0 0 
P112C FI IB 

0479 P 1120 0111 

0480 P112E 1816 

0481 P112F 6 8 3E 

0482 PI 130 18D5 

0483 P1131 0A 5A 
048 4 P1132 8 8 3D 

0485 P1133 68 3C 

0486 PI 1 34 CC3B 

0487 P 1 13 5 0111 

0488 PI 136 18 OE 

0489 P1137 6836 

0490 P1138 C 8 37 

0491 P 1 1 3 9 9835 

0492 P113A 9837 
0 49 3 PI 13 B 0137 

0494 P113C CC33 

0495 P 1130 E835 

0496 P113E 6 A 0 0 
P113F FF 41 

0497 P1140 0 DFE 

0498 PI 141 4831 

0499 P1142 1802 
05 0 0 P.1143 18C2 

0501 Pi 1 44 OCOO 

0502 P1145 4 OFF 
0 50 3 PI 146 0 A 5A 

0504 PI 147 6820 

0505 P1148 C827 

0506 PI 149 0905 

0507 P114A 9824 

0508 P114B 682B 

0509 P114C 3046 


SAN 1 
JMP* DSKRD2 
ENQ 0 

DSKR03 LDA OUTBF,Q 

EOR- H7FFF 
SAZ DSKRD4 
INQ 1 
TRQ A 
INA -81 
SAN 2 
INQ 9 
JMP* DSKRE54 
JMP* DSKRD3 
0SKRD4 ADQ* STPRG 
STQ* STADO 
ENA 0 
STA LSTRD 

LDA OUT8F+90 

SAN 1 
JMP* SORT 
STA* STADD1 
JMP* DSKRO 
DSKR02 ENA 90 

ADD* STADO 
STA* STADO 
LDA* CSTADD) 
SAN 1 
JMP* SORT 
STA* STADD1 
LDA* STADQ 
SUB* STPRG 
SUB* STADD2 
SAM 9SKR05 
LDA* (STADO-) 
LDQ* STCNT 
STA SAT,Q 

INQ. -1 
ST Q* STGNT 
JMP* SORT 
OSKRQ5 JMP* OSKRD 
SORT ■ ENQ 0 
STQ- I 

ena 90 
STA* BFFL1. 
LDA* STADO 
INA 5 
SUB* STPRG 
STA* SRTAD 
DVI- A 


DATE: 08/19/99 


THIS CHAR. 

NO 

CHECK FOR LAST USEFUL 
RECORD TO BE SORTED 

DID LAST SECTOR CONTAIN 

EXACTLY 90 WORDS 

YES 

CLEAR LAST. SECTOR FLAG 
GET NEXT SECTOR NUMBER 
NEXT SECTOR = ZERO 
NO 

LAST SECTOR WRITTEN FOR 
THIS CHAR 


ONE PASS SORT CAPACITY 
REACHED 

YES, SET UP FOR MULTI-PASS 
SORT 


NO, GET. NEXT SECTOR 


DETERMINE NUMBER OF WORDS 


TO BE SORTED 


N 880 0 461 
N8800 462 
N8 80 0 463 
**MSOS 4. 0N880 0 46 4 

N880 0465 
N8800466 
N8 80 0 46 7 
N8800468 
N8800469 
N8800470 
N880Q471 
N88QQ 472 
N880 0 473 
N88G0 474 
N8800475 
N8800476 
N8800477 


**MSOS 4 


0N8800478 

N8800 479 
N8800480 
N8800481 
N8800 482 
N8800 483 
N88Q0 484 
N8800 485 
N3800486 
N8 80 0 48 7 
N88BQ488 
N8 8G0 48 9 
N8800490 
N8800491 
N880G 492 
N8800493 
N86GQ494 
N380Q495 
N38Q0496 


N8800 497 
N88Q0498 
N8 80 0 499 
N8800500 
N8800501 
N8800 502 
N 8 600503 
N8800504 
N88S0 50 5 
N 8 80 0 50 6 
N 8 8005S7 
N8800508 
N88Q0509 


o 

G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



DATE* 08/19/99 


PICK UP FIRST SORT ENTRY 

PREVIOUS WINNER GET NEXT 
RECORD 


SAVE ADDRESS OF THE WINNER 
SAVE THE WINNER- 


SAVE ADDRESS OF OPONENT 


OPONENT A PREVIOUS WINNER 
YES GET NEXT OPONENT 
COMPARE THE TWO VALUES 


- VALUES CQNT. THE COMPARE 
WINNER CONTINUES 
OUIBF9-91) 


N8 8Q0 51D 
N8800511 
N88QG512 
**MSQS 4. 0N88Q0 513 

N88GQ514 
N88G0515 
N8800516 
N8800517 
N3800518 
N8800519 
N8800520 
N880 0521 
N8800522 
N880 0523 
N8 80 0 52 4 
N8800525 
N8800526 
N88Q 0527 
N8800528 
**MSOS 4.QN380 0 529 

N380 G53G 
N88G 0 531 
N8800 532 
N880 0533 
**MSQS 4. ON880 0 534 

N88Q 0 535 
N880 0536 
N880 0 537 
N8800 538 
**HSQS 4.N88QG539 
**HSOS 4* ON 8800540 
* *M SO S 4« ON880 0 541 
N880 0642 
N8800 543 
**MSOS 4. 0N880 0544 
N880 0 545 
N8800546 
N8800547 
N8800548 
N880Q549 
N880055G 
N880G551 
N8800552 
N8800553 
N 8 80 0 554 
N380 Q555 
N3 80 0 55 6 
N880 0557 
N88Q0558 
N880 0559 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


COMPARE THE LAST FOUR 


o 
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DATE! 08/19/99 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 


0560 P1181 68F9 

0561 P 11 82 C8F7 

0562 PI 1 83 68F8 

0563 P1184 0 9 0 A 

0564 P1185 68F7 

0565 P1186 E8F4 

0566 P1187 0D01 

0567 P1188 48F2 

0568 P1189 CA00 
P118A F 0 63 

0569 P118R E 8 F 0 

0570 P118C OD01 

0571 P118D 48 EE 

0572 P118E 9 A 00 
P118F F05E 

0573 P1190 0122 

0574 P1191 E8E8 

0575 PI 192 18C8 

0576 P1193 0104 

0577 P1194 E8E5 
0573 P1195 GAO 0 

P1196 F 0 57 

0579 P1197 1 8 Cl 

0580 PI 198 0814 

0581 P1199 98E3 

0582 P119A 0101 

0583 P1198 18EA 

0584 P119C E 800 

0585 P1190 1380 

0586 P119E 0AGA 

0587 P119F 8 0 FF 

0588 P11A0 6804 
.0589 P11A1 93D2 

0590 P11A2 0112 

0591 PI1A3 0 A 0 1 

0592 P11A4 68CE 

0593 P11A5 E8D2 

0594 P11A6 Q OF A 

0595 P11A7 C A 0 0 
P 1 1 A 8 F 0 45 

■ 0596 P11A9 690 Q 
P 1 1 A A FE7B 

0597 P11A8 DOFF 

0598 P11AC CO FF 

0599 PI 1 A 0 98C7 

0600 P11AE 0111 

0601 P11AF 1803 

0602 P11B0 OD01 

0603 P11B1 18F5 

0604 P11B2 E8C5 

0605 P11B3 G 0 1 2 

0606 Pll 84 6A00 
P11B5 F 0 33 


STA* SAVEA 
LDA* SAVE3 
STA* SAVE3A 
INA 4 
STA* SAVE3B 
GMPR1 LDQ* SAVEA 
INQ 1 
STQ* SAVEA 

■ LD A OUTBF, Q 

LDQ* SAVE3A 
INQ 1 
STQ* SAVE3A 
SUB OUTBF ,Q 

S A'P 2 
LDQ* SAVE3 
JHP* S0RT3 
S A Z 4 
LDQ* SA VE3 
LD A OUTBF, Q 

JMP* S0RT2 
TRQ A 
SUB* SAVE3B 
S A 7 1 

JMP* CHPR1 
LDQ* SAVE3 
JMP* SORTS 
SORT4 ENA 10 
ADD- I 
STA* 8FFL2 
SUB* BFFL1 
SAN 2 
ENA 1 
STA* 8FFL 
LDQ* SAVE 
INQ -5 

S0RT4A LDA OUTBF , Q 
STA 0UTBF7 » I 

■ RAO- I 
LDA- I 

• SUB* 8FFL2 
SAN 1 
JMP* S0RT4B 
INQ. 1 
JMP * SORT 4 A 
S0RT4B LDQ* SAVE 
LDA- HFFFF 
STA OUTBF, Q. 


WORDS OF THE OPERAND TO 
DETERMINE A WINNER 


WINNER CONTINUES 


OPGN'ENT CONTINUES 


HAVE ALL THE OPERAND WORDS 
BEEN COMPARED 

BOTH VALUES ARE EQUAL SAVE 
THE WINNER + CONT. SEARCH 

OUTPUT BUFFER FULL . 

YES 


SET WINNER NEGATIVE 


N880 0560 
N8800561 
N3380562 
N8800563 
N8800564 
N8800 565 
N8800566 
N8800567 
**MSOS 4. 0N8 8 0 0 568 

N8800569 
N380G570 
N8800571 
**MSOS 4» 0N880G 572 

N88Q0573 
N880G574 
N880G575 
N88G0576 
N 8830577 
**MSOS 4. ON880G578 

N8880579 
N88G0580 
N880 0581 
N8800582 
N8800583 
N8 80 0 58 4 
N8800585 
N38G 0586 
N8880587 
N8800588 
N8800589 
N8 80 0 59 0 
N38GG591 
N3800592 
N88GQ593 
N8 80 0 594 
**MSGS 4.0N8800595 

N88Q0596 


N8800597 
N3800598 
N880 0599 
N880 0600 
N88G0601 
N88GG6G2 
N8B00603 
N880G 604 
N38G0 6G5 
**MSOS 4» GN880 0606 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE: 0 8/ 19/9 9 


0607 

P11B6 

C8BC 


LDA* 

BFFL 



0608 

PI IB 7 

0116 


SAN 

S0RT4C 



060 9 

P11B8 

0 9FE 


INA 

-1 



0610 

P11B9 

8 8 BD 


ADD* 

SRTAOl 


HAVE ALL OPERANDS OF THIS 

0611 

PI 1 BA 

68 BC 


STA* 

SRTADi 


CHAR. TYPE BEEN SORTED 

0612 

P 1 IBB 

Dill 


SAN 

1 



0 613 

PiiBC 

1802 


JMP* 

S0RT4C 



0614 

P118D 

1890 


JHP* 

SORT1-2 



061 5 

PI 1 BE 

ca BE 

SORT4C 

LDA* 

LIST 



0616 

P11BE 

6807 


ST A 1 * 

SRT4C+6 



0617 



SRT4C 

FWRITE ST00UT,S0RT4D., ,10 ,A,0,0,I,»i 

0617 

P11C0 

54F4 






0617 

PllCi 

4C0 0 






0617 

Pi 1C 2 

11C8 P 







P11C3 

0000 






0617 

P11C4 

1 8FB 






0617 

Pi 1C 5 

0 0 0A 







Pi 1C6 

00 00 






0518 

P11C7 

1 4 EA 


JMP- 

tOISP) 



0619 

P11C8 

C 0 46 

SORT4D 

LDA- 

A 



0620 

P11C9 

8 8B4 


ADD* 

LIST 


OUTPUT SORTED OPERANDS TO 

0621 

P11CA 

68B3 


STA* 

LIST 


THE PRINTER 

0522 

P11CB 

98B3 


SUB'* 

EN0BF7 



0623 

PliCC 

98A8 


SUB* 

BFFL2 



0 62 4 

P11CD 

0101 


SAZ 

1 



0625 

PUCE 

1818 


JMP* 

S0RF4F 



0 52 6 

P11CF 

C8AF 


LQA* 

ENDBF7 



0 62 7 

PI ID Q 

68 AD 


STA* 

LIST 



0628 

P11D1 

C 8 0 0 


LOA 

iLSTRD 


HAVE ALL OPERAND TYPES 


P11D2 

FEDS 






0629 

P11D3 

0101 


SAZ 

1 


BEEN SORTED AND OUTPUT 

063 0 

P11D4 

1813 


JMP* 

ENQSRT 



0631 

PHD 5 

0 A 0 0 


ENA 

0 


NO 

0532 

P11D6 

60 FF 


STA- 

I 



0633 

P11D7 

689B 


SIA* 

8FFL 



0634 

P1108 

689C 


ST A* 

BFFL2 



0 63 5 

P11D9 

C89D 


LQA* 

SRTADI 



0 63 6 

PI ID A 

0106 


SAZ 

S0RT4E 


SORT OF 90 WORDS OR LESS 

063 7 

PilDB 

OAFE 


ENA 

-1 



0638 

P11DC 

88 9 A 


ADD* 

SRTADI 


ALL OPERANDS OF THIS CHAR 

0639 

PilDD 

0103 


SAZ 

SORT4E 


TYPE SORTED 

0 64 0 

PilDE 

6898 


STA* 

SRTADI 



0641 

PI IDF 

1800 


JHP 

SORTi -2 




PiiEO 

FF6D 






0642 

P11E1 

0 A Qi 

SORT4E 

ENA 

1 



0 643 

pile 2 

68 0 0 


STA 

LSTRD 




P11E3 

E EC A 






0644 

P11E4 

1800 


JMP 

8GSRTA 




F11E5 

FF16 






064 5 

P11E6 

18D7 

S0RT4F 

JMP* 

SORT4C 



0646 

P11E7 

0191 

END SR T 

SWN 

1 SWITCH 

SET 

EXIT IF NOT CONTINUE 

0647 

P11E8 

1 4EA 


JHP- 

(DISP3 END 

OF 

SORT 

05 4 8 



*ZERO i 

OUT BUFFERS AND 

SAT 

TABLE 


**MSOS 4. 
**MSOS 4. 
**HSOS 4. 


N880 0607 
N3800608 
N88QG609 
N8800610 
N38Q0611 
N8800 612 
N8 80 0 61 3 
N880 0 614 
0N8 80 0615 
0N8800616 
GN880G 617 


N3800618 
N880Q619 
N88QG62G 
N880 0621 
N8800622 
N883Q623 
N88Q0624 
N880 Q625 
N8800626 
N8 80 0 62 7 
N8800628 

N86S0629 
N88G0630 
N8 800631 
N8800632 
N8600 633 
N8 8 0 0 63 4 
N 8 80 0 63 5 
N88Q0636 
N8800637 
N880Q638 
45*780 N8800639 

N8800640 
N8800641 

N3800642 

N8800643 

**MSOS 4. ON880 0644 

N3800645 
N8800646 
N8800647 
**MSOS 4.0N8800648 



o 

o 

o 

o 

o 


**MSOS 4. 0N88Q 0649 


O 


**MSOS 

4. 0N880 0 650 


**MSOS 

4, QN880G 651 

O 


N880 0 652 


**MSQS 

4.0N8800653 


**MSOS 

4. QN880 0 654 

O 

**MSOS 

4. 0N83G 0 655 

**MSOS 

4. 0N880 0656 



N880Q657 

O 

**HSOS 

4. 0N880 0 658 

**MSOS 

4» 0N880 0659 


**NSOS 

4. GN3800660 


**MSOS 

4. ON88Q0661 

O 

♦»HSOS 

4. ON8800 £62 


**MSOS 

4. GN88QQ663 

o 

**MSOS 

4« CN8800664 



N880 0665 

o 

**MSOS 

4. 0N8800666 


**MSOS 

4. ON8800667 

o 

**WSOS 

4* ONB80 Q 668 


N38Q0669 

N8800670 

o 


O 


o 

o 

O 

o 

o 

o 


o 
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DATES 

o 

E Q U I V 

A L E N 

C E S 





o 









DEF .LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

o 

0 000 

I 

uGFF 

! 000255} 

0 074 , 

0 094, 

0104, 0115, 





0598, 

0632 



0010 

STDINP 

0 0 F 9 

1000249? 

0 029 



o ■ 

0 011 

S TD SCR 

00B3 

1000179? 

0396, 

0456 


0012 

S TD OUT 

0 OF B 

( 0 00251? 

0359, 

0 617 



0 013 

STDOCD 

OOFC 

(000252? 

0297 


0299, 0360, 


0014 

DISP 

OQEA 

(00 0234? 

0 030 , 

0298, 

o 

0 015 

BIT2 

0024 

1 0 D 0 03 6) 

0 186 



0 016 

BIT6 

0028 

1000040? 

0100 

0 082, 

0107 


00 17 

BIT 14 

0030 

(000048? 

0 0 49, 


0 018 

HFF00 

0 01 A 

(000026? 

0 0 53 , 

0 057, 

0060, 0070, 

o 

0019 

HQOFF 

00 0 A 

( 000010? 

0 043, 

0088, 

G 0 99 , 0 201 

0 0 20 

HO 0 0 F 

0 0 06 

i QG0QG6? 

0185, 

0247, 

0264, 0279, 


0 021 

H7FFF 

0042 

(000066? 

0 422, 

0465 



0022 

HFFFF 

0012 

i 000018) 

0 605 



o 

0 023 

HFOOO 

0 0 1 E 

( 0 00030) 


0 509, 

0619 

0 02 4 

A 

0046 

1000070? 

0 420 , 


Q 539 

SRTLG 

0 E93 

( 003731) 

0 434 



o 








o 








o 








o 








o 









08/19/99 


0128, 0149, 0164, 0197, 0215, 0 220, 0225, 0348, 0356, 0502, 0587, 0597 


0399 , 

0459, 

0618, 

0 647 

0076, 

0 081, 

0106, 

0207 


0 316 


O 

o 

o 

O 

O 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 


c 

o 

o 
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DATE: 08/19/99 


( ') 
( } 


SYMBOLS 

O 


O ; 

OEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 


0008 

OPSORT 

0000 

0 0 08 






0 0 09 

3GNRD 

00 0 0 

0009, 

0 03 4, 

0038, 

0046, 

0063, 0079 


0 031 

NUMCK 

00 0 E 

0 029 





O ; 

C 047 

NUMCKi 

0024 

0 0 41 





0 080 

NXTWRD 

0050 

0 095 






00 96 

OPCDSR 

0 06 0 

0 086, 

0 093, 

0111, 

0142 



0104 

CNTSR 

0 068 

0 097 





o 

0112 

FLOCK 

0 07 0 

0 101, 

010 8 




011 5 

END CD 

0074 







G 13 0 

COMP 

0083 

0125, 

0159 





013 7 

GOMPi 

0 G 8 F 

0129 





o 

0139 

C0MP2 

0091 

0171 





0143 

GNTSRi 

009 5 

0119 






0 172 

EN 

0 0B2 

0121, 

0154 




1 

0173 

NO 

00B3 

0157 





o 

0 174 

DBLK 

0 0B4 

0124 





0175 

BLANKS 

0 0 B 5 

0 032 






0176 

ASTKS 

O0B6 

0 036 






0177 

CHRFLG 

0 0 B 7 

0 085, 

0092, 

0096, 

0103, 

0110, 0117 

o 

Q 178 

OPFLG 

Q0B8 

0 028, 

0 112, 

0 116, 

0141, 

0196 

0 179 

COUNT 

00B9 

0 223, 

0228, 

0 230, 

0661 



0 180 

CHR8F 

00BA 

0 G 50, 

0 05 4, 

0059, 

0066, 

0067, 0072 





0229 , 

0237, 

0 268 , 

0334 


o 

0181 

BUFF 

Q0C4 

0 029, 

0031, 

0035, 

0039, 

0047, 0051 




0120, 

0123, 

0126, 

0137, 

0145, 0150 


0182 

H CROCK 

00F6 

0139, 

0188 





0199 

OPRND 

010 A 

0114 





o 

0206 

LFTRN 

0111 

0 20 0 





2211 

LFFPNi 

011 7 

0 209 






0212 

0PRND1 

011 8 

0210, 

0 218, 

0221 




0 220 

0PRND2 

0120 

0 204 





o 

0222 

0FRND4 

0122 

0 205, 

0211 




0 224 

0PRND5 

0124 

0 233 






0 234 

8UFAD 

0 1 2 F 

0219 






0 2 53 

BUFAI31 

0141 

0245 





o 

0 257 

BUFAQ2 

0145 

0 2 40 





0268 

BUFAD3 

0150 

0252, 

0256 





0 273 

BUFA04 

015 6 

0 250 , 

0282, 

0296 




0 278 

BUFAR5 

0 1 5 B 

0262 





O ; 

0 29 7 

PRN OUT 

Q16E 

0243, 

0 259 




0299 

PN0UT1 

0176 

0297 






o 


o 



0363, 0405, 0668, 0669 


0144, 

0170, 

0199, 

0660 







0127, 

0138, 

0148, 

0152, 

0153, 

0163, 

0167, 

0168, 

0183, 

0 214 

0055, 

0058, 

0061, 

0064, 

0068, 

0 0 75, 

0080, 

0087, 

0 0 98, 

0105 

0156, 

016 0, 

0165, 

019 0, 

0193, 

0206, 

0213, 

0224, 

0226, 

0351 


o 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 
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DATE-! 

08/19/99 

o 

0 300 

ERR MGE 

0177 

0297 






0 301 

BFADD 

0 1 8 B 

0 235, 

0 314, 

0 322, 

0 3 23, 

0331, 0332 


0 30 2 

8FADD1 

0 1 8 C 

0 236 , 

0255, 

0 317, 

0328, 

0330, 0339 

o 

G 3 0 3 

BFAD05 

018D 

0321, 

0 3 84, 

0664 


0 304 

PRGNAM 

0 1 8 E 

0 0 26, 

0040 , 

0344, 

0 350, 

0352, 0357 


0305 

6FTAB 

0 1 8 F 

0134, 

0313, 

0382 



0313 

BFCNT 

0197 

0 270 , 

0275, 

0286, 

0295 


1 o 

0319 

8FA0D2 

019D 

0325 





0326 

BFA0D3 

0 1A 4 

0319 






0334 

BFAD04 

01 AD 

0 338 





' 

0 339 

DONE 

0 IB 3 

0337 





! o 

0 351 

DON El 

01C0 

0198 , 

0358 




0 361 

QONF2 

0 1D1 

0346, 

0359 





0 364 

TITLE 

DID 5 

0191, 

0194, 

0353, 

0359 



0365 

OUT BF 

0 1EE 

0305 , 

0464, 

0478, 

0513, 

0529, 0534 

o 

0 366 

QUTBFi 

057-C 

0 30 6 



0367 

0UTBF2 

0 AD 1 

0 307 






0368 

0UT8F3 

0 EBA 

0 308 






0 36 9 

OUT BF4 

G FI 5 

0 309 





o 

0 370 

OUT BE 5 

0F70 

0310 





0371 

OUT BF6 

0 FCB 

0311 






0372 

OUT BF7 

1026 

0312, 

0 539, 

0557, 

3 558, 

0596 


0373 

SAT 

1081 

0 3 86, 

0389, 

0425, 

0428, 

0437, 0496 

o 

0 374 

SECAD 

1 0 A A 

0 135, 

0326, 

0390, 

0392, 

0 412, 0 413 

0376 

S EC AD 1 

10AC 

0416, 

0417, 

0 426 




0377 

SECAD2 

1 0 A D 

3133, 

0406, 

0407, 

0424 



0 378 

LSTRD 

10 AE 

0131, 

0401 , 

0 446, 

0460 , 

0477, 0628 

° 

0 379 

WRTSC2 

10 AF 

8388, 

0 394, 

0400, 

0 427, 

0667 

0380 

WRTSC 

1080 

0 343 






0 390 

WRTSC1 

10 BE 

0 429 






0396 

WRTTi 

100 4 

0391, 

0 393-, 

0395 



o 

0 400 

WRTSC3 

1 ODE 

0396 





0 40 6 

WRTSC4 

10D 6 

0419 






0 414 

HRT5C5 

10DE 

0136 






0 430 

8GSRT 

1 0 EE 

0 410 





o 

0 43 2 

BGSRT1 

1 0 F 1 

0 449 





G 441 

8GSRIA 

10FC 

0644 






0 449 

BGSRT2 

110 5 

0 444 






0 450 

QSKRB 

110 6 

0 440 , 

0 482, 

05G0 



o 

0 456 

OS K RED 

HOC 

0 451, 

0453, 

0 455 



0 460 

DSKRD1 

1116 

0 456 





Q 464 

DSKRD3 

11 IB 

0 473 






0 474 

0SKRQ4 

112 6 

0466, 

0 47 2 




o 

0 48 3 

QSKRD2 

1131 

0452 





0 500 

0SKRD5 

1143 

0 493 






0 501 

SORT 

1144 

0 480 , 

0488 , 

0499 




0513 

SORT1 

1150 

Q 520 , 

0614, 

0 641 



o 

0 521 

S0RT2 

1159 

0 514, 

0535, 

0579 



0 523 

S0RT3 

115B 

0 531 , 

0538, 

0575, 

0565 



0 540 

ST AUDI 

116D 

0 439, 

0454 , 

0 481 , 

0439, 

0666 


0 541 

STPRG 

116E 

0 432, 

0474, 

0491, 

0507 


o 

0 542 

STADD 

11 6 F 

0433, 

0450, 

0452, 

0475, 

0 48 4, 0 485. 

0 544 

STA DO 2 

1171 

0 435, 

0492 




o 


O 



0335, 0380, 0662 
0340, 0387, 0404, 0663 

0362 


0539, 0541, 0568, 0572, 0578, 0595, 0606, 0651 

0415, 0423 
0 6 43 


0486, 0490, 0494, 0505, 0656 


O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 


o 


o 


OPSORT 

PAGE 20 



DATES 

08/19/99 

o 

0 545 

STCNT 

1172 

0 431, 

0 43 6, 

0 441, 

0 442, 

0 49 5, 

0498 


0 5 46 

BFFL 

1173 

0592 , 

0607, 

0 633 





0547 

8FFL1 

1174 

0 504, 

0589 

0623, 

0 634 



o 

0548 

BFFL2 

1175 

0 538 , 

0 599, 



3 549 

SRI AO 

117 6 

0 50 3, 

0517, 

0 526 


0 638, 

0 64 0 


0 550 

SRTAD1 

1177 

0510, 

0610, 

0611, 

0635, 


0 551 

SAVE 

117 8 

0 521 , 

0559, 

0593, 

0604 



o 

Q 552 

SA VE1 

1179 

0 522, 

0 532 


0577, 

0584 


0 553 

SAVE3 

117 A 

G 5 2 5 * 

0561, 

0574, 



Q 554 

SAVEA 

11 7 B 

0560 , 

0565, 

0567 





0 555 

SAVE3A 

1 17 C 

0 562, 

0 569, 

0571 




o 

0 556 

SAVE3B 

1170 

0 564, 

0581 


0621, 

0 62 7 


0557 

LIST 

117E 

0 447, 

0 615, 

0 620, 



0558 

END BF7 

117F 

0622, 

0626 






0559 

CMPR 

1180 

0 537 







0 565 

CMPR1 

1186 

0 533 

0528 





o 

0 586 

S0RT4 

1 19 E 

0519, 






0595 

S0RT4A 

I1A 7 

0 603 







0 604 

S0RT4B 

1 1 B 2 

0 601 


0645 




o 

0 615 

SORT4C 

11 BE 

0 6 03 , 

0613, 




0617 

SRT4C 

11C0 

0616 

0517 






0619 

S0RT4D 

11C8 

0 448 , 






0 642 

S0RT4E 

11E1 

0 63 6, 

0 639 





o 

0 645 

SORT4F 

HE 6 

0625 






0646 

ENDSRT 

11E 7 

0630 







0 651 

ZBUFF 

11 E C 

0 654 







0 656 

ZBUFF1 

11F 2 

0 659 







o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

p 

o 

o 

o 

o 


o 


o 


o 


OPSORT 


PAGE 21 


DATE: 08/19/99 


o 


o 

o 

o 

o 

o 

o 


** A L 

P H A 

B E I I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



A 

0024 

ASTKS 

0176 

BFADD 

0301 

BFADOl 

0302 

BFADD2 

0319 

BFFL 

0 546 

BFFL1 

0547 

BFFL2 

0543 

BFTAB 

0305 

BGNRD 

0009 

BIT14 

0017 

BIT2 

0 015 

BIT6 

0016 

BLANKS 

017 5 

BUFAB 

0234 

BUFAD5 

0 27 8 

BUFF 

0181 

CHRBF 

0 180 

CHRFLG 

0177 

CM PR 

055 9 

C0HP1 

0137 

C0MP2 

0139 

COUNT 

0179 

DBLK 

0174 

DISP • 

0014 

DSKRD1 

0 46 0 

BSKRD2 

0 483 

DSKRQ3 

0 464 

DSKRD4 

0474 

DSKRD5 

0500 

EN0SRT 

0646 

ERRMGE 

0300 

FLOCK 

0 112 

HOOOF 

0020 

H00FF 

0019 

I 

000 0 

LFTPN 

0 206 

LFTPN1 

0211 

LIST 

0557 

LSTRD 

0 37 8 

NXTWRQ 

008 0 

OPC OSR 

0 0 96 

OPFLG 

0 178 

OPRND 

0199 

0PRND1 

0212 

OUT BF 

0365 

OUTBFl 

0366 

0UT8F2 

0367 

OUTBF3 

0368 

OUT OF 4 

036 9 

PPG N AH 

030 4 

PRNOUT 

0 297 

SAT 

0 373 

SAVE 

0551 

SAVE1 

0552 

SEGAD 

0374 

SEC ADI 

0376 

SEC A 02 

0 3 77 

SORT •• 

0 501 

SORT1 . 

0513 

S0RT4B 

0 60 4 

S0RT4C 

3 615 

S0RT4D 

0619 

SORT 4E 

0642 

S0RT4F 

0645 

STADD 

0 542 

STADD1 

0 540 

STADD 2 

0 544 

ST-CNT 

0545 

STD INP ■ 

0010 

TITLE 

ZBUFF1 

0364 
0 65 6 

WRITl 

0396 

WRTSC 

0 38 0 

WRTSC1 

0390 

WRTSC2 

0379 


o 

o 

o 

o 


o 

o 

o 


o 





BFADD3 0326 BFADD4 0334 BFADD5 

BGSRT 0 430 BGSRT1 Q432 BGSRT2 

BUFAD1 0253 BUFA02 0257 6UFAD3 

CMPRi 0565 CNTSR 0104 CNTSR1 

DONE , 0339 D0NE1 G351 D0NE2 

DSKRED 0456 EN 0172 ENQ8F7 

H7FFF 0021 HFOOO 0023 HFF 0 0 

M CROCK 0182 NO 0173 NUMCK 

0PRNB2 0220 0PRN04 0222 0PRND5 

0UTBF5- 0370 0UTBF6 0371 0UT8F7 

SA¥£3 0 553 SAVE3A 0555 SAVE38 

50RT2 0521 S0RT3 0523 SORT 4 

SRT4C 0617 SRTAD 0549 SRTAD1 

STDOCD 0013 STOOUT 0012 STDSCR 

WRTSC3 0400 WRTSC4 0406 WRTSC5 





□ 

0303 

BFCNT 

0313 

o 

0449 

BGSRTA 

0441 

0268 

BUFAQ4 

0273 


0143 

COMP 

’ 0 130 


Q 361 

DSKRD 

0450 

o 

0 55 8 

ENDCD 

0115 

0018 

HFFFF 

0022 


0031 

NUMCK1 

0047 


0 22 4 

OPSORT 

00 0 8 

o 

0372 

PNOUT1 

0299 

0 556 

SAVEA 

0554 


0 586 

S0RT4A 

0595 


0550 

SRTLG 

0539 

o 

0 011 

STPRG 

0541 

0414 

ZBUFF 

0651 

o 




o 








o 




o 




o 




o 




o 




o 


o 

o 

o 


DTLP 


PAGE 


1 


DATES 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0001 NAM DTLP DECK-ID N89 MSOS 5.0 

0002 * HASS STORAGE OPERATING SYSTEM VERSION 5.0 

0003 * SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

0004 * COPYRIGHT CONTROL DATA CORPORATION 1976 


000 6 * 

0007 * THIS PROGRAM LOADS THE UTILITY PROGRAM 

000 8 * 

00 0 9 * DSKTAP INTO CORE AND EXECUTES IT 

0010 ENT DTLP 

0011 PO000 1 83E DTLP JMP* START 

0012 GETFIL GTFILE Gi, NA ME-GETFIL-1 , FWA, , , , 0 , 1 , 1 

0012 P00Q1 54F4 

0012 PO 002 5AG1 

0012 P00Q3 0 Q 00 P 
P0004 0000 

0012 P0 00 5 0 8C2 
P 0 0 06 00 00 
P 0 0 0 7 0038 P 

0012 P0008 0000 
P0 0 09 D 0 39 

0013 PflOOA 0000 NUM 0,0 

P0 0 0B 0 00 0 

0014 PD00C 1 4E A JMP- TSEA) 

Q 0 1 5 P00 0D 54F4 Gl RTJ- ($F4> 

0016 PO00E 4C00 NUM $4GG0 FWRITE 

0017 POO OF 0028 P ADC CQMP,Q 

POO 10 0 00 0 

0018 P0 011 1 8 FC NUM $18FC 

0019 P 0 0 12 0016 LENM1 ADC NSEND1-MESS1 

002 0 P 0 013 0 015 P ADC iMESSl 

002 1 P0 0 1 4 1 4EA JMP- I$EA) 

G 0 2 2 P 0 0 1 5 5455 MFSS1 ALF *,FURN OFF PROTEC SWITCH, TYPE CARRIAGE RETURN* 
POO 16 52 4E 
P0 0 17 204F 
P0018 4646 
PO 019 20 50 
P0C1A 524F 
POO IB 5445 
P0 Q 1C 4320 
P001D 5357 
P001E 4954 
POO IF 4348 
POO 29 2C54 
P0021 5950 
P0 022 ^52 0 
P0023 4341 
PO 024 5252 
P0 0 2 5 4941 
P0026 4745 
POO 27 2052 
PQ028 4554 
POO 29 5552 


SUMMARY- 110N890QQ01 
N8900002 
N8900003 
N890 0 004 


N8900006 
N8900007 
N8900Q08 
N8900009 
N8900010 
67*1 465 N890D011 

67*1465 N8900Q12 


67*1465 

67*1465 

67*1465 

67*1465 

67*1465 

67*1465 

67*1465 

67*1465 

67*1465 

67*1465 


N 8 900013 

N8900014 
N 8 90 001 5 
N 890 0 01 6 
N8900G17 

N890GQ18 
N 890 0 019 
N39G 0 020 
N 890 0 0 21 
N 890 0 022 


c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DTLP 


PAGE 2 


DATEi 08/19/99 




D 

0 023 

P002A 

4E2 0 
0 0 2B 

P 

MSENQ1 

EQU 

MSEND1 { * 


C 0 2 4 

P0020 

54F4 


COMP 

RTJ- 

L$F 4 1 

o ; 

002 5 

P002C 

4800 



NUM 

S 48 0 0 

0026 

P002D 

0000 



ADC 

0,0 



P002E 

00 00 






0027 

PQQ2F 

13FD 



HUM 

$18FQ,1 

o 


P 0 03 0 

0 0 01 





0028 

P 0 031 

0 000 

P 


ADC 

DTLP 


0029 

P0 032 

C8FB 


COMPO 

LDA* 

COM Pa- 3 


0 D3G 

P 0 033 

0101 



SAZ 

1 

o 

0031 

P0034 

1 8 FD 



JMP* 

COMPO 

0032 

P0 035 

F8F9 



LDQ* 

COMPH-4 


0033 

P 0 03 6 

0161 



SQP 

COMP1 


0034 

P0 037 

1305 



JMP* 

Gi 

o 

0035 

P0 038 

0500 


COMF1 

1 1 N 

0 

00 3 6 

P0039 

1400 


JUMP 

JMP* 

0 



P003A 

00 00 






0 037 


0Q3B 

P 

FWA 

EQU 

FWA (*) 

o 

0038 

P0038 

4453 


NAME 

ALF 

3 , DSKTAP 


P0 0 3C 

4B54 







P003D 

41 50 






0039 

P003E 

C83F 


START 

LDA* 

LDADR 

o 

0040 

P003F 

0136 



SAM 

MOA 

0041 

POO 40 

90 00 



SUB 

= N$19Q 5 



P0Q41 

1905 






0042 

PQ 042 

0121 



SAP 

M0 

O ' 

0043 

PQ 043 

0 A00 



ENA 

0 

0044 

P 0 0 44 

8000 


M0 

ADD = 

: N$1 90 5 



PQ 045 

1905 




GETFIL+6 


004 5 

P 00 46 

68CC 


MOA 

ST A* 

o 

00 4 6 

P0047 

68F2 



STA* 

JUMP*i 

0047 

P0048 

0 8 42 



■ CLR 

Q 


0048 

P 0 0 49 

4 0 FF 



STO- 

I 


0049 

P0Q4A 

0FE4 


Ml 

LLS 

4 

o 

0050 

P0 04B 

0DF5 



INQ 

-10 

0051 

P004C 

0171 



SQM 

M2 


0052 

P0 040 

0 D 0 7 



INQ 

7 


0053 

P8G4F 

003 A 


M2 

INQ 

$3A 

o 

0054 

PQ04F 

4917 



S TO* 

M4 , 1 

005 5 

P0050 

DOFF 



RAO- 

I 


0056 

P0 0 51 

E0 FF 



LQQ- 

I 


0057 

P 0 0 5 2 

QDFS 



INQ 

-4 

o 

005 8 

PD053 

G 1 42 



SQZ 

M3 

0059 

P0 054 

0 8 42 



CLR 

Q 


0060 

P 0 0 5 5 

1 8 F 4 



JMP* 

Ml 


006 1 

P0056 

C 8 10 


M3 

LDA* 

M4 

o 

0 0 6 2 

P0057 

0 FC8 



ALS 

8 

0063 

P0058 

8 8 0 F 



ADO* 

M 4frl 


0 0 6 4 

P0 059 

6821 



STA* 

ADR 


0065 

P005A 

C30E 



LDA* 

M4<-2 

o 

0066 

P0 05B 

0FC8 



ALS 

8 

0067 

P005C 

8800 



ADD* 

M4»-3 


o 


o 


FREAD 


WAIT FOR COMPLETION 


CHECK FOR ERROR 
REPEAT MESSAGE 
INHIBIT INTERRUPTS 


STARTING ADDRESS OF. DSKTAP 
IF UPPER BANK, OK 
MUST BE .GE.$i905 

SKIP IF OK 


CONVERT STARTING AODRESS 
TO ASCII 


67*1465 N89QQQ23 
67*1465 N89G0024 

67*1465 N3900025 

N 890 0 0 2 6 

67*1465 N8900027 

N8900028 
N8900029 
N8900030 
N8900031 
N89Q0032 
N8900033 
N8900034 
67*1465 N8900035 

N8900 036 

67*1465 N8900037 

67*1465 N89Q0038 


67*1465 N893Q039 

N8 90 0 0 40 
N898QG41 

N8900 042 
N890 0 043 
N8900044 


N8900 045 
N8 90 0 0 46 
67*1465 N8900Q47 

67*1465 N 8 90 0 048 
67*1465 N8900049 

67*1465 N 890 0 0 50 
67*1465 N890Q051 

67*1465 N89G0052 

67*1465 N89G0053 

67*1465 N89Q0054 

67*1465 M8900055 

67*1465 N8900056 

67*1465 N 8 900057 
67*1465 N89Q0058 

67*1465 N8900059 

67*1465 N39Q 0 060 
67*1465 N8900061 

67*1465- N8900062 
67*1465 N3900063 

67*1465 N8900064 

67*1465: N8900Q&5 

67*1465 N 890 0 0 66 
67*1465 N89000&7 


o 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 


67*1465 N890 0 06 8 

67*1465 N8900069 

67*1465 N890007Q 

67*1465 N 890 0 07 1 
67*1465 N890GQ72 

67*1465 N3900Q73 

67*1465 N 890 0 07 4 
67*1465 N890G075 

67*1465 N8900076 

67*1465 NS900077 


67*1465 N8900078 

67*1465 N8900079 

67*1465 N89GGQ80 
67*1465 N8900081 

N8900082 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

o 

o 

o 

o 


EQUIVALENCES 

DEF.LINE NAME VALUE REFERENCED AT LINE NUMBER 

0000 I 00FF (0002559 00^8, 0055, 0056 


o 


o 

o 

o 

o 


o 

o 

o 

o 

o 

o 


I 


c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Pi 

— ■ 







G 



DTLP 


PAGE 5 


DATE: 

08/19/99 

o 

S y M B 0 

L S 





n 

O ' 







o 


def.line 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

o 

o ■ 

0010 

DTLP 

00 0 0 

0010 , 

0 028 



0 012 

GETFIL 

0 0 0 1 

0012, 

0045, 

0071 



0015 

Gi 

QOOD 

0012, 

0 03 4 



o 

0019 

LENMi 

0012 


0020 


o 

0022 

MESS1 

Ufli 5 

0 019, 



0 023 

MSENQ1 

0 02 B 

0019 





0 024 

COMP 

002B 

0017, 

0 029, 

0 032 


o 

0029 

GOMPO 

0032 

0 031 



o 

0 03 5 

COMP1 

0038 

0033 




0 036 

JUMP 

0039 

0 0 46 





0 037 

FWA 

0 0 3 B 

0012, 

0 081 



o 

0038 

NAME 

0036 

0012 



o 

0 039 

START 

0 0 3 E 

0 0 11 




0044 

MO 

0044 

0 0 42 





0045 

MO A 

0 0 46 

0 040 




o 

0 049 

Ml 

0 0 4 A 

0 060 



o 

0 053 

M2 

0 0 4 E 

0 051 




0 061 

M3 

0056 

0 058 





0 0 73 

LENM 

00 6 3 





o 

Q 076 

M4 

0066 

0 0 54, 

0061, 

0063, 0 065, 

0067 Q 

0 0 77 

MESS 

0 0 6 A 

0073 , 

0 074 



0 078 

ADR 

0 0 7 A 

0064, 

0 068 




0080 

MSEND 

0 0 70 

0 0 73 




o 

0 081 

LDADR 

G 0 7 0 

0 039 



o 

o 







o 

o 







o 

o 







o 

o 







o 

o 







o 

o 







o 

o 







o 

1 . . 




. . 





. . - - - - — >. 




DTLP 


PAGE 

6 


DATE: 08/19/99 

**» A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H 

B 0 L S *** 


ADR 

JUMP 

M4 

0078 

0036 

0076 

COMP 

LDADR 

HESS 

0 024 
0 081 
0077 

GOMPG 

L'ENM 

HESS1 

0 029 
0073 
0 0 22 

C0MP1 

LENMi 

MSEND 

0035 DTLP 
0019 M0 
0080 MS END 1 

0010 

0044 

0023 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


FWA 0037 G1 

HO A 0045 Hi 

NAME 0033 START 

O 

O 

O 

O 

O 

o 

o 

o 

‘*»- 4 

o 

o 

o 

o 

o 



DSKTflP 


DATES 08/19/99 


00Q 1 
0 0 0 2 
0 0 0 3 
0 00 4 


NAM DSKTAP DECK-ID N90 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-122** ****** 
N90Q 0 00 2 
N90Q0003 
N90Q0Q04 


000 6 
00 0 7 
000 8 
00 0 9 
0010 
0011 
0012 
0013 


ENT 

ENT FST 
EXT* 
EXT* 
EXT* 
EXT* 
EXT* 
EXT* 


DSKTAP 

ENGDHX , DCOQHX 

EQCOOE 

CORIVE 

MDRIVE 

MGDRIV 

MGREAD 


N9 00 0 0 0 6 
**MSOS 4.1**N90000G7 
N900Q008 
N9 00 0 009 
N900 0 01 0 
N9000011 
N9 00 0 012 
N9 00 0 013 


0015 

* 

THIS PROGRAM REQUIRES THAT ONLY 

0016 

* 

ONE OF THE 

MASS MEMORY DRIVERS $ 

0017 


MO RI‘V4 

1739 

0018 


MDRV55 

856 

0019 


M3R5 2 

1752 

0020 

* 

OSKMMQ 

1733-1/1738 

00 21 

* 

BE LINKED 


**M SO S 
**MSOS 
**MSOS 
**M SO S 
**MSOS 
**MSOS 
* * M S O S 


4.1**N9Q0001 5 
4. 1**N900 0 016 
4. 1**N9 000017 
4. 1**N9 000018 
4.1**N9000019 
4.1**N900 0020 
4. 1 **N90 0 0 021 


003 5 


P0 0 0 0 

P0 001 
P0 032 
P0QQ3 
P 0 00 4 
P000 5 
P0006 
P0007 
P00 08 
P0GQ9 

POOOA 
POO OB 
PflflflC 
PODOD 
POOOE 
PO OOF 
P0G10 
POOH 
PO 012 


0 C 0 0 
0020 
0100 
0 DO 5 
Q 0 0 0 
0500 

5801 
0 000 
C3FE 

0 9 F D 
5800 

01 80 
5800 
7FFF 
C0C1 

5800 
7FFF 
4800 
0 1 9 £ 
6800 
0 19D 
OCIO 
C 8 0 0 
0169 


RECLEG 

SECTRK 

BUF1 

B2 

START 

* 


EQU RECLEG { 3 072'} MAXIMUM NUMBER OF WORDS PER RECORD 
EQU SEGTRKf 3 2) MAXIMUM NUMBER OF SECTORS PER RECORD 

FQU 8UFHS10 03 STARTING ADDRESS OF BUFFER 1 
EQU 321 BUF1+ RECLEGfr 5) STARTING ADDR OF VERIFY BUFFER 
EQU DSKTAP I* 3 

II N 0 CAUSE PROTECT ERROR IF CALLED AS 

AN ITOS USER PROGRAM 

RTJ* **1 

NUM 0 

LDA* *-i 

IN A -2 SET UP ABSOLUTE 

RTJ SETUP ADDRESSES 


SETUP 


ABSOLUTE 

ADDRESSES 


67*1466 N9000023 

67*1466 N9000024 

67*1466 N9 00 0 025 
67*1466 N9G80 026 

N9000 027 
122*4841******** 
122*4841******** 
122*4841******** 
N900Q029 
N9 00 0 03 0 
122*4841******** 
N9Q00032 


EQCOOE 


GET EQUIPMENT CODES FOR MAG TAPE **MSQS 4. QN9000033 


LDA- SCI 

RTJ ENGDHX 

STQ SCRATH 

STA SCRATHM 

ENQ LMSGD 
LDA AMSGO 


GET LS8 SCRATCH 
1 CARD DELETED 
ENCODE IN ASCII 


**MSOS 4.1 **N90Q 0 034 
N900G035 
**MSOS 4» 1 **N90Q 0036 

**MSO S 4. 1**N9 0 0 0 037 

**MSOS 4* i**N9GG 0 038 

**MSOS 4.1**N9O0 0 039 
**MSOS 4. 1**N900 0 040 


QSKTAP PAGE 2 DATE: 08/19/99 


o 

0043 

POO 13 
P0014 

5800 

X 


RTJ CDRIVE 

WRITE NO. SECTORS TO SCRATCH **MSOS 4.1 

**N90Q 0041 

O 



7FFF 

X 






0044 




* 


AND DISK **M SOS 4 

« 0N9GG 0 042 


o 

0045 

P0015 
P0 016 

C 80 0 
0166 


RESTRT 

LDA 

AMSG1 

N9000043 

O 


0046 

P 0 0 17 

0C25 



ENQ 

LMSG1 

N9000 044 



0047 

P0018 

58 0 0 

X 


RTJ 

C DRIVE 

N9GGGQ45 


o 

0048 

PQ019 

P001A 

Q0 14 
5800 

X 


RTJ 

BKGND 

N9000046 

O 



P 0 0 IB 

0156 







0049 

P001C 

coco 



LDA =X8UF1 

INPUT BUFFER ADDRESS 67*1466 

N9GG0 047 


o 


P001D 

0100 




o 

DQ50 

P001E 

ocoo 



FNQ 

0 

N9G00048 


005 1 

P001F 

58 0 0 

X 


RTJ 

CDRIVE 

N9QGQ049 




p 0 D 2 Q 

0 019 

X 





o 

005 2 

P 0 02 1 

OCOO 



FNQ 

0 

N9000Q5Q 

o 

0053 

P0022 

CAGE 


SRC HI 

LDA* 

T ABLli Q 

N90GG051 


0054 

P0 023 

0122 



SAP 

S RCH1 0-*-l 

N90Q0052 



0055 

P 0024 

1800 



JMP 

ENDING NOT IN TABLE 

N9G00053 


o 

00 56 

PQ025 

P0G26 

0 0 75 
B4G0 


SRC HI 0 

EOR 

6UF1 

N90Q0 054 

o 



P0 027 

0 10 0 







0057 

P 0 028 

0114 


' 

SAN 

SRQH12-*-! 

N9000 055 


o 

005 8 

P0029 

C A 0 8 



LOA* 

T ABL 1 *• 1 » Q 

N 9 0 0 0 3 5 6 

o 

0 0 59 

P 0 0 2 A 

B 40 0 



EOR 

BUF1 *1 

M900 G 057 



P002B 

0101 







0060 

P002C 

0102 



SAZ 

2 SKIP IF FOUND 

N90Q0058 


o 

0051 

P 0 02D 

0 D 04 


SRC HI 2 

INQ 

4 

N900Q059 

o 

0062 

P002E 

18F3 



JMP* 

SRCH1 

N9Q0 0060 


00 53 

P002F 

1 A 03 



JMP* 

TABLi*2,Q 

N9000061 


o 

0065 

PQ 030 

5341 


TABL1 

ALF 

2, SAVE 

N9GQG0S3 

: ° 



P0031 

5645 







0 0 66 

PQ 032 

1800 



JMP 

S AVSTS 

N9000Q64 


o 


P0033 

0 0 0 7 





• o 

0 C 6 7 

P 0 03 4 

4C4F 



ALF 

2, LOAD 

N90QG065 



P0Q35 

4144 







0068 

P 0 0 3 6 

1800 



JMP 

LODISK 

N900 0 066 


o 


P0037 

O0F5 





o 

0069 

P0 038 

FFFF 



NUM 

-D END OF TABLE 

N9000 067 


0070 





«*«***»*¥¥***** «******»»*¥*****¥«**¥****¥¥ *«*?*¥* 

N9DQ 0 068 



00 71 





SAVE OPTION 

N900GQ69 


o 

007 2 





N9Q0G37Q 

• o 

0073 

P 0 039 

00 00 


-LAST 

NUM 

0 

N9G0G071 


00 7 4 

PQD3A 

0 A 0 0 


SAVSTS 

ena 

0 DISK TO TAPE 

N90D0S72 



0075 

P003R 

6 8 FD 



sta* 

LAST 

N9000073 


n 

0076 

P003C 

C80D 



LDA 

AMSG2 SAVE INFO 

N900 0-Q 74 

o 

“W 


P 0 030 

0140 






00 77 

P0 03E 

0C 16 



ENQ LMSG2 

OUTPUT TAPE ON UNIT 0 

N9G0QO75 



00 7 8 




¥ 


NUMBER OF SECTORS TO SAVE 

N90Q0076 


O 

0079 

P003F 

5800 

X 


RTJ 

CDRIVE 

N900G077 

- o 


P 0 040 

00 20 

X 





O 


o 


o 


o 


DSKTAP 


PAGE 
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DATE: 08/19/99 


0080 

P0 041 

5800 


RTJ 

BKGND 


P 0 04 2 

012F 




0081 

P0Q43 

COOO 


LDA = XBUF1 



P 0 044 

0100 


ENQ 

0 

008 2 

P0 045 

OCOO 


0083 

P 0 04 6 

5300 

X 

RTJ 

CDRIVE 


P 0 047 

00 40 

X 


BUF 1 

0084 

POO 48 

E400 


LDQ 


PO 0 49 

0100 


LDA 

BUF1H 

008 5 

P004A 

C 4 0 0 


PO 04B 

0101 



DCOOHX 

0086 

POO^C 

5800 

X 

RTJ 


P004D 

7FFF 

X 



0087 
00 88 

P004E 

1 8EB 

* 

JMP* 

SAVSYS 

00 89 
009 C 

P004F 

0111 

¥ 

SAN 

1 

0091 

P0050 

18E9 


JMP* 

SAVSYS 

009 2 
0093 

PO 0 51 

68E7 


STA* 

LAST 


INPUT BUFFER ADDRESS 

NUMBER OF SECTORS TO SAVE 


CONVERT NUMBER OF SECTORS . FROM 
ASCII TO HEXADECIMAL 
1 CARD DELETED 


SET LAST EQUAL TO LAST SECTOR 
TO SAVE 


N9000078 

67*1466 N90Q0Q79 

N93Q0030 
**MSOS 4.0N900Q081 

N900Q082 

N9000083 

**MSOS 4» ON9 00 0 08 4 

**MSOS 4* 0N9 000085 
N9Q0G086 
N900 0087 
N90G0 088 
N9000089 
N9000090 
N9G00 091 


DSKTAP 


PAGE 


4 


DATE: 08/19/99 


P 0 0 52 
PQ053 
P0 054 
P0Q55 
PG056 
P 0 057 
PO 0 58 
PD 0 59 
P005A 
P005B 
PQ05C 
P 0 0 50 
P005E 
P005F 
PO 0 60 
PO 061 
PO 0 62 
PO 063 
P 0 0 64 
P 0 065 


5800 

0020 

0 A 20 
6840 
5832 
5826 
58 02 

1 8 FC 
OBOO 
COFF 
8839 
6 0 FF 
0 8 22 
C8D9 
5806 
0103 
0900 
0101 
1CF5 
1832 


D3KCHK READ IN BAD SECTOR DIRECTORY 


**MSOS 4. 0N900DQ93 


READ 1 


INCSEC 


DIKOFF 


ENA SEGTRK 
STA* TRKS EC 
RTJ* QSKRD 
RTJ* WRTMGT 

RTJ* INCSEC 

JMP* READ1 

NOP 0 

LDA- I 

ADD* TRKS EC 
STA- I 

TRA Q 
LDA* LAST 
RTJ* C0MPV4 
SAZ DIKOFF 
INA 0 . 

SAZ DIKOFF 
JMP* (INCSEC) 

JMP* DSKCFF 


SECTORS PER RECORD 
SET NO OF SECTORS TO READ 
READ DISK 
WRITE MAG TAPE 
DONE YET 


CURRENT SECTOR IN Q 
LAST IN Q 
COMPARE FOR DONE 
EQUAL , SO DONE 


MORE TO DO, SO CONTINUE 
ALL DONE 


67*1466 


6 N90D0094 

N9000095 
N9GQG096 
N90G0097 
4. ON9000098 
4. QN900Q099 
4.0N900010Q 


**MSQS 4.0N9GQQQ98 
* * M S 0 S 4. QN9000099 
**M SOS 4 • 0N9 00 010 0 
**MSOS 4 , G N90 0 0 1 Q 1 
N900Q1Q2 


**MSOS 


4* QN9000103 
N900 0104 
N900 0 10 5 
N90Q0106 
N9 00 0 10 7 
N9000108 
N9QQ01Q9 
N900011Q 
N9 00 0 111 


******************* **¥-***.**<* 


5r 




ADDRESS COMPARE ROUTINE 

* 

3- 




SAME AS IN TRVEC 


A 

.GT. 

Q 

DIFFERENCE RETURNED IN A 

* 

A 

.EQ. 

Q 

A EQUAL 0 

* 

A 

. L T . 

Q 

A SET TO SFFFF 




PO 066 OBOO ■ COMPY4 NOP 0 

P 0 0 67 0132 SAM AUPPER 

P 0 068 01 65 SQP BTHSAM 

PO 069 1808 JMP* QBIGER 

PG06A 0173 AUPPER SQM BTHSAM 

PD 06 B 08 52 TCQ Q 

P006C 0834 A AQ A 

PO 06 D 1805 JMP* ABIGER 

P006E 08 52 BTHSAM TCQ Q 

P006F 0834 AAQ A 

PQG7G 0121 SAP ABIGER 

PO 07 1 0 8 04 QBIGER SET A 

P 0 0 72 1CF3 ABIGER JMP* TC0MPV4) 


ENTRY 

A .GT. $7FFF 
BOTH .LT, $8 000 
Q ..G'T, $7FFF 
BOTH .GT. $7FFF 
A .GT. Q 
DIFFERENCE IN A 


RETURN 


N90G 
N9G 0 
N9Q0 
N900 
N9 00 
N9G0 
N90Q 
N9G0 

N900 
N9 0Q 
N9 00 
N9 0 0 
N9 08 
N900 
N900 
N900 
N900 
N90G 
N90 0 
N900 
N900 


0113 

0114 

011 5 
0116 

0117 

0118 

0119 

0120 

0122 

0123 

0124 

012 5 
0126 
Q 1 27 
0128 
0129 
0 130 

0131 

0132 

0133 

0134 




DSKTAP 


PAGE 

5 

DATE: 08/19/99 

0133 

PO 07 3 

00 00 

DSKCHK 

NUM 

0 


0139 

P 0 0 74 

0 A 0 0 


ENA 

0 

INITIALIZE SECTOR HOLDER 

0140 

PO 075 

6 0 FF 


STA- 

I 

SAVE IN I 

0141 

PO 0 76 

6 80 0 


STA 

FST 



P 0 077 

0 0 05 





0142 

P0Q78 

COOO 


LDA = X3UF1 




P0079 

0100 





0143 

P0 0 7A 

6819 


STA* 

A BUFF 


0144 

P0078 

1CF7 

CD11Q 

JMP* 

i DSKCHK') 

EXIT FROM DSKCHK 

0145 

P007C 

0 00 0 

FST 

NUM 0 

FIRST TIME FLAG 


N9QQ 0 136 
N9000137 
**MSOS 4. GN90G0138 
N9 DO 0 139 

67*1466 N9GQQ140 

N9 Q G 0 141 
N9GOO 142 
**MSGS 4,1**N9G00143 


DSKTAP 


PAGE 


6 


DATES 08/19/99 



o 

o 

o 

o 

o 

o 

o 

o 


0147 

PC 0 70 

0 BOO 

WRT 

MG T 

NOP 

0148 

PO 07E 

CO 00 

CD 1 

30 

LDA = 


P007F 

0100 




0149 



* 



0150 

POO 80 

E 0 0 0 

RECORD 

LDQ 


P 0 0 81 

ocoo 



0151 

P0082 

5 80 D 

X 


RTJ 


P0 083 

7FFF 

X 


0152 

P 0 0 8 4 

0112 



SAN 

0153 

P0035 

1800 



JMP 


P0 086 

0 0DE 




015 4 

P 0 087 

1CF5 

CD1 

55 

JMP* 


0 WRITE MAG TAPE ROUTINE 

FI SET UP A AND Q TO WRITE 

MAG TAPE 

=XREDLEG LENGTH OF BUFFER 

MGORIV WRITE HAG TAPE 

CD155 ANT ERRORS 

MTERR1 YES 

( WRTMGT) 


0156 P0088 0BG0 OSKRD 

0157 P0 089 08 0 A 

0158 P008A E 0 00 
P008B OCCO 

0159 PO.0 8C 5800 X 
P008D 7FFF X 

0160 P008E 0112 ERRCK 

0161 P008F 1830 
P 0 090 0 0 07 

0162 P0091 1CF6 DSKEXT 


NOP 

0 

READ FROM DISK 

LDA* 

A BUFF 

GET ADDRESS TO READ INTO 

LDQ = 

XRECLEG 

READ REC LENGTH 

RTJ 

M DRIVE 

READ FROM DISK 

SAN 

DSKEXT 

ANY ERRORS 

JMP 

DSKERR 

YES 

JMP* 

1DSKRD1 

EXIT FROM OSKRD 


0 

0 CURRENT BUFFER ADDRESS 

0 

0 SECTOR COUNTER 

0 TEMPORARY STORAGE FOR I 

O 


o 


01 

64 

P0 

092 

00 

00 

SECOND 

NUM 

01 

65 

P0 

0 93 

00 

00 

ABUFF 

NUN 

01 

6 6 

PO 

094 

00 

0 0 

SAVEI 

NUM 

01 

67 

P0 

095 

0 0 

0 0 

TRKSEC 

NUM 

01 

5 8 

P0 

096 

00 

00 

ISA V 

NUM 


o 

o 


o 

o 


N9GQG145 
67*1466 N9000146 

**MSOS 4.GN9Q0G147 
**MS0S 4. GN9D 00148 

N9000149 

N9000150 
**-MSOS 4.0N9000151 

N9000152 


N9GQ0154 
N90QQ155 
**MS0S 4«1**N 9000156 

N9000 157 

** N9000158 

**MS0S 4»ON90G0159 

N900Q16Q 


N9G0G162 
N9QQQ163 
N9 00 0 16 4 
N9000165 
**MS0S 4* 0N9 000166 


G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

n 

***..' 


DSKTAP 
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DATES 08/19/99 


PO 097 
P 0 0 9ft 
PO 099 
P009A 
P0Q9B 

P009C 
P009D 
P00 9E 
P009F 
POOAO 
P0QA1 
P00A2 
POOA3 
POO A4 
PO 0A5 
P00A6 
P00A7 
PO 0A8 
P00A9 
PO OAA 
POOAB 
PO 0 AC 
POOAD 
POOAE 
POOAF 
POOBO 

POOB1 

P00B2 

PQ083 

PG0B4 

P0085 

P00B6 


* WRITE END OF FILE MARK. 

WW**** * *****3Mf ***********-*¥***SMMMMMMf ********** 


0 A 00 
58 0 0 
0 083 
C 8 0 0 
G0E3 

0024 
5800 
0 0 47 
5800 
0 0D1 

ocoo 

GOOD 

oiod 

5800 
Q0 9E 
C 40 0 
0100 
OF 48 
0 9 BE 
0111 
1306 
0 9 EA 
fllll 
1309 
1800 
F F 64 

OCOO 
4QFF 
43 DF 
5 8 03 
1400 
OBOO 


DSKOFF 


ENDING LDA 


MGDRIV 

AMSG3 


LMSG3 

CDRIVE 

BKGND 


END MESSAGE V FOR VERIFY 
A FOR AUTOLOAD 


ENQ 
LDA - 


XBUF1 


67* 1466 


RTJ 

CDRIVE 




LDA 

BUF1 




ARS 

8 




INA 

-$4i 



NOT A 

SAN 

1 

SKIP 

IF 

JMP* 

AUTLOD 




INA 

$41- $5 6 



NOT V 

SAN 

1 

SKIP 

IF 

JMP* 

VERIFY 

JUMP 

TO 

VERIFY 

JMP 

RESTRT 





AUTLOO ENQ 0 AUTOLOAD SIMULATE 

STQ- I iaii rrtn , j 

STQ* ABUFF 

RTJ* DSKR0 **MSOS 4.1 

DOLOAD JMP* 0 

* JMP TO LOCATION ZERO TO 

* SIMULATE AUTOLOAD 


N9000168 

N9GG0169 

N9G0017Q 

N9000171 

N9000172 

N90D0173 

N9000174 
N 9000175 
N900 0176 

N9000177 

N9000178 

N9000179 

N90Q0180 

N90C0181 


N90Q 
N9 00 
N90Q 
N90 0 
N900 
N90 0 
N90Q 
N90 0 


0182 

0183 

018-4 

0185 

0186 

0187 

0188 
0189 


N9000190 

N9000191 

N9000192 

**N9Q0G193 

**N900G194 

N9Q00195 

N9 0 0 0 19 6 
N90B0197 


O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DSKTAP 


PAGE 
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DATE? 08/19/99 


020 1 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 


POO 67 
P00B8 
PQBB9 
POOBA 


C3QQ 

OOC7 

0C10 

5800 


*j**.*»* ¥*»*•** * * ******¥♦*»¥■**•** ************** 

* VERIFY -CON PARE TAPE TO DISK 

**.**|i*$l**:V*****»*¥***** ****** ********} 

VERIFY LDA AMSG4 


P00B8 00A5 
PQOBC OAFF 
POOBD 6400 
POOBE 0100 
PQ08F GOOD 


LMSG4 

CQRIVE 

-0 

BUF 1 


XBUF1 


VERIFY TAPE 


BUFFER ADDRESS 


UNIT 


0210 

P0QC1 

ocoo 


ENQ 

0 

0211 

P0QC2 

P00C3 

5800 
0 Q B B 

X 

X 

RTJ 

CDRIVE 

021 2 

P00C4 
° 0 0C5 

C400 

0100 


LDA 

BUF1 

0213 

P00C6 

0131 


SAM 

1 

0214 

P00C7 

1 8EF 


JMP* 

VERIFY 


READ CARRIAGE RETURN 


N9000199 
N9 00 0 20 0 
N9G0Q201 
N9000202 

N9000203 

N900D2Q4 

N900G205 

N9000206 


67*1466 N90Q0207 

N9 00 0 20 8 
N9G0 0 209 


N90QQ210 

N9 00 0 21 1 
N9 GO 0 21 2 


o 



o 

o 

o 

o 

o 

o 

o 

o 


N900 0 21^+ 
67*1466 N9000215 

N9000216 
N9Q00217 
N9Q0Q218 
N9000 219 
**HSOS 4-.0N90Q0 22D 

N90D0 221 

N9GQG 222 

N9CC0223 
N900 0224 
N900G225 
N90Q0226 
N90002Z7 
**MSOS 4.1**N9000228 
N900Q229 
N900G230 
N90G0231 
N9000232 


W,..* 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

o 

o 

o 

o 

o 


N9G00234 
67*1466 N9G00235 

N90G0236 

N900Q237 

N900 0238 
N90Q0239 
N9G0G24G 
N9G0G 241 

N9000242 


□ 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


{ 

DSKTA 


o 

0246 

P00E8 

OF 70 



Q 247 

P00E9 

30 0 0 




P00EA 

0 0 60 


c 

0248 

P00EB 

4809 


0249 

P00EC 

8 OFF 



0250 

P00ED 

5800 

X 



P00EE 

0 0 0B 

X 

o 

0251 

P00EF 

480 0 



p o o f a 

0130 



0252 

P00F1 

6-3 0 0 




P 0 OF 2 

012F 


o 

0253 

PQ0F3 

CO 0 0 


0254 

P00F4 

0000 

00F4 

P 



0255 

P00F5 

5800 

X 

o 


P 0 OF 6 

0 0 EE 

X 

0256 

POOF7 

4800 




POOF 8 

012F 



025 7 

P00F9 

68 00 


o 


P0 OFA 

0 1 2 E 


0258 

P00FB 

C800 




PB0FC 

0 084 



0259 

P00FD 

QC35 


o 

0260 

PQOFE 

5800 

X 


P00FF 

O0C3 

X 


G 26 1 

P0100 

QAFF 



0262 

POlfli 

64 0 0 


o 


P0102 

010 0 


0263 

P01I33 

COCO 




P 0 104 

010 0 



0264 

PO 105 

ocno 


o 

0265 

PG1Q 6 

5800 

X 


P0 107 

00FF 

X 


0266 

P0108 

C 4 0 0 




P0 109 

0 100 


o 

026 7 

P 0 10 A 

0131 


0268 

P010B 

18CC 



0269 

PfliflC 

CO FF 



0270 

P01GD 

58 0 0 

X 

o 


P01GE 

0 0 F6 

X 

0271 

P010F 

4800 




P 0 110 

01 41 



02 72 

PG111 

6800 


o 


P0 112 

0 1 40 


0273 

P0 11 3 

C86E 



0274 

P011 4 

acoc 



0275 

P011 5 

5 8 00 

X 

o 


P0 116 

0 1 07 

X 

0276 

P0 11 7 

0 A 0 0 



02 7 7 

P0118 

580 0 

X 



PD 119 

0 0 El 

X 

o 

0278 

P011A 

1800 



P0 11 B 

FF7E 


o 





o 






® AGE 11 


VFYERR LRS 16 

DVI =N96 

STQ'* VFYWRD 
ADD- I 

RTJ ENCDHX 

ST Q MSEC 
STA MSEC+1 

VER120 LDA = N0 

VFYWRD EQU WFYWRDI*-1) 

RTJ ENCDHX 

STQ WA0R 

STA WADRH 

LDA AHSG5 

ENQ LMSG5 

RTJ C DRIVE 

ENA -0 

STA 8 UF 1 

LDA = XBUF1 

ENQ 0 

RTJ CDRIVF 

LDA BUF 1 

SAM 1 
JMP* BMPSEC 
VFYEND LDA- I 

RTJ ENCDHX 

STQ MSG 6 

STA MSG6H 

LDA* AMSG6 

FNQ LMSG6 

RTJ C DRIVE 

ENA 0 
RTJ 


DATES 08/19/99 

Q TO A - CLEAR Q 
COMPUTE SECTORS 

ADD CURRENT BASE SECTOR 

STORE ASCII OF SECTOR 

STORE ASCII WORD ADDRESS 


buffer address 

DO NOT CONTINUE 
CONTINUE WITH VERIFY 

ALL RECORDS CHECK 


JMP 


MGREAB 

ENDING 


REWIND TAPE 


MSOS 4.1** N9G00244 

**M SO S 4 .1 **N9 0 0 G 245 

**MSOS 4. 1 **N9 00 Q 246 
**HSOS 4. 1 **N9 0 0 0 247 
N900 0 248 

**MSOS 4. 1**N9G 0 0 249 

**MSOS 4 . 1 **N90 0 0 250 

N9000251 

**MSQS 4. i**N9 G00252 
N9GQ0253 

**HSOS 4. 1**N90D0 254 

**MSGS 4,i**N90Q 0 255 

N9 00 0 256 

N90Q0257 

N90Q0258 

N90Q 0 259 
N9 0 0 0 26 0 

67*1466 N9000261 

N9G002&2 

N9000263 

N90S: 0 26 4 

**MSOS 4. 1 **N9G00 265 
**MSOS 4» 1 **N9 G 0 0 26 6 
N9Q00267 
N900Q268 

N9000269 

N9 00 0 270 

N9QG0271 

N9C00272 

N9000273 

N9000274 

N9Q00275 


Q 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 


N9O0 0 27 6 


N90Q0277 

N9000278 

N9000279 


N90QQ 2B1 
N9000282 
N9000283 

N900 0 284 
67*1466 N90QG2B5 

N900Q286 
N9G0 028 7 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DSKTAP 
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DATES 08/19/99 


0279 

0280 
0281 


;*:»:*»»***: * * * * » y » 3: * JMf ******** * V- ******** *;* * ** *****^**** 

* LOAD THE DISK 

¥¥*****************************************************»**** 


0283 P011C C866 

0284 POilQ 0C0F 

0285 P 0 HE 5800 X 
P011F 0116 X 

0286 P 0 120 5851 

0287 P0121 GOOD 
PO 122 0100 

0288 PG 123 OCGO 

0289 P0124 5800 X 
P0125 0 1 1 F X 


LODISK LDA* AMSG7 
ENQ 
RTJ 

RTJ* BKGND 
LDA =XBUF1 


LHSG7 

CDRIVE 


CDRIVE 


COPY TAPE TO DISK 

INPUT TAPE ON UNIT 


o 

o 


s,,-' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


DSKTAP 


DATE: 08/19/99 


029 

1 

P0126 

58 

00 



P0127 

FF 

413 

029 

2 

P0128 

0 A 

20 

u 29 

3 

P0 129 

63 

00 



P012A 

FF 

6 A 

029 

4 

PG12B 

58 

07 

029 

5 

P012C 

58 

11 

029 

6 

PQ12D 

CO 

FF 

029 

7 

P012E 

88 

00 



PQ12F 

FF 

65 

029 

8 

P 0 13 0 

60 

FF 

029 

9 

P 0 131 

18 

F 9 

03G 

0 

PO 132 

DB 

00 

030 

1 

P0133 

CO 

00 



P 0 13 4 

01 

Q 0 

030 

2 

PO 13 5 

oc 

00 

030 

3 

P 013 6 

53 

00 



P 0 137 

0 1 

19 

030 

4 

P0138 

01 

13 

03C 

5 

PO 139 

01 

51 

0306 

P013A 

18 

OQ 

030 

7 

P013B 

13 

29 

030 

8 

P013C 

1CF5 

030 

9 

P013D 

OB 

00 

031 

0 

P013E 

C 3 

CO 



P013F 

FF 

53 

G 31 

1 

PO 140 

EO 

00 



P Q 141 

F 3 

FF 

031 

2 

P 0 142 

58 

00 



P 0 143 

00 

80 

031 

3 

P 0 14 4 

01 

11 

031 

4 

PO 14 5 

13 

12 

031 

5 

P 0 146 

1C 

F6 


0 31 

7 

PO 

147 

CO 

FF 

031 

8 

PO 

148 

58 

BO 



PO 

149 

0 1 

Q£ 

031 

9 

PO 

14A 

48 

0 0 



PO 

14B 

01 

21 

032 

0 

PO 

14C 

68 

00 



P014D 

01 

20 

032 

1 

PO 

14E 

C 8 

35 

0322 

PO 

14F 

OC 

OB 

032 

3 

PO 

15 0 

53 

0 0 



PO 

151 

01 

25 

032 

4 

PD 

152 

0 A 

00 

032 

5 





032 

6 

PO 

153 

58 

00 



PO 

154 

01 

37 
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X 

X 


X 

X 


X 

X 


X 

X 


X 

X 



RTJ 

DSKCHK 





N9000289 


ENA SECTRK 





67*1466 N9000290 


STA 

TRKSEC 




**HSOS 

4. 0N9000291 

WRITE1 

RTJ* 

RDTAPE 

READ 

MAG 

TAPE 

**MSOS 

4. 0N900G292 


RTJ* 

DISKWR 

WRITE 

DIS 

K 

**MSOS 

4» ON900 0 293 


LDA- 

I 




**HSOS 

4» ON9GO 0 294 


ADD 

TRKSEC 

INCREASE 

SECTOR COUNT 

**MSOS 

4» 0N90B0 295 


STA- 

I 




**MSOS 

4» QN9000296 


JMP* 

WRITE1 




**MSOS 

4. 0N9000297 

RDTAPE 

NOP 

0 




**HSOS 

4. 0N90Q 0298 


LD A =XB UF1 





67*1465 N9C00299 


ENQ 

0 




**MSOS 

4* ON9QO 0300 


RTJ 

MGREAD 




**MSOS 

4,0N90GC3G1 


SAN 

L 00 1 40 




**MSOS 

4, 0N900O302 


SQN 

LOO 1 2 0 




**MSOS 

4* 0N9000303 


JMP* L03END 






N9 00 0 30 4 

LOD120 

JMP * MTERRi 






N90003Q5 

LOD140 

JMP* 

( RDTAPE) 




**MSOS 

4. 0N900 0 30 6 

DISKWR 

NOP 

0 




' **MSOS 

4.GN90QG307 


LDA 

ABUFF 




**MSOS 

4. DN900 030 8 


IDO =Xf-RECLEGJ WRITE - 

REC 

LENGTH 

**MSOS 4. 

1**N9000309 


RTJ 

MDRItfE 




**MSGS 

4.0N900031G 

ERRCHK 

SAN 

LOOIO 




**MSOS 

4. 0N90G0311 


JMP* DSKERR 






N9000312 

LODIO 

JMP* 

(DISKWR) 




**MSOS 

4»0N9QQQ313 


LODEND 

L DA- 

I 


N9Q00 31 5 


RT J 

ENCDHX 


N90 0 0 31 6 


STQ 

MSG 8 


N9B00317 


STA 

MSGS *■ 1 


N9 00 0 318 


LDA* 

A MSG 8 


N900Q319 


ENQ 

LMSG8 

PRINT SECTOR COUNT 

N 9 0 0 Q 3 2 0 


RTJ 

C DRI VE 


N9 00 0 32 1 


ENA 

0 


N9000322 

* 


REWIND MAG TARE 

N900 G 323 


RTJ 

MGREAD 


N9 00 0 32 4 



eSS AMSG9Q » AHSG91 


N9000325 


o 


N900Q327 
N9Q0 0328 

N9000329 

N9000330 

N9000331 
N9000 332 
N9 00 0 33 3 

N900 033% 


N9000336 

N9000337 

N9 00 0 338 

N9 00 0 33 9 

N90G G 340 
N90QG341 
N9GB0342 

N9000343 

N900G344 
67*1466 N90Q 0 3%5 

N90SQ346 

N9G0G347 

N900 Q 348 
N900 0349 
N9000350 
N9008351 
N90 0 0 35 2 
**MS0S 4.1**N9eQG353 
N900G354 


N9 000355 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


N9000356 


DSKTAP 
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DATES 0 8/ 19/9 9 



N9CDQ357 
**MSOS 4.1**N9000358 
N9GQG359 
N90Q036G 
N9GGQ361 
N90D0362 
N900G363 
N9GD0364 
N9GD0365 
N9000366 
N90DG367 
N9Q00368 
**HSOS 4 « 0N9 000 369 
N90D0370 
N9000 371 
N9000372 
N9000373 
N900D374 
N9 00 0 37 5 
N9000376 
N9G00377 
N90GQ373 
N900 0 379 
N9GGG38G 
**MSOS 4.1**N9GGG361 


SOS 4*1 **N9GGQ 382 
**MSOS 4. 1**N9GQ 0 383 
N9 0G0 38 4 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



DSKTAP 
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DATEi 08/19/99 


o 

G 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 


0387 P01B8 5341 ALF 11, SAVE FOR DISK-T 0 — F APE 

P01BC 5645 

P01BD 2046 
P01BF 4F52 
P01BF 2044 
P01C0 4953 
P01C1 4B2D 
P01C2 544F 
P01C3 2054 
PQ1C4 4150 
P01C5 4520 

0388 P01C6 0 0 0 A NUM $O0OA CARRIAGE RETURN LINE FEED 

0389 P01C7 4F52 ALF * ,QR A CARRIAGE RETURN* 

PD1C8 2041 

P01C9 2043 
P01CA 4152 
PQ1CB 5249 
P01CC 4147 
P 0 ICO 4520 
P0 ICE 5245 
P01CF 5455 
P0 1D0 524E 

0390 PG1D1 0707 NUM $0707 DOUBLE BELL 

0391 0025 EQU LMSGi I *-MSGi ) 

0392 P01D2 4F55 MSG2 ALF 12, OUTPUT TAPE ON UNIT 0. 

P01D3 5450 

P 0 ID 4 5554 
P 0 ID 5 2054 
P01D6 4150 
P01D7 4520 
P01D8 4F 4’E 
P01D9 2055 
PQ1DA 4E49 
P01DB 5420 
P01DC 302E 
P01DD 2020 

0393 P 0 IDE 484F ALF 8, HOW MANY SECTORS 

P01DF 5720 

P01E0 4041 
P01E1 4E59 
P01E2 2053 
P01E3 4543 
P 0 1 E 4 544F 
P01E5 5253 


039* 

P01E6 

3F20 


NUM 

$3F2G 


039 5 

PG1E7 

070 7 


NUM $0707 

DOUBLE 

BELL 

0396 


0016 


EQU 

LMSG2 ( *-MSG2 ) 


0397 

P01E8 

5459 

HSG3 

ALF 

12, TYPE V FOR 

VERIFY, A FOR 


P01E9 5045 
P01EA 2056 
P01EB 2 0 46 
P01EC 4F52 
P01ED 2056 
P01EE 4552 


* « 


o 


N90QQ3S5 


*MSOS 4.1'**N90QQ386 
*MSOS 4. i**N9 00 0 387 


**MSOS 4* 1**N9 00 0 388 
N9G00389 
N9Q00390 


N9000 391 


N9000 392 
**MSOS 4»1**N900 Q 393 
N 900 Q 39 
N9000395 


□ 

o 

o 

o 

o 

G 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 


DSKTAP 
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DATES 08719/99 


o 

I 

I 

o 

! ° 

o 

; o 
o 
o 
° 
o 
o 

! o 


o 

o 

o 

o 


P01EF 4946 
P01F0 592C 
P01F1 2 Q 41 
P 0 IF 2 2046 
P01F3 4F52 

0398 P01F4 2041 
P01F5 5554 
P 0 IF 6 4F4C 
P01F7 4F41 
PG1F8 442 E 

0399 P01F9 0 D 0 A 

0400 P01FA 204F 
P01FB 5220 
P01FC 4120 
P01FD 4341 
P01FE 5252 
PO IFF 4941 
P0200 4745 
P0 20 1 2052 
P0 20 2 4554 
P 0 2 0 3 5552 
P0 20 4 4E20 

0401 P 0 20 5 2020 
P0206 544F 
P 0 2 07 2052 
P02G8 4553 
P0 209 5441 
P 0 2 0 A 5254 

0402 P0 20 B 0707 

0403 0024 

0404 P020C 5645 
P02GD 5249 
P020E 4659 
P0 20 F 20 54 
P0 210 41 50 
P0 21 1 4520 
P0212 4F4'£ 
P0213 2055 
PQ214 4 E49 
P 0 2 1 5 5420 
P0216 30 2 E 
P0 21 7 2020 

040 5 P 0 21 a 52 45 
P0219 4144 

040 6 P0 21 A 593F 

0407 P021B 0707 

0408 0010 

0409 P021C 2053 
P021D 4543 
P021E 544F 
P021F 5220 

0410 P0 220 0 0 02 

0411 PO 222 20 57 
P0 223 4F5? 


MSG 4 


MSGS 

MSEC 


ALF 5, AUTOLOAD. 


NUM $ 09 0 A CARRI AGE RETURN LINE FEED 

ALF *, OR A GARRIAGE RETURN* 


ALF $, TO RESTARTS 


NUM $0707 DOUBLE BELL 

EQU LMSG3 C *-MSG3 ) 

ALF 12, VERIFY TAPE ON UNIT 0. 


ALF 2, READY 

NUM $593F 

NUM $0707 DOUBLE BELL 

EQU LMSG4 ( *-MSG4 ) 

ALF $, SECTOR $ 


BZS MSEC f 2 ) 

ALF HORS — $ 


M ¥ 


N9000396 


*MSOS 4.1**N9GG0 397 
*MSOS 4. 1**N9 00 0 398 


**MSQS 4. 1 **N9 0 0 0 399 


**MSOS 4.1**N9G0040D 
N900G 401 
N900 0 40 2 


N900 0 h0 3 

N9000 404 
**MSOS 4*1 **N9 SO 0 40 5 
N90G0 406 
**MSQS 4, 1 **N900 0 40 7 


**MSOS 4. 1**N9 00 0 40 8 
**MSOS 4. 1**N9 00 0 40 9 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


nSKTAP 
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DATE-* 08/19/99 



**HSOS 4.1**N90D0410 
**WSOS 4.1**N90Q0 411 


**MSOS 4.1**N9QQ0412 
N90QQ413 


**MSQS 4.1**N90GQ 414 


*=*HS05 4.1**N90GG 415 
N9QG0416 
N9000417 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


DSKTAP 


PAGE 19 


DATES 08/19/99 


G ; 


P025A 

4945 






P025B 

442C 






P025C 

2020 




o ; 

0420 


00 oc 


EQU 

LMSG6 { *-MSG6) 

0421 

P 0 250 

494E 

MSG 7 

ALF 

St INPUT TAPE ON UNIT 



P025E 

5055 






PG25F 

5420 




O : 


PQ 260 

5441 





PO 261 

50 45 






P0262 

204F 






P0263 

4E20 




O 


P0264 

554E 





PC 265 

4954 






P0266 

2030 






P0 267 

2E20 




O 

0422 

P 0 26 8 

52 45 


ALF 

2-.READY 


PQ 269 

4144 





0423 

P0 26 A 

593F 


NUM 

S593F 


0 42 4 

P0 26P 

0707 


NUM $0707 

DOUBLE BELL 

O 

0 42 5 


0 0 0 F 


EQU 

LMSG7C*-MSG7> 

0 42 6 

P026C 

5858 

MSGS 

ALF 

$,XXXX SECTORS LOADED 



P026D 

5858 






P026E 

2 0 53 




O 


P026F 

4543 





P0 270 

544F 






P0 271 

52 5-3 






P0 27 2 

2 0 4C 




O 


P 027 3 

4F41 





P 0 274 

4445 






P 0 275 

44 2 0 






PQ 276 

20 20 




O 

0427 


0 0 0 B 


EQU 

LMSG8 (*-NSG8) 

0428 

P0 277 

4449 

MSG 90 

ALF * » DISK 

ERROR (* 



P0 27 8 

534B 






PO 279 

2045 




O 


P 0 27 A 

5252 





P027B 

4F52 






PG27C 

2028 





0 42 9 

P027D 

2020 

DSTAT 

ALF 2, 


O 


P027E 

20 20 




043 0 

P027F 

2920 


ALF *,}* 



0431 


0 0 0 9 


EQU 

L MSG 90 L* -MSG90 3 


0 43 2 

P0 28 0 

5441 

MSG91 

ALF *,TAPE 

ERROR T* 

O 


P0 281 

50 45 





P0 28 2 

2 0 45 






P 0 2 8 3 

52 52 






P0 284 

4F52 






P0 285 

2028 




O 

043 3 

P 0 28 6 

2020 

1ST AT 

ALF 2 * 




P0 287 

2 D 2 0 





0434 

P0 288 

2920 


ALF *,}* 


O : 

0435 


0 0 09 


EQU 

LMSG91 (*-MSG91J 

0436 




END DSKTAP 

O 

PGH = 

0289 

{ 6493 COM 

1 = Q 0 0 0 ( 

01 OAT = 000 0 ( 


n 


N90QQ 418 
N9G00 419 


N90Q 0^20 

N90G0421 
**MSOS 4* i*-*N9 00 0 422 
N9Q00423 
N9DQQ424 


N9Q00425 
N90QQ 426 


N900 0 427 

N9000 428 
N90Q 0 h29 
N900 G 430 


N9 00 0 431 

N90QQ 432 
N9Q0 0433 
N9 0 0 0 434 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

DSKTAP PAGE 20 DATES 08/19/99 


o 

E Q U I V 

A L E N 

C E S 











0 o 

o 

DEF.LTNE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 








o 

o 

0 000 

I 

0QFF 

1000255) 

0 103, 010 5, 

0140, 0194, 

0231, 

0 233, 

0249, 

0269, 

0296, 

0298, 

0317 


0 0 23 

RECLEG 

OCOO 

(0030723 

0026, 0150, 

0158, 0222, 

0311 , 

0347 








0 0 24 

SECTRK 

0020 

(0000323 

00 96, 0 21 7, 

0292 







0183, 0208, 0209, 0212, 0223, 0262 


o 

0 025 

8UF1 

0100 

(0002563 

0026, 0049, 

0056, 0059, 

0081 , 

0084, 

0085, 

0142, 

0148, 

0181, 

o 



0 263, 0266, 

0287, 0301, 

0349 








0 026 

B2 

0 DO 5 

10033333 

0224, 0237 











0 385 

LMSG0 

0010 

( GO 0 01 6) 

0041 










o 

0 391 

LMSG1 

002 5 

( 000037) 

0 0 46 









o 

0396 

LMSG2 

0016 

{ 0000223 

0 077 










0 ^0 3 

LMSG3 

002 4 

10000363 

0177 











0 408 

LHSG4 

0010 

(00 00163 

0205 










o 

0 418 

LMSG5 

0035 

1 00 0053) 

0259 









o 

0 420 

LMSG6 

OOOC 

( 0 000123 

0 274 










0 425 

LMSG7 

00 0 F 

(000015) 

0 284 











0 427 

LMSG8 

000 B 

(0000113 

0322 










o 

0431 

LMSG90 

000 9 

(0000093 

0334 









o 

0 435 

LMSG91 

0 00 9 

(000009) 

0 3 43 









o 














o 

o 














o 

o 














o 

o 














■ o 

o 














o 

o 














o 

o 














o 

o 














o 

o 














■ o 


DSKTAP PAGE 21 


c 

S V M B 0 

L S 




o 






o 

DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

0 0 0 6 

OSKTAP 

00 0 0 

0 0 06 



0 0 0 7 

FST 

C0 7C 

0 0 07 , 

0141 


9 0 2 8 

ST A RT 

00 0 0 

0 3 60 , 

0 361, 

o 

0 045 

RESTRT 

0015 

0191, 

0336, 


0 0 53 

SRC HI 

0022 

0 062 



0 056 

SRC HI 0 

002 6 

0 054 



0 061 

SRCH12 

0020 

0 0 57 


o 

0 065 

TABL1 

0030 

Q 0 53, 

0058, 

0073 

LAST 

0039 

0 075 , 

0 092, 


0 074 

SAVSYS 

0 03 A 

0066, 

0 088, 


0 0 98 

REA01 

00 56 

0101 


o 

0102 

INCSEC 

0 0 5 A 

0100 , 

0112 

0113 

OIKOFF 

DOB 5 

0109, 

0111 


0 124 

C0MPV4 

0066 

0108 , 

0136 


0128 

AUPPER 

006A 

0125 


o 

0132 

BTHSAM 

0 0 6 E 

0126, 

0128 

0135 

QBIGER 

00 71 

0127 



013 6 

ABIGER 

0072 

0131, 

0134 


0 138 

BSKCHK 

■ 0073 

0095, 

0144, 

o 

0144 

CD 1 1 0 

• 00 78 



0147 

WRT MGT 

0 07D 

0099, 

0154 


0148 

CD130 

0 07E 



0 150 

RECORD ■ 

0 080 



o 

0154 

GDI 55 

00 87 

0152 


0156 

OSKRD 

0088 

0 0 98 , 

0162, 


0 16G 

ERRCK 

0 08 E 




0162 

0SKEXT 

0091 

0160 


o 

0164 

SECOND 

0092 



0165 

A BUFF 

0093 
0 094 

0143, 

0157, 


0166 

SAVE I 


0167 

TRKSEC 

0095 

GO 97, 

0104, 

o 

0168 

ISA V 

.0096 



0173 

OSKOFF 

0097 

0 113 



0175 

ENDING 

G 0 9 A 

0 0 55, 

0 27 8, 


0193 

AUTLOD 

GOBI 

0187 


O ‘ 

0197 

DOLOAQ 

0 0B5 



0 204 

VERIFY 

00B7 

0190 , 

0214 


0219 

VFYLOP 

OOCB 

0234 



0222 

VFY200 

0 0 CD 



o 

0223 

VFY210 

0 QCF 

0229 


0227 

VFY230 

0 0 D 5 

0225 


o 






o 







o 


□ATE: 08/19/99 
LINE NUMBER 

0362, 0363, 0364, 0365, 0366, 0367, 0368, 0369, 0370 
0345 

0063 

0107 

0091 

0216, 0291 

0196, 0 221 
0195, 0310 

0218, 0232, 0293, 0297 
0 32 7 


□ 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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OATE: 

06/19/99 

o 

0 230 

BMP SEC 

00D8 

0268 



o 


0 235 

MAGTRO 

0 0 DC 

0220, 

0 2-44 




0 243 

y F Y i 20 

00E 5 

0 2 41 




o 

G 244 

VFY14Q 

0 0E7 

0 240 



o 

0246 

VFYERR 

00E8 

0226 




0 253 

VER120 

0 0 F 3 






0254 

VFYWRD 

OOF 4 

0 248 




o 

0269 

VF Y END 

010C 

0 2 42 



o 

0283 

LODISK 

one 

0 068 




0 294 

WRIT-Ei 

Q 12 B 

0 2 99 





0 300 

RDf APE 

0132 

0294, 

0 30 8 



o 

0 307 

LOD 120 

013 B 

0305 



o 

0 308 

LOD140 

0 1 3 C- 

0 304 




0 309 

DISKWR 

0 1 3 D 

0 295, 

0315 




0313 

ERRCHK 

0 1 h 4 





o 

0315 

LOD 1 0 

0146 

0313 



o 

0317 

LODEND 

0147 

0306 




0329 

DSKERR 

0157 

0161, 

0 31.4 




0338 

MTERR1 

0164 

0153, 

0 243, 

0307 


o 

0346 

BKGND 

0171 

0 0 48, 

0080, 

0179, 0286, 

0353 q 

0 3^7 

3GBUF 

0172 




0 349 

B KG 100 

017 5 

0352 





Q 35h 

ADLST1 

017B 

0330 




o 

0355 

AMSGO 

0 1 7 B 

0 Q42 



o 

0356 

AMSG1 

017C 

0 0 45 




0356 

AMSG2 

0 17D 

0 0 76 





0356 

AMSG3 

017E 

0175 




o 

0356 

AMSG4 

017 F 

0 204 



o 

0 356 

AMSG5 

0180 

0258 




0357 

A M S G6 

0181 

0 273 




0357 

AMSG7 

0182 

0283 




o 

0357 

AMSG8 

0183 

0321 



o 

0358 

AMSG90 

0184 

0333 




0358 

AMSG91 

0185 

0 3 42 





0359 

AQILSI2 

018 6 

0 376 




o 

0 37 2 

BASE 

0192 

0 374, 

0 379 


o 

0373 

SETUP 

0193 

0 034, 

0378 



0 376 

SET 3 00 

0196 

Q382 





0383 

MS G 0 

019D 

0360, 

0385 



o 

0384 

SCRATH 

01 A B 

0 0 39 , 

0 040 


o 

0386 

MS G1 

01 A D 

0 361, 

0391 



0392 

MSG 2 

0 ID 2 

0362, 

0396 




0397 

MS G3 

01E 8 

0 3 63, 

0403 



o 

0 40 4 

MS G4 

0 20 C 

0364, 

040 8 


o 

0409 

MSG5 

0 21 C 

0365, 

0418 



0 410 

MSEC 

0220 

0251 , 

0252 




0 412 

WADR 

022 7 

0256, 

0257 



o 

0 419 

MSG 6 

0251 

0 271 , 

0272, 

0366, 0420 

o 

0 421 

MS G 7 

025D 

0367, 

0 42 5 



0 426 

MSG 8 

026C 

0 3 19 , 

0 32 0 , 

0368, 0427 



0428 

MSG90 

0277 

0369, 

0 431 



o 

0 429 

QSTAT 

0 27D 

0331, 

0 33 2 


o 

0 432 

MSG91 

Q 28 0 

0370 , 

0 43 5 
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DATE! Q 8/ 19/9 9 


o 

G 

EXTERNA LS 

0 


o 

DEF .LINE 

NAME 

yALUE 

Q 006 

ENCDHX 

0166 


0 0 08 

QCODHX 

0 0 4 D 


0 0 09 

E QC ODE 

0 00 8 

o 

0 010 

C DRIVE 

0 16 E 

0011 

NOR I VE 

0143 


0012 

HGDRIV 

0099 

o 

0013 

NGREAD 

0154 


o 

o 

o 

o 

o 

o 

o 


o 

o 

o 



REFERENCED AT LINE NUHEER 


0 038 , 
0 086 
0 035 

0 25 0 , 

0255, 

0270, 

0 31 8, 

0 33 0 

0043 , 
0 344 

0047, 

0 051, 

0079, 

0083, 

0178 

0 159, 

0 312 





0151, 

0174 





0 239, 

027 7, 

0303, 

0326 




0339 


□ 

o 
o 

0182, 0206, 0211, 0260, 0265, 0275, 0285, 0289, 0323, 0335 Q 

O 

C 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE3 03/19/99 



O 

O 

O 

O 

O 


*** A L 

P H A 

B E T I 

CAL 

SORT 

A8IGER 

0136 

ABUFF 

0165 

ADLST1 

AMSG5 

0356 

AMSG6 

0357 

AMSG7 

BASE 

0372 

BGBUF 

0347 

BKG100 

CD155 

0154 

CORIVE 

0 010 

C0MPV4 

DSKEXT 

0162 

OSKOFF 

0 173 

OSKRO 

ERR DK 

0160 

FST 

0 007 

I 

LHSG3 

0403 

LMSG4 

G 408 

LHSS5 

LOD 120 

0 30 7 

LOD140 

0306 

LODEND 

MSG 0 

0333 

MSG1 

0386 

HSG2 

HSG90 

0 42 8 

MSG91 

0432 

MTERR1 

SAVEI 

016 6 

SAVSYS 

0 074 

SCRATH 

SRCH12 

0 061 

START 

0 028 

TABL1 

VFY200 

WRTNGT 

0222 

0147 

VFY210 

0 223 

VFY23Q 


0 F 

S Y M B 

0 L S 



0 354 

ADLST2 

0359 

AMSG0 

0355 

0357 

AMSG8 

0357 

AMSG9Q 

0358 

0349 

BKGND 

0346 

BMPSEC 

0 23 0 

0124 

D COD HX 

0008 

DIKOFF 

0113 

0 156 

0 SKTAP 

0006 

DSTAT 

0429 

0 000 

INC SEC 

0102 

ISA V 

0168 

0 418 

LWSG6 

042Q 

LMSG7 

0425 

0 317 

LO'DISK 

0233 

MAGTRD 

023 6 

0392 

MSG3 

■ 0397 

HSG4 

040 4 

0338 

QBIGER 

0135 

RDTAPE 

030 0 

0 384 

SECOND 

0164 

SECTRK 

002 4 

0 065 

TRKSEC 

0167 

TSTAT 

0 43 3 

0 227 

VFYENI3 

3269 

VFYERR 

024 6 



O 

O 

O 

O 


O 

! o 

i 

o 

o 

! ° 

o 


I 


G 

o 


AMSG1 

0356 

AMSG2 

0356 

AMSG3 

0356 

AMSG4 

0356 

o 

A MSG 91 

0358 

AUPPER 

0128 

AUTLOO 

0193 

B2 

0 026 

BTHSAM 

0132 

BUF1 

0025 

CDllfl 

0144 

CD130 

0148 


QISKWR 

0 30 9 

DOLOAD 

0197 

OSKCHK 

0138 

DSKERR 

0329 


ENCDHX 

000 8 

ENDING 

0175 

EQCODE 

0 00 9 

ERRCHK 

0313 

o 

LAST 

G 07 3 

LMSG0 

0385 

LMSG1 

0 391 

LMSG2 

0396 

LMSG8 

0427 

LMSG90 

0 431 

LMSG91 

G h35 

LOD 1 0 

0315 


MDRIVE 

0011 

MGORIV 

0012 

MGR FAD 

0013 

MSEC 

0410 


MSGS 

0 40 9 

MSG 6 

0 419 

MSG7 

0 421 

MSG8 

0426 

o 

READ1 

0098 

RECLEG 

0 023 

RECORD 

0 150 

RESTRT 

0045 

SET100 

0376 

SETUP 

0373 

SRC HI 

0053 

SRC H 10 

0 056 


VER120 

0253 

VERIFY 

020 4 

VFY120 

0243 

VFY140 

0244 


VFYLOP 

Q 21 9 

VFYWRD 

0254 

WADR 

0 412 

WRITE! 

0294 

o 


o 

o 

o 

o 

o 

o 

o 
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G 

0001 




NAM DSKEQC 


DECK-ID N91 MSOS 5.0 

SUMMARY- 11 0N910 0 001 


000 2 




* MASS STORAGE 

OPERATING SYSTEM VERSION 5.0 


N9 10 0 0 0 2 


0 0 0 3 




* SMALL SYSTEMS DIVISION. LA JOLLA. CALIFORNIA 


N91Q0Q03 

O 

000 4 




* COPYRIGHT CG 

INTROL DATA CORPORATION 1976 


N9100004 


0006 




ENT 

EQCODE 



N91000Q6 

O 

0007 




EXT* 

EWES 

MGREAD (MAG. TAPE DRIVER! 


N91Q0007 

000 8 




EXT* 

E WES 1 

MG DRIVE (MAG. TAPE DRIVER) 

N9 10 0 0 0 8 


00 0 9 




EXT* 

GENFC 

MDRIVE (DISK DRIVER) 


N9100009 


0010 




EXT* 

CDRIVE 

COMM. DRIVER - TTY - 


N9100010 

O 

0011 




EXT* DCODHX 



**M SOS 

4.i**N91000il 

0012 

POOOO 

OBOO 


EQC03E NOP 

0 



N9100012 


0013 

P0001 

5 8 OF 


RTJ* F ST PAS 


CHECK FOR FIRST PASS 


N9100013 


0014 

P 0 0 0 2 

5801 


RTJ* 

ABAD 



N910 0 014 

o 

0015 

PO 003 

OBOO 


ABAD NOP 

0 

BASE* 1 


N910 0 015 

0016 

P0 0 0 4 

C8FE 


LDA* 

ABAD 



N9 10 0 016 


0017 

D 0 0 0 5 

0 9 FC 


INA -3 




N910 0 017 


0018 

P0006 

6 8FC 


STA* 

ABAD 



N91GG018 

o 

0019 

PO 007 

OC 0 5 


ENQ NMSG 


NO OF .MSGS 

**MSQS 

4. 1 **N9 10 0 019 

00 20 

PO 00 8 

GDFE 


QN INQ -1 



**MSOS 

4. 1 **N91QD 02 0 


0021 

PO 009 

0 179 


SQM QZ 


ALL ABSOLUTIZED 

**MSOS 

4. I**N91Q 0 021 


0022 

PflOOA 

C8F8 


LDA* ABAD 



**HSO S 

' 4. 1 **N9 10 0 02 2 

o 

00 23 

POOOB 

8AQ 0 


ADD 

ADR, a 

ABSO. ADD. OF FIRST 

MESS. 

N9100023 


PO DOC 

0030 





N9130Q24 


002 4 

POOOD 

6A2F 


STA* 

ADR , Q 




0025 

POOOE 

18F9 


JMP* 

QN 



N9100025 

o 

0026 

PO OOF 

OBOO 


FSTPAS NOP 0 




N9100026 

002 7 

P0010 

C82B 


LOA* PAS 1 




N9100 027 


0028 

POOH 

0131 


SAM QZ 


SKIP IF SECOND PASS 


N9100Q28 


0029 

P0012 

1C FC 


JMP* (FSTPAS) 



N91B 0 029 

o 

003 0 

POO 13 

C829 


QZ LDA* 

ADR 

ADD. OF MESS. 1 


N9100030 

0031 

PO 014 

0 C13 


ENQ LMTMES 


WORD COUNT 1 

**MSOS 

4* 1**N9 10 0 031 


00 3 2 

P0015 

5800 

X 

RTJ 

CDRIVE 

OUTPUT MESS. 1 


N9100Q32 



P 0 0 16 

7FFF 

X 






o 

0033 

PO 0 17 

C827 


LOA* 

ADR*2 

ADD. OF BUFF. 1 


N9100033 

00 3 4 

P0G18 

QCQG 


ENQ 

0 



N9100034 


00 35 

P0019 

58 0 0 

X 

RTJ 

CDRIVE 

INPUT 1 


N 9 10 0 Q3 5 



PO 01 A 

0 016 

X 





N91Q0Q36 

o 

0036 

P001B 

C 8 22 


L DA* 

AQR*1 

ADD. OF MESS. 2 


0 3 3 7 

P001C 

0 Cl 4 


ENQ LDKMES 


WORD COUNT 2 

**MSOS 

4. 1**N910 0 037 


00 3 3 

P 0 0 ID 

5800 

X 

RTJ 

CDRIVE 

OUTPUT MESS. 2 


N9100038 



P0G1E 

00 1A 

X 






o 

0039 

P0C1F 

C820 


LOA* 

A DR *3 

ADD. OF BUFF. 2 


N9100 039 

DO 4 0 

P0020 

OCOO 


ENQ 

0 



N9100040 


0041 

PO 0 21 

5800 

X 

RTJ 

CDRIVE 

INPUT 2 


N910Q 041 



P 0 022 

0 0 IE 

X 




* *H S 0 S 

4.1 **N9 10 0 0 42 

o 

0042 

PQ023 

E 8 IE 


LDQ* M TBUF 


GET ASCII OF 

0 0 43 

P0024 

C81E 


LDA* M TBUF 3-1 


MT EQUIP CODE 

**MSOS 

4. 1* *N91Q 0 0 43 


0044 

P0C25 

5800 

X 

RTJ DCODHX 


CONVERT 16 HEX 

**MSOS 

4. 1 * *N910 0 0 4h 



P0026 

7FFF 

X 




**MSOS 

4.1 **N91Q 0 0 45 

o 

0045 

PO 027 

1 8 0 F 


JMP* ERREQP 


INPUT ERROR 

0046 

P0S28 

6800 

X 

STA EWES 


STORE HEX 

**MSOS 

4. 1**N9 100046 



PO 029 

7FFF 

X 
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P002A 
P0Q2B 
P002C 
PQ02D 
P002E 
P002F 
P 0 03 0 
P0031 
P0032 
P0 033 
PO 034 
POO 35 
P0036 
P 0 037 
POO 38 
P 0 0 3 9 
P003A 
P003B 
PD03C 
P0 03D 
P0Q3E 
P003F 
P004G 

P0041 
PO 045 
P0049 
P004A 
P004B 
PO 04 C 
P004D 
PO 04E 
P004F 
POO 50 
P0051 
PO 052 
PO 053 
PO 054 
P 0 0 5 5 
PO O 5 6 
PO 057 
PO 05 8 
PQQ59 
POO 5 A 
P005B 

P005C 
P005D 
P005E 
PO 05 F 
PD060 
P 0 0 61 
PG062 
P0063 


6800 
7FFF 
E819 
C 8 1 9 
5800 
0 026 
1806 
6800 
7FFF 
08 04 
6807 
ICC A 
C8 0 A 
OCOE 
58 00 
0 0 22 
18D8 
0000 
0 0 49 
0 0 5C 
00 41 
0 0 45 
Q 0 70 
00 05 
0 0 04 
00 04 
3420 
4449 
472'E 
2 0 45 
51 2E 
2 0 43 
4F44 
4520 
464F 
5220 
2E2E 
OAOD 
2020 
4D41 
47 2’E 
2 0 5h 
4150 
4520 
0707 
G 0 1 3 
34 2 0 
4449 
47 2 E 
2 0 45 
512E 
20 43 
4F44 
4520 


LDQ* 

LOA* 

RTJ 


QK8UF 
QKBUF + 1 
DCODHX 


JMP* ERREQP 
STA GENFC 

SET A 
STA* PAS1 
JMP* 

ERREQF LDA* AERREQ 
ENG LERREQ 
RTJ G DR I y E 

JMP* QZ 
PAS 1 NUM 0 
ADR ADC 

ADC 
ADC 
ADC 

AERREQ ADC ERRMSG- 
EQU NHS G ( *- 
BZS 

MTMES ALF 


GET ASCII OF 
DISK EQUIP CODE 
CONVERT TO HEX 

INPUT ERROR 
0 1 SK/ DRUM 


(EQCODEJ 

GET ADDRESS OF MSG 
GET LENGTH 
COMMENT DRIVER 

RE-ENTER PARAMETERS 

MIMES- EQCODE 

DSKMES-E CCODE 

MT8UF-EQC0DE 

DK8UF- EQCODE 

EQCODE 

ADR) 

MTBUFJ41 ,DKBUFi4) 


11,4 DIG. 


CODE FOR 


$ 0 A 0 D 
6 ■» MAG. 


TAPE 


NUM $0707 BELL 

LMTMES EQU LMTMES ( *-MT MESI 
OSKMES ALF 11,4 DIG. EQ . 


CODE 


**HSOS 4 » 1**N9 10 0 047 


**MSOS 4.1**N91QG048 
**MSOS 4. 1* *N9 10 0 0 49 
«MSOS 4. 1**N910 0 050 

**MSOS 4.1**N910QQ51 
**MSOS 4. 1**N91Q 0 052 

N9100053 
N9100054 
N910 0 055 
**MSOS 4.1 VT N910 0 056 
**HSOS 4.1*'*N9100 057 
**MSOS 4.1**N9100058 

**MSOS 4, 1**N9 10 0 05 9 
N9100060 
N9100061 
N91Q0 062 
N9100063 
N9 10 0 0 64 
»*MSOS 4. 1 **N91 0 0 0 6 5 
**MSOS 4. 1**N91Q 0 066 
N910 0 067 

N9100068 

O 


O 


O 

N9100069 

N9100070 

O 


O 


O 


o 


o 


O 

O 

o 

o 

o 

o 


■**MSOS 4.1**N91G0071 
**MSOS 4. 1 **N9 10 0 07 2 
N9100073 
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O 

O 

o 

o 


o 


o 

o 


N91QQQ74 
**MS0S 4.i**N9100075 


**MS0S %.1**N91Q0G76 
**MS05 4.1**N9100077 
**MS0S 4,i**N91QQ078 


**MSOS 4«1* ¥ N91G 0 079 
N910 0 080 


c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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1000255) 
t 0 00 005) 0 019 

I 000019) 0031 

*000020) 0037 

I 0 Q 001 4) 0 057 
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o 

o 

o 

o 

o 

o 
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DSKEQC 

i i 


EQUIVALENCES 


o 

DEF .LINE 

NAME 

VALUE 

O : 

0 00 0 

I 

00FF 


0 066 

NMSG 

0 0 0 5 


0 072 

LMTMES 

0013 

O 

0 077 

LQKMES 

0014 

0079 

LERREQ 

00 0 E 


Q 

n 

Cv—.J 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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O 
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SYMBOLS 


DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 




0 0 0 6 

EQCODE 

0 00 0 

0 006, 

0 055, 

0061, 0062, 

0063, 

0064, 

0065 

0015 

ABAD 

00 0 3 

0 014, 

0016, 

0018, 0022 




002Q 

QN 

00 0 8 

0025 






0 026 

FSTPAS 

0 0 0 F 

0013, 

0 029 





0030 

QZ 

0013 

0021, 

0 028, 

0059 




0 056 

ERREQP 

0036 

0 0 45, 

0051 





0060 

PAS1 

00 3 B 

0 027, 

0 05 4 





0061 

ADR 

0 0 3 C 

0 0 23, 

0024, 

0030, 0033, 

0036, 

0 039, 

0066 

0 065 

AERREQ 

0040 

0 056 






0 067 

MTBUF 

0041 

0042, 

0043, 

0 063 




0 067 

OKBIJF 

0045 

0048, 

0049, 

0064 




0 068 

MIMES 

0 0 49 

0 061, 

0072 





0 073 

DSKMES 

005C 

0062, 

0 077 





0 078 

ERR MSG 

0070 

0 065, 

0079 
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EX TERNA LS 


DEF .LINE 

NAME 

VALUE 

REFERENCED AT 

LINE NUMBER 

Q 00 7 

EWES 

0 029 

00 46 


0 0 08 

E WE SI 

0 0 2 B 

0 047 


0 0 09 

GENFC 

0032 

0 052 


0 0 1 Q 

CDRIVE 

0039 

0 032, 0035, 

0038, 0041, 

0011 

OCODHX 

002F 

0044, 0050 



0058 
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D 

*** A L 

P H A 

B E T I C A L 

SORT 

0 F 

S Y M 8 

0 L S 



O 

ARAD 
ERR MSG 
MTBUF 

0015 
0 078 
0067 

ADR 0061 

EWES 0007 

MIMES DO 68 

AERREQ 

EWES1 

NMSG 

0 0 65 
0 0 08 
0 066 

CDRIVE 
F ST PAS 
PAST 

0010 

0026 

0060 

DCODHX 

GENFC 

QN 

0011 
000 9 
0020 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DKBUF 0067 DSKMES 0073 

I 0000 LDKMES 0077 

QZ 0030 


EQCODE 0006 ERREQP 0056 
LERREQ 0079 LMTHES 0072 


O' 
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o 
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o 

o 

o 

o 


G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




DSKDHX 

PAGE 

1 DATE! 08/19/99 

0001 




NAM DSKDHX 

DECK-ID 068 MSOS 5.0 

Q G 0 2 



-Sf- 

MASS STORAGE OPERATING SYSTEM VERSION 5,0 

0003 




SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

0004 




COPYRIGHT CONTROL DATA CORPORATION 1976 

00 0 5 




COSY DECK NAME ** DSKDHX ** 

000 6 




ENT 

D CO DHX 

000 7 


0020 


FQU 

SPACE ! $2 0) 

000 8 

POOOO 

7FFF 

OCODHX 

ADC 

-0 

00 0 9 

P0001 

4829 


STQ* 

Cl 

0010 

PC 0 0 2 

682A 


STA* 

C3 

0011 

PO 003 

OFFS 


LIS 

8 

0 012 

P 0 0 0 4 

482 7 


STQ* 

C2 

0 G 1 3 

POO 05 

6828 


STA* 

C4 

0014 

PO 00 6 

ocoo 


ENQ 

0 

0015 

POO 07 

4827 


STQ* 

KNTR 

0016 

PO 00 8 

4827 


STQ* 

NUM 

0017 

P00 0 9 

GA21 

DHX10 D 

LDA* 

Cl, Q 

0018 

POOOA 

OF 48 


ARS 

8 

0 019 

POQOB 

0101 


SAZ 

i 

00 2 0 

POOOC 

0121 


SAP 

DHX12Q-*- 1 

0021 

POOOD 

1 8 1 A 


JMP* 

DHXEND 

0022 

POOOE 

0 9DF 

DHX120 

INA 

-SPACE 

0023 

P 0 0 OF 

0111 


SAN 

1 

0 Q 2 4 

P0010 

1811 


JMP* 

DHX2Q0 

002 5 

PC Oil 

0920 


INA 

SPACE 

0026 

P0012 

68 IE 


STA* 

TEMPI 

0027 

P 0 0 13 

OC OF 


ENQ 

SF 

0028 

P 0 0 1 4 

C A 3 2 

BHX140 

LOA* 

TABLE, Q 

0029 

PO 0 1 5 

8 8 1 B 


EOR* 

TEMPI 

0030 

P 0 016 

0111 


SAN 

1 

0031 

P001? 

1806 


JMP* 

DHX160 

0032 

P 0 01 8 

ORFE 


INQ 

-1 

00 33 

P0019 

0171 


SQM 

1 

0 0 3 * 

POO 1A 

1 8F9 


JMP* 

DHX 140 

0035 

P001B 

OAFF 

DHX ERR 

ENA 

-0 

00 3 6 

POOIC 

1CE3 


JMP* 

( OCODHX) 

00 37 

PO 0 ID 

C812 

DHX160 

LDA* 

NUM 

DO 3 8 

P001E 

OF C-4 


ALS 

4 

0039 

P001F 

0834 


AAC 

A 

D G 4 0 

P 0 0 2 0 

6 8 0 F 


STA* 

NUM 

00 41 

P0021 

0 8 OD 

DHX20 0 

RAO* 

KNTR 

0042 

PO 022 

E8 OC 


LQQ* 

KNTR 

0043 

P 0 023 

C2 00 


LDA 

= N -4 , Q 


PQ024 

FFFB 




0 0 44 

P 0 0 25 

0 121 


SAP 

DHXEND-*-! 

00 45 

PO 026 

18E2 


JMP* 

DHX100 

00*6 

P 0 0 27 

C3 08 

DHX END 

LDA* 

NUM 

00 47 

P 0 0 28 

0807 


RAO* 

DCODHX 

00 48 

P0029 

1 COS 


JMP* 

I DC0DHX1 

0049 

P002A 

0 0 Q 1 


BSS 

Cl ,C2,C3 ,C4, KNTR, NUM 


PQ02B 

00 01 





P002C 

0 0 01 





P0G2D 

0 0 0 1 





PO 02E 

00 01 





SUMMARY-11006800001 
05800002 
06800003 
068 0 0 0 0 A 
06 80 0 0 G 5 
06800006 


0680000? 
06800008 
06800009 
06800010 
06800011 
06800012 
06800013 
0S8G3 014 
06800015 
06800016 
0680001? 
06800018 
06800019 
06800 020 
0680 0 021 
06800022 
06800023 
06800024 
06800025 
06830026 
06800027 
0680 Q 02 8 
06800029 
06803030 
05800031 
06800032 
06800033 
0680 0 034 
068QO 035 
06800036 
06800037 
06800038 
06800039 
06800040 
06800041 
06800042 
06800043 


06800044 
068 0 0 045 
O680OQ46 
06800047 
0680 0 048 
06800049 


C) 

O 

O 

O 

n 

Vw' 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DSKDHX 


PAGE 2 


DATE: 08/19/99 



PG02F 

00 01 




005 0 

P 0 0 3 0 

00 01 


BSS 

TEMPI 

0052 




ENT 

ENCOHX 

005 3 

P 0 0 31 

7FFF 

ENCDHX 

ADC 

-0 

00 5 4 

P0032 

OCOO 


ENQ. 

0 

0055 

P0033 

0FE4 


LLS 

4 

00 56 

P0034 

EA 12 


LDQ* 

TABLE, Q 

0057 

P0 035 

0FA8 


QLS 

8 

0058 

PO 036 

48 F3 


STQ* 

Cl 

0059 

PO 037 

OCOO 


ENQ 

0 

0060 

PO 038 

0FE4 


LLS 

4 

0 0 61 

P0039 

EA OO 


LDQ* 

T ABLF, Q 

0062 

P003A 

F 8 t F 


A QQ* 

Cl 

0063 

P0Q3B 

48 EE 


STQ* 

Cl 

00 64 

P003C 

OCOO 


ENQ 

0 

0065 

PO 030 

0 F E4 


LLS 

4 

0066 

P003E 

FA 08 


'LDQ* 

TABLE, Q 

0067 

P0G3F 

0FA8 


QLS 

8 

00 68 

P0Q40 

0FE8 


LLS 

8 

0069 

PO 041 

0 F 24 


QRS 

4 

0070 

PO 042 

0 F C 8 


ALS 

8 

0071 

PO Q 43 

BA 03 


EQR*- 

T A 8LE, Q 

0072 

PO 0 44 

E8E5 


LDQ* 

Cl 

0073 

PO 0 45 

1GEB 


JHP* 

XENCQH X3 

00 7 4 

P 0 0 46 

0030 

FABLE 

NUM 

$30 ,$31 ,$32 


PO 0 47 

0031 





PO 0 48 

0032 





POO 49 

0 0 33 





PO 04A 

0 0'34 





PGQ4B 

0035 




00 7 5 

PQQ4C 

0 0 36 


NUM 

$36, $37, $38 


PO 0 40 

0037 





PO Q4F 

0038 





PO 04F 

0 0 39 




0076 

PO 050 

GO 41 


NUM 

$41, $42, $4 3 


PO 051 

0 0 42 





PO 05 2 

0 0 43 





P 0 0 5 3 

0 0 44 





PO 0 54 

0 0 45 





P 0 055 

0 0 46 




007 7 




ENT 

0 COD EC 

00 7 8 

POO 56 

7FFF 

OGODEC 

AOC 

-0 

0079 

P 0 0 57 

4828 


STQ* 

CHI 

00 80 

P 0 0 5 8 

6829 


STA* 

C H3 

0081 

PO 059 

0FE8 


LLS 

8 

00 82 

P005A 

4826 


STQ* 

CH2 

0 0 8 3 

P0Q5B 

6827 


STA* 

CH4 

0 0 8 ^ 

P005C 

OCOO 


ENQ 

0 

0085 

PO 050 

4826 


STQ* 

VAL 

0086 

P0 05E 

4826 


STQ* 

DKT 

00 87 

P005F 

C A 20 

ODC210 

LDA* 

C HI, Q 


06800050 


05800052 
05800053 
05800054 
05800055 
0680 Q 0 5 6 
0680005? 
06800058 
0680 0 05 9 
0580 Q 060 
06800061 
06800062 
06800063 
06800064 
06800065 
06800066 
06800067 
0680 G 068 
06800069 
068 0 0 07 0 
06800071 
06800072 
06800073 

$33, $34, $35 06800074 


$39 0680 Q 075 


$44,$45»$45 06800076 


06800077 
06800078 
06800079 
06800080 
06800081 
06300082 
06800083 
0680 C 084 
06800085 
06800086 
05800087 


DSKDHX PAGE 3 


0088 

PQ060 

OF 48 


ARS 

8 

00 89 

PO 061 

0101 


SAZ 

1 

0090 

PO 06 2 

0121 


SAP 

1 

0091 

P 0 0 63 

1819 


JMP* 

DDC250 

0092 

P 0 0 64 

681B 


STA* 

CHI 

009 3 

PO 065 

0 9 DF 


INA 

-SPACE 

009 4 

P 0 066 

0111 


SAN 

1 

0095 

P0067 

18 OF 


JMP* 

0 DC 23 0 

009 6 

PO 068 

OA OA 


Ena 

10 

00 97 

PO 0 69 

2 8 1 A 


'MU I* 

VAL 

00 98 

P 0 0 6 A 

6819 


STA* 

VAL 

0099 

P0Q6B 

C 8 14 


IDA* 

CHI 

0100 

P006C 

09CF 


INA 

-$3 0 

0 1 Q 1 

P 0 060 

0121 


SAP 

1 

010 2 

PO 06 E 

18 06 


JMP* 

DDCERR 

0103 

PO Q6F 

0 8 22 


TRA 

Q 

0104 

P 0 070 

8813 


ADD* 

VAL 

010 5 

P 007 1 

6812 


STAG- 

VAL 

010 6 

PO 07 2 

GDF5 


ING 

-10 

DIO 7 

P Q 073 

0172 


SQM 

DDC230-*-! 

0 1 G 8 

P 0 074 

OAFF 

DDCERR 

ENA 

— 0 

010 9 

P0 075 

1CFD 


JMP* 

COCODEC) 

0110 

P 0 0 7 6 

D 8 OF 

DDC230 

RAO* 

DKT 

0111 

POO 77 

E80D 


LDQ* 

OKT 

0112 

P 0 0 78 

C200 


LDA 

=N-4,Q 


PO 0 79 

FFFB 




Oil 3 

P 0 0 7 A 

0 1 21 


SAP 

DDC250-*-i 

0114 

PD078 

18E3 


JMP* 

D DC 21 0 

0115 

P007C 

C 8 0 7 

DDC250 

LDA* 

VAL 

0116 

P 0 0 7 0 

D 8 08 


RAO* 

OCOHFC 

0117 

P007E 

1CD7 


JMP* 

CDCOOEC) 

0118 

P007F 

0 0 01 


BSS 

CH1,CH2,CH3.,€H4 


P 0080 

G C 01 





P 0 0 8 1 

00 01 





POO 82 

0 0 01 




0119 

PG083 

00 01 


RSS 

VAL, DKT 


PO 0 84 

0 001 




0120 




FNT 

ENCDEC 

0121 

PO 085 

7FFF 

ENG DEC 

ADC 

-0 

0122 

P 0 0 8 6 

0 1 33 


SAM 

EOCERR -*--1 

0123 

P 0 087 

68FB 


ST A* 

VAL 

0124 

POO 88 

9 8 1 B 


SUB* 

MAXDFC 

012 5 

PO 089 

0 134 


SAM 

FDG2G0-*-! 

0126 

P Qu8 A 

C 0 00 

EOCERR 

LDA 

= A** 


P008B 

2 A 2A 




0127 

PQQ8C 

0822 


TRA 

R 

0123 

P 0 0 80 

1CF7 


JMP* 

IENCDECJ 

0129 

P008E 

CO 00 

EDC200 

LDA 

= A 0 0 


P008F 

3030 




0130 

PO 0 90 

6 8 EE 


STA* 

CHI 

0131 

PO 091 

68 EE 


STA* 

CH2 

0132 

PQ092 

C 8 F 0 


LDA* 

VAL 

0133 

PO 0 93 

OCOO 


ENQ 

0 


DATE:: 08/19/99 


06800088 
06800089 
06800090 
06800091 
06800092 
06800093 
06800094 
0680 0 095 
0680 0 096 
0680 0 097 
0680 0 09 8 
06800099 
06800100 
06800101 
06800102 
06800103 
06800104 
06800105 
06800106 
06800107 
06800108 
06800109 
06 80 QUO 
06800111 
06800112 

06800113 
06800114 
0680011 5 
0680011 6 
06800117 
06800118 


06800119 

0680 0 12 0 
06800121 
06800122 
06800123 
06800124 
0680 0125 
06800126 

06800127 

06800128 

06800129 

06800130 

06800131 

06800132 

06800133 


o 


BSKDHX 


PAGE 


4 


DATE^J 08/19/99 



o 

o 

o 

o 

o 

o 


0) 


o 


06800134 
06800135 
06800136 
06800137 
06800138 
06800139 
06800140 
06800141 
06800142 
06800143 
0680 D 144 
06800145 
06800146 
0680 0147 
06800148 
06800149 
05800150 
05800151 

O 


O 


O 


O 


O 


O 


O 


o 


C) 


o 


o 


o 

o 

o 

o 


DSKDHX 


PAGE 


5 


DATE; 08/19/99 


EQUIVALENCES 


DEF.LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

0 0 0 0 

I 

00FF 

(000255) 



0 00 7 

SPACE 

0 0 20 

( 0 00032) 

0 0 22 f 0025, 

0093 



QSKDHX 


PAGE 


6 


DATEi 08/19/99 


o 


o 










o 

S Y M B 0 

L S 


















DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 



o 

0 0 0 6 

DCODHX 

0B 0 0 

0 0 06, 

0 0 3 6, 

0047, 

0 0 48 




0017 

DHX100 

00 0 9 

0 045 







0 022 

QHX12Q 

00 0 E 

0 020 






o 

0028 

QHX140 

001 4 

Q 034 






0035 

OH X ERR 

Q01B 








0 037 

OH X 16 0 

0 0 1 D 

0 031 







0 0 41 

DHX200 

0021 

0 024 






o 

0 046 

0 HX END 

0027 

0 021, 

0 044 




0072 

0 049 

Cl 

0 0 2 A 

0 0 09 , 

0017, 

0 058, 

0062, 

0063, 


0 0 49 

02 

0 0 2 B 

8012 







0 049 

C3 

0 0 2C 

8010 






o 

0 049 

C4 

0 02 D 

0013 






0 049 

KNT'R 

002E 

0015, 

0 041, 

0 042 





0 049 

NUM 

0 0 2 F 

0016, 

0 037, 

0 040, 

0 046 




0 050 

TEMPI 

0030 

0 026, 

0029 





o 

0 052 

ENCDHX 

0031 

0 0 52 , 

0073 





0 074 

FABLE 

0046 

0 0 28, 

0 05 6, 

0 061, 

0066, 

0071 



0 077 

DCO DEC 

0056 

0077, 

0109, 

0116, 

0117 




0 087 

DO C 21 0 

005F 

0114 






o 

0 108 

OD C ERR 

007 4 

0102 






0 110 

ODC230 

0076 

0 095, 

0107 






0115 

DDC250 

0 0 7 C 

0 091 , 

0113 






0 118 

CHI 

0 07F 

0079, 

0 0 87, 

0 092, 

0099, 

0130 , 

0144 

o 

0118 

CH2 

0080 

0 0 82, 

0131, 

0135, 

013 6, 

0140, 

0141. 

0118 

GH3 

0081 

0 0 80 







0118 

CH4 

00 82 

0 083 





0115 


0 119 

V AL 

0083 

0 0 85, 

0 097, 

0098, 

0104, 

0105, 

c 

0 119 

OKI 

0084 

0086, 

0110, 

0111 




0 120 

ENCOEC 

0085 

0120, 

0128, 

0148 





0126 

EDCERR 

0 08A 

0 122 







0129 

EDC200 

0 0 8 E 

0125 






o 

0149 

MAXOEC 

0 0 A3 

0124 






C 150 

FEN 

O0A4 

0134, 

0138, 

0143 





o 


o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

0147 O 

0123., 0132 

o 

o 

o 

o 

o 

o 

n 

Nv./ 


DSKDHX 


PAGE 


7 


DATE: 08/19/99 


** A L 

P H A 

R E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 











Cl 

0049 

C2 

0 049 

C3 

0 0 49 

C 4 

0049 

CHI 

Oil 8 

CH2 

0118 

CH3 

0118 

CH4 

0 118 

DCODEC 

0077 

DCO DHX 

000 6 

DOC 210 

0 087 

DDC230 

0110 

DDC250 

an 5 

ODGERR 

010 8 

DHX1G0 

0017 

DHX120 

0022 

DHX140 

0 028 

DHX160 

0037 

DHX 200 

0041 

DHXEND 

0 0 46 

DHXERR 

0 035 

DKT 

0119 

EDC20Q 

0129 

E DC ERR 

0126 

ENCDEC 

012 0 

ENCDHX 

0 05 2 

I 

0000 

KNTR 

0049 

MAXDEC 

0149 

NUH 

0 0 49 

SPACE 

0007 

TABLE 

0074 

TEMPI 

0 05 0 

TEN 

0150 

VAL 

0119 





SPG ALL 


PAGE 


1 


DATE;: G 8/19/99 



o 

o 


SUMMARY-li GN92G G 001 
N9200002 
N92QQGQ3 
N9200Q04 


N9 20 0 0 G 6 

0*1,1 N9200007 


N9200003 
N920 0009 
N920Q01G 
N9200011 


N920G012 

N9200013 

N920 0014 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


SPCALL 


PAGE 


2 


DATES 08/19/99 


EQUIVALENCES 


DEF .LINE NAME 
GOOD I 


VALUE REFERENCED AT LINE NUMBER 

00FF f 00 0255) 


S PC ALL 


PAGE 


3 


OATES 08/19/99 


SYMBOLS 


DEF . LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

0 0 0 6 

SETPV4 

000 0 

00 06, 

0007, 

000 7 

0 011 

NAME 

00 0 C 

0 0 07 



0012 

GOMP 

00 OF 

0 0 07 



0 013 

F W A 

0010 

0 0 07, 

0 007, 

0012 



SPG ALL 


PAGE 


4 


D ATE J 08/19/99 


o 



O *** ALPHABETICAL S 0 * IT OF SYMBOLS *** Q 

pv COMP 0012 FWA 0013 I QQOD NAME 0011 SETPV 4 0006 

° O 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

u 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

• o 


O 


O 


SP0LY1 


PAGE 


1 


DATE3 08/19/99 


NAM SPOLY1 DECK-ID N93 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-11GN93Q0001 
N93QQ002 
N9300003 
N93 0 0 0 0 A 


0017 

0018 
0019 
00 20 
0021 
QG22 
00 23 
00 24 
0025 


POOOO 
P 00 13 1 
P 0 0 0 2 
P 0 0 0 3 
P 0 0(3 4 
P 00 0 5 
PO 0136 
P0007 
P 0 0 08 
PO 009 
P 0 0 0 A 
PGOOB 
POOOC 
P00 0D 
P000E 
P000F 
P0010 
PQ011 
PO 01 2 
P 0 0 13 
POO 14 
P0015 
POO 16 
PO 0 17 
P 0 0 1 8 
PO 0 19 


54 F4 
5A01 
OQ OF 
0 0 0 0 
D 8C2 
0011 
0010 
0 00 0 

0 0 OB 
0 00 0 
0 0 0 0 

1 4EA 
5354 
5031 
5634 
1801 
5400 
7FFF 
00 00 
OA 00 
68F2 
68F4 
C8F6 
0901 
68F4 
1 8E6 


SETPtf 4 


NAME 


COMP 
X FWA 
X 

SUP 


1700 MSOS VERSION 4,0 SETUP UTILITY 
ENT SETPV4 
ENT SU? 

EXT STPV4 

GF FILE COMP, NAME-SET PV 4- 1 , FWA, FWA-SE TP V4+1 , 0 , 


ADC 0 
ADC 0 
NUM S14EA 
ALF 3 ,S TP 1 V4 


JMP* FWA 
RTJ* STPV4 


JUMP 


DISPATCHER 


NUM 

ENA 

STA* 

ST A* 

LDA"* 

INA 

STA* 

JMP* 

END 


SETPV4-S-7 
SETPV4+10 
NAME*- 1 
1 

NAME*- 1 
SETPV4 
SETPV4 


CLEAR W2 

CLEAR SECTOR ADDRESS 


MS OS 4. 1 
MS0S4.1 
HS0S4, 1 


N930 0006 
N930 0007 
N9300008 
N9300009 
N9300010 


N93Q0011 
N9300012 
N9300013 
N930 0014 


N930 0 015 
N9300016 

N9330017 
N 9 300018 
N9300019 
N930G02G 
N9300021 
N9300022 
N93QQ023 
N9300024 
N93Q0025 


PGM = 0 0 1 A 


COM = 0000 


DAT = 0000 


o 


SP0LY1 


PAGE 


2 


DATE;* 08/19/99 


EQUIVALENCES 


DEF . LINE NAME 
0 0 00 I 


VALUE REFERENCED AT LINE NUMBER 

GOFF (000255) 


SPOL'Yl 


OATES 08/19/99 


PAGE 3 


; Y M B 0 

L S 




DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

0 0 0 7 

SETPV4 

GOOD 

0007, 0010, 

0010, 0019, 0020, 0024 

0 0 G 8 

SUP 

0012 

0 0 03 


CD 14 

NAME 

GOOD 

0010, 0021, 

0023 

0015 

COMP 

GOOF 

0010 


0016 

FWA 

0G10 

0010, 0010, 

0015 


SPOLYi 


PAGE 


4 


DATE 1 : 08/19/99 


E X T E R 


OEF • LINE 
0 0 09 


N A L S 


NAME VALUE REFERENCED AT LINE NUMBER 

STPV4 0011 0016 


SP0LY1 


PAGE 


5 


DATE: 08/19/99 



o 

o 


*** alphabetical sort of symbols *** 

COMP 0015 FWA 0016 I 0000 NAME 0014 SETPV4 00D7 


O 

o 

o 

Q 

o 

o 

o 


o 


o 


o 

o 

o 

o 


o 


STPV4 


0009 SUP 


00 0 8 


( ) 

o 

o 

O 

O 

O 

O 

O 

O 

O 

C 

O 

O 

O 

o 

o 

O 


( '} 

•v.** 

1 RECORDS TRANSFERRED 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FTN 3 * 3 B COPT = LP XC ) 


STPV4 


PAGE 


DATES 08/19/99 


TIMES 1644 


o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1 

1 


z 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1 4 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

2 6 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


SUBROUTINE STPV4 

1 /DECK- ID N94 MSOS 5.0 

C MASS STORAGE OPERATING SYSTEM VERSION 5.0 

C SMALL SYSTEMS OIVTSIOM, LA JOLLA, CALIFORNIA 

C COPYRIGHT CONTROL DATA CORPORATION 1976 

COMMON IRDFLG,IMODE,IUNIT ,IQBUF197) ,I0CTR 

ISOOFV,IMCX , I MAS C (96) ,ITMASC?4) , IERR 
IMVA,IMV8,IM VC,IMVD, ISCR , IS EC T , IPB ,1 PH , IF ATAL 
ICPMC,IBUNIT ,IMUNIT, INUNIT, IFILE,IDCTR 
IBTM, IBF ( 150 0 ) , IMF Cl 500'} , IF X, IP ASS 


3 0 


^10 

'20 

21 


COMMON 
COMMON 
COMMON 
COMMON 
IEND= 0 
IRDFLG; 


0 


I fata 1=0 

ICPMC= 1 
IMCX= 1 
IPB=1 
IPM=1 
ISGR= 50 

MAIN PROGRAM READS ALL CONTROL CARDS 
IMQDE=$10GQ 
IUNIT=$Q8F9 
DO 30 1=1,97 
IOBUF (I)=S2020 
CALL IREAD 
CALL CONPRT 

READ FIRST CONTROL STATEMENT 
IFtlOBUF C1).EQ»S2A4C) GO TO 10 
I ERR= 1 
CALL IERROR 
ASSEM $5 4F4 ,$ 4A 0 0 

EXIT IF *L NOT FIRST CONTROL STATEMENT 
CALL CONDEC 

DECODE AND SAVE CONTROL STATEMENT 
DO 21 1=1,97 
I OB UF Cl ) =$2 32 0 
CALL IREAD 
CALL CONPRT 

PRINT OUT CONTROL STATEMENT 
IFtlOBUF ( 1) .EQ.$2A45J IEND=1 
CALL CONDEC 
IFIIEND. ER.0) go to 20 

FORCE LAST PAGE OF MASTER CONTROL TABLE WRITTEN TO DISK 
CALL MCTDK 

CONTROL CAROS ALL READ NOW PUT THEM IN ORDER 
CALL ORDERM 

CONTROL CARDS IN ORDER NOW EXECUTE THEM 
CALL SUP 
END 


N94000D1 
SUMMARY- 11GN940Q002 
N940QQ03 
N9400004 
N9400005 
N9400006 
N940.0007 
N94QG0G8 
N94D0009 
N9400010 
N9400011 
N9400Q12 
N9400013 
N9400014 
N9400015 
N9400016 
N94Q0G17 
N9400 018 
N94Q0019 
N940G020 
N94Q0021 
N9400 022 
N9400023 
N94Q G 0 2 4 
N940Q025 
N9400026 
N94O0 027 
N9400028 
N940G029 
N940G030 
N94QG031 
N94Q0032 
N9400033 
N9400034 
N940G035 
N 940 0 036 
N9400037 
N940G038 
N9400039 
N 9400040 
N9400041 
N 940 00 42 
N 9 4 0 G 0 4 3 
N9400044 
N9 40 0 0 45 
N9400046 
N 9 40 0 0 47 
N9400048 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


FT M fDPT 


i pxn ) 


STPV4 


PAGE 


2 



O 

o 

o 

o 


o 

o 

o 

o 

o 


o 


DATE’! 08/19/99 TIME! 1644 

o 

: ° 

: ° 

o 

O 

o 

O 

■ o 
o 
o 

• o 

; ° 

■ O 

O 

o 

’ O 


o 

FTN 3.3B OPT = LPXC) STPV4 PAGE 3 DATE'S 08/19/99 TIMES 1644 


***** 

LIST O 

F S Y M 

B 0 L S ***** 


CONSTANTS S 



o 

VALUE 


ADDRESS 

REFERENCED BY STATEMENT NB S 

o 

G8F9 

{22 97) 

0 00 2 

16 

1000 

( 4C96) 

0 00 1 

15 


2020 

(8224) 

0 00 4 

18 ,27 

o 

2 A 4 5 

(10821 ) 

000 6 

30 

2A4C 

(10828) 

0 005 

21 

VARIABLES : 



o 

NAME 

TYPE 

ADDRESS 

REFERENCED BY STATEMENT NB t 
16,18,26,27 

o 

I 

INTEGER 

0 00 3 

IBP 

INTEGER 

oosc C 

1 


IBTM 

INTEGER 

0 00 B C 

1 

o 

IB’J NIT 

INTEGER 

0006 C 

1 

ICPMC 

INTEGER 

0 005 C 

1,10 

IDCTR 

INTEGER 

00DA C 

1 


IFND 

INTEGER 

0 00 0 

1,7,30,32 

o 

IE RR 

INTEGER 

0 0CB C 

1,22 

IFATAL 

INTEGER 

0QD4 C 

1,9 

IFILF 

INTEGER 

0 00 9 C 

1 


IFX 

INTEGER 

QC94 C 

1 

o 

IMASC 

INTEGER 

0067 C 

1 

IMS X 

INTEGER 

0066 C 

1,11 

IMF 

INTEGER 

0688 C 

1 


INODE 

INTEGER. 

0001 c 

1,15 

o 

IMUNIT 

INTEGER 

0007 C 

1 

I MV A 

INTEGER 

QGCC C 

1 

I MV B 

INTEGER 

OOCD C 

1 


I MV C 

INTEGER 

00GE C 

1 

o 

IMVD 

INTEGER 

0 0CF r. 

1 

INUNIT 

INTEGER 

0 00 8 C 

1 

IOBUF 

INTEGER 

0 00 3 C 

1, 18,21,27,30 


IOC TR 

INTEGER 

0 05 4 C 

1 

o 

IPASS 

INTEGER 

0 C95 C 

1 

IPS 

INTEGER 

0 0D2 C 

1,12 

IPM 

INTEGER 

0 0D3 C 

1,13 


IRQ FLG 

INTEGER 

0 00 0 C 

1,8 

o 

I 5 C R 

INTEGER 

0000 C 

1,14 

IS E CT 

INTEGER 

0 0D1 C 

1 

ISODEV 

INTEGER 

0065 C 

1 


ITMASC 

INTEGER 

00G7 C 

1 

o 

IUNIT 

INTEGER 

0002 C 

1,16 


o 


O 


FTN 3.3B (OPT = LPXC) STPV4 PAGE 4 DATE’S 

O 


EXTERNALS ! 

0 



NAME 

TYPE 

ADDRESS 

REFERENCED 

BY 

STATEMENT 

NB ? 

o 

CONDEC 

SUBROUTINE 

0 039 

25,31 




CQNPRT 

SUBROUTINE 

G02C 

18,29 





IERROR 

SUBROUTINE 

0 035 

22 





IREAD 

SUBROUTINE 

0 02 A 

18,28 




o 

MCTD K 

SUBROUTINE 

0 051 

32 




ORDERM 

SUBROUTINE 

0 053 

32 





SUP 

SUBROUTINE 

0 055 

32 




o 

LABELED 

STATEMENTS : 






o 

LABEL 


ADDRESS 

REFERENCED 

BY 

STATEMENT 

NB i 

10 


0038 

21,25 





20 


0 03 A 

25,32 




O ' 

21 


0 0 3 C 

25,2 7 




30 


0021 

16,1 8 





STPV4 


0 058 

1 





o 


o 

o 

o 

o 

o 

o 

o 


08/19/99 TIME: 1644 

O 

o 

o 

• o 

O 

O 

o 

o 

o 

• o 
o 
o 
o 
o 
o 


o 


o 


FTN 3 . 3B DPT = LPXC ) 


TERROR 


PAGE 


DATE: 08/19/99 


TIMEJ 1644 


O 

O 

O 

O 

O 

n 

O 

o 

o 

o 

o 

o 


2 

3 

4 

5 

6 

7 

8 
8 
9 


21 

22 

23 

24 

25 


SUBROUTINE 


C 

C 

G 

G 

C 

C 


TERROR 

/DECK- ID H 95 HSOS 5.0 
HASS STORAGE OPERATING SYSTEM VERSION 5.0 
SHALL SYSTEMS DIVISION* LA JOLLA* CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 
ROUTINE TO PRINT OUT ERROR MESSAGES 
ERROR PASSED IN IERR 
MAXIMUM NUMBER OF ERROR MESSAGES 15 
COMMON IP. OFLG *IHOOE * ID NIT ,IOBUF (97) »XOCTR 
COMMON I SO DEV* I MG X* I M AS C ( 96 ) , ITM ASC i 4 ) * IERR 
COMMON IMVA,IMV8, INVC*IMVO, ISCR* IS EC T* IPS, I PM * I FATAL 
COMMON ICPMC,IBUNIT, I MUNI T , I NUN IT , I FIL E , IDCTR 
COMMON 1 8TM *1 OF { 1 5 G 0 J » I MF (1 50 0 ) ,IFX, IPASS 
DIMENSION I E 1 6 5 

DATA! Ell) , I EC 2) , I £ ( 3 ) , I £* 4) * I£ ( 5) , I El 6) / 
*$202A,$2A2A*$2A2A*$ 455 2 , $ 52 4F , $ 52 20 / 

K=I ERR 

' “ TO 10 


OUTPUT DEVICE 


10 


I FC IERR. GT .9) GO 

11 


J=$2Q 30 + K 

12 


GO TO -20 

13 

ID 

K=I ERR-i 0 

14 


J=$313G*K 

15 

20 

IS0DEV=$08FB 


C 

SET PRINTER AS 

16 


I0CTR=7 

17 


DO 30 1=1,6 

18 

30 

IOBUF { I ) = I £ II ) 

1 9 


IOBUF (7)=J 

20 


CALL ASCOUT 


C 

PRINT ERROR 


C 

COMPUTED GO TO 


c 

SOME ERRORS ARE 


TO DETERMINE IF RETURN TO PROGRAM IS POSSIBLE 
DELAYED FATAL 


GO TO 11, 2*1, 1,2,1, 
C IMMEDIATELY FATAL 

1 ASSEM $54F4,$4A00 

C DELAYED FATAL 

2 IFATAL=1 

RETURN 
END 


* 1 , 1 , 1 ) 

RRORS 


IERR 


N95QJ3 D01 
SUMMARY-11DN95GG002 
N9500003 
N95Q0004 
N950GG05 
N9500006 
N950 0 B 0 7 
N950G008 
N950G009 
N95 0 0 01Q 
N9500011 
M9500012 
N950G013 
N9500014 
N9500Q15 
N95Q0016 
N9500G17 
N950D018 
N95Q0019 
N9500020 
N9500021 
N950GG22 
N9500023 
N950Q G24 
N9500G25 
N950GG26 
N95GG 027 
N950GD28 
N950GG29 
N95 0G0 30 
N95 3 0 031 
N95QGG32 
. . N950GD33 
N950G 034 
N9500G35 
N95QG036 
N95GG037 
N9500038 
N95QG 039 
N95 GO 048 


i I 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

v,.- 


o 

o 

o 


n 


FTM 3,3B 13 PT 


LPXC) 


I ERR OP 


PAGE 


2 



COMMON 

BLANK $ 0C96 l 3222) 

O PROGRAM LENGTH $00 53 i 83) 

EXTERNALS 
pj ASCOUT 

O 

o 

o 

o 

o • 

o 

o 


o 

o 

o 

o 

o 


DATE: 08/19/99 


TIMES 164 A 


O 

□ 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


FTN 3.3B 10 PT = LPXC) I ERROR PAGE 3 DATE! 

O ***** LIST OF SYMBOLS ***** 


CONSTANTS ! 


VALUE ADDRESS REFERENCED BY STATEMENT NB S 

O G8FB (2299) CQGA 15 

20 3 C ( 82 AO ) 0 00 8 11 

3130 (1259?) 000 9 14 

O 

VARIABLES ! 


NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : 



I 

INTEGER 

0 008 

16,18 

o 

IBF 

INTEGER 

OGOC C 

1 

IBTM 

INTEGER 

00DB C 

1 


IBUNIT 

INTEGER 

0 0 0 6 C 

1 


ICPMC 

INTEGER 

0005 C 

1 

o 

IQCTR 

INTEGER 

0 0Q A C 

1 

IE 

INTEGER 

OOQfi 

1,8,18 


IERR 

INTEGER 

0 0CB C 

1,9,10,13,21 


IF AT AL 

INTEGER 

Q0D4 C 

1,23 

o 

I FILE 

INTEGER 

0 00 9 C 

1 

I F X 

INTEGER 

0C94 C 

1 


IMASC 

INTEGER 

0067 C 

1 


IMCX 

I NT EG FR 

0066 C 

1 

o 

IMF 

INTEGER 

06B8 C 

1 

IMODE 

INTEGER 

000 1 C 

1 


IMUNIT 

INTEGFR 

GGD7 C 

1 


IMV A 

INTEGER 

0GCC C 

1 

o 

iMve 

INTEGER 

00GD C 

1 

IMVC 

INTEGER 

0GCE C 

1 


IMVD 

INTEGFR 

flOGF 0 

1 


INUNIT 

INTEGER 

000 8 C 

1 

o 

IOBUF 

INTEGER 

008 3 C 

1,18,19 

IOC TR 

INTEGER 

0064 C 

1,16 


TP A SS 

INTEGER 

0C9 5 C 

1 


IP B 

INTEGER 

0 032 G 

1 

o 

I PM 

INTEGER 

0 0 03 C 

1 

IRQ FLG 

INTEGER 

G0D0 C 

1 


ISCR 

INTEGER 

0 00 0 C 

1 


ISECT 

INTEGER 

GOBI C 

1 

o 

ISO DEV 

INTEGER 

0 0 6 5 C 

1,15 

ITHASC 

INTEGER 

00C7 C 

1 


IUNIT 

INTEGER 

000 2 C 

1 


J 

INTEGER 

GGQ7 

10,11,14, 19 

o 

K 

INTEGER 

000 6 

8,9,11,13,14 


o 

o 


08/19/99 


TIME! 1644 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FT N 3. 3B JOPT 


LPXG) 


I ERROR 


PAGE 


4 



O 

EXTERNALS J 

o — 

NAME TY PE ADDRESS REFERENCED BY STATEMENT NB i 

r\ ASCOUT SUBROUTINE 0031 19 


o 

o 

o 


LABELED STATEMENTS : 


LABEL 


1 

2 


10 


20 


30 

IERROR 


ADDRESS 

0 04 7 
0049 

001 6 
001C 
0024 
0 0 4 F 


REFERENCED BY STATEMENT NB * 

19.21.22 

19.21.23 
10,13 
11,15 
16,18 

1 


o 

o 

o 


o 


o 

o 


o 

o 

o 

o 


DATE'S 08/19/99 


TIMES 1644 


o 

s ,,* 4 

o 

o 

o 

o 

o 

o 

o 

o 

u 

o 

o 

o 

o 

o 

o 

o 


3 .3 B (OPT = LPXC) 


H OTDK 


DATE: 08/19/99 TINE: 1644 


o 

o 

o 

o 

o 

o 


1 

1 


2 

3 

4 

5 

6 


7 

8 

9 

10 

11 


C 

C 

c 

G 

C 

C 

c 

c 

c 

c 


c 

c 


c 


SUBROUTINE MCTDK 

1 /DECK- 10 N96 MSOS 5.0 

HASS STORAGE OPERATING SYSTEM VERSION 5.0 
SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

MASTER CONTROL TABLE ROUTINE 

INPUT PARAMETERS 

ICPMG CURRENT PAGE TABLE IN CORE 
IMCX INDEX TO CONTROL TABLE 
IMASC PAGE IN CORE 

COMMON IRDFLG,IMODE, IUNIT , I08UF T97) ,IOCTR 
COMMON IS ODEV ,1 HC X , I H ASC? 96) ■, I TMASG ( 43 , IERR , 

COMMO N IMVA,IMVB,IHVC,IMVO,ISCR,IS£CT,IP8,IRH,IFATAL 
COMMON ICPMC, IBUNI T, IMUNIT, INUNIT, IFILE^IDCTR 
COMMON IBTM,IBF (1500 3 , IMF (1 500 3 , IPX, I PASS 

COMPUTE SECTOR TO WRITE 
T S F CT = T CP M P 

CALL DISKWdSEGT, IMASC ) 

PARAMETERS SECTOR AND BUFFER AQDRESS 
ICPMC=ICPMC+i 
RETURN 
END 


N960 Q 001 
SUMMARY- 11 0 N9600002 
N9600003 
N9600QD4 
N960 0005 
N9600006 
N9600007 
N9600 003 
N9600009 
N9600010 
N96G0011 
N96Q0G12 
N9600Q13 
N9600014 
' N9600015 
N96Q0016 
N 9600017 
N9600013 
N9600019 
N9600023 
N9600021 
N960 0 022 
N9600G23 
N9600024 
N9600G25 


O 

O 

O 

O 

o 

O 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 


o 


FIN 3 . 3 B (OPT = LPXC) MCTDK PAGE 2 DATE'! 08/19/99 TIME! 1644 


o 

COMMON 

BLANK $ 0 C9 6 ( 3222) 


o 

o 

PROGRAM LENGTH $0010 ( 

16) 

o 

o 

EXTERNALS 

DISKW 


o 

o 



o 

o 



o 

o 



o 

o 



o 

o 



o 

o 



o 

o 



o 

o 



• o 

o 



o 

o 



o 

o 



o 

o 



o 

o 



o 



08/19/99 


TIME! 16i+4 


c 

o 

C) 

o 

o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

c 

o 

o 



o 

o 

o 

o 

o 

o 


DATE: 08/19/99 


TIMES 1644 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 



o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

C) 

o 

o 

o 

o 

o 


o 


FT N 3. SB OPT 


LPXC ) 


3ETPAG 


PAGE 


2 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DATE* 08/19/99 


TIMES 16*4 


o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 



SUBROUTINE 0 00 5 


7 


08/19/99 


TINE, 5 1644 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

o 

o 


o 


o 

o 


o 

o 

o 


o 

o 


DATE t 08/19/99 


TIHEJ 1644 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



TIME: 1644 


N98QD 0 01 
11GN98GCJG02 
N980GGQ3 
N98GQOQ 4 
N98QD005 
N98QOOO& 
N 98 0 0 0 G 7 
N9800008 
N980GG09 
N988GQ10 
N980QO11 
N9830012 
. N980GG13 

N980D014 
N980G015 
N9800016 
N980GG17 
N98GGG18 
N980GG19 
N9800020 
N9830Q21 
N98GG022 
N98GG 023 
N9800 024 
N98 0O 025 
' N980G026 
N9800GZ7 
N98GB 023 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FIN 3«3B TOPT 


LPXC) 


CONPRT 


PAGE 2 


C 

COMMON 

BLANK 'SO C96 ( 3222) 

O ■ PROS RAM LENGTH $00 43 I 67) 

EXTERNALS 
q ASCOUT 

o 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DATE'S 08/19/99 


TIMES 1644 


G 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


{ I 






G 


FTN 3. 

3 B (OPT = 

LPXC ) 

CONPRT PAGE 3 DATE: 08/19/99 

TIME: 1644 


o 


LIST 

OF S Y H 

B 0 L S ***** 


o 

o 

CONSTANTS : 




o 

o 

VALUE 


ADDRESS 

REFERENCED BY STATEMENT NB 1 



03FB 

(2299) 

OGQ 3 

14 


o 


2020 

£8224) 

0 0 0 1 

10,13 



o 

VARIABLES : 



' 1 1 i 

o 

o 

NAME 

TYPE 

ADDRESS 

REFERENCED BY STATEMENT NB .* 


o 


I 

INTEGER 

0 00 0 

1*8*9* 10* 1 2 t 13*18*19 




IBF 

INTEGER 

Q 0 DC C 

i 



o 

IBTM 

INTEGER 

0 00 B C 

i 


o 

IBUNIT 

INTEGER 

0 0D6 C 

i 



ICPMC 

INTEGER 

0 0 D 5 C 

i 



IDCTR 

INTEGFR 

00DA C 

i 



o 

IERR 

INTEGER 

00CB C 

i 


o 

IFATAL 

INTEGER 

0004 C 

1 



TFILE 

INTEGER 

0009 D 

1 




IFX 

INTEGER 

QC94 C 

1 



o 

IMASC 

INTEGER 

0 05 7 C 

1 


o 

IMDX 

INTEGER 

0056 C 

1 



IMF 

INTEGFR 

06B8 C 

1 



IM0DE 

INTEGER 

00D1 C 

1 



o 

IMUNIT 

INTEGER 

0007 C 

1 


o 

I MV A 

INTEGER 

OOCC C 

1 



IMVB 

INTEGER 

O0CD C 

1 




I MV C 

INTEGER 

9 ODE C 

1 



o 

IMVO 

INTEGER 

a DCF c 

1 


o 

INUNIT 

INTEGER 

00D8 C 

1 



108 UF 

INTEGFR 

0 00 3 C 

1*8*10 *1 3*19 



IODTR 

INTEGER 

0 06 4 C 

1, 7,11,1 5,17,18 



o 

IPASS 

INTEGER 

0C9 5 G 

1 


o 

IPB 

INTEGER 

0 0D2 C 

1 



I PM 

INTEGFR 

0 0 D 3 C 

1 



TRDFLG 

INTEGER 

0 00 0 C 

1 



o 

ISC R 

INTEGER 

0000 G 

1 


o 

ISECT 

INTEGER 

0 0 D 1 G 

1 



ISODEV 

INTEGER 

0065 C 

1,14 



ITMASC 

INTEGER 

0 0 C 7 C 

1 



o 

IUNIT 

INTEGER 

000 2 G 

1 


o 

J 

INTEGER 

0 00 2 

ID, 11, 12 


Q 






o 

o 






o 


o 


o 


FTN 3.3B (OPT 


LPXC ) 


CONPRT 


PAGE 


4 



o 









EXTERNALS : 






o 

NAME 

TYPE 

ADDRESS 

REFERENCED 

BY 

STATEMENT 

NB ; 

o 

ASQ OUT 

SUBROUTINE 

0 02 E 

15 





LABELED 

STATEMENTS i 






o 

LABEL 


ADDRESS 

REFERENCED 

BY 

STATEMENT 

NB : 

o 

o 

10 

11 

13 

20 

CONPRT 


0 03 9 
0013 
0 022' 
Q 03 7 
0 03 F 

1,8 

8,10 

11,13 

17,19 

1 





O 

O 

o 

o 


o 

o 

o 


o 

o 

o 

, Vf l 


DATES 08/19/99 


TIME: 1644 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FT M 3.3B !QPT = LPXC) 


REOCON 


PAGE 


DATE: 08/19/99 


TIME? 1644 


Q 

O 

o 


O 


O 

o 

o 

o 

o 

o 

o 

o 

o 


1 

1 


2 

3 

4 

5 

6 
7 


c 

G 

c 

c 

G 

C 

C 

c 

c 

c 


SUBROUTINE REDGON 

1 / DECK- ID N99 MSOS 5.0 

MASS STORAGE OPERATING SYS TEN VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

READ CONTROL STATEMENT FROM IMASC 

PARAMETERS 

IMXC -INDEX TO FIRST WORC TO GET 
ICPMC -CURRENT PAGE IN CORE 
ITMASC -4 WORD BUFFER TO STORE INTO 
COMMON IRDFLG tIHODE » IUNIT, I08UF(97J , IOCTR 
COMMON ISODEV, I MCX, IMASC ( 96 ), ITMASC (4) , IERR 
COMMON IMVA,IMVB,IMVC,IMVO,ISCR,ISECT,IPB,IPM , I FATAL 
COMMON ICPMC, IB UN IT, I MU NIT, I NUN IT, IFILE, I DC TR 
COMMON IBTH,IBF (1500), IMF tl5GQ5 ,IFX,IPASS 
DO 1 1=1,4 


8 

1 

ITMASGiI)=0 

9 


ASSIGN 21 TO IRET 

10 


J=1 

11 

10 

IPAGE=UIMCX-1) /9 6) M 

12 


IFf IPAGE. EQ.IC»MC) GO TO 


c 

THE PAGE NEEDED IS NOT I 

13 


ICPMC=IPAGE 

14 

n 

CALL GETPAG 


U 

c 

r* 

CORRECT PAGE NOW IN CORE 

15 

Lj 

20 

K=IMCX-(ICPMC-i )*96 

1 6 

C 

c 

ITMASCI J)=IMASC ( K) 


DETERMINE WHICH TYPE OF 

17 


I MC X= IMC X+l 

18 


GO TO IRET 

19 

21 

IFC ITMASC Cl). EQ.i.OR.ITMA 

20 


IF( ITMASC ID. EQ.5.0R,ITMA 

21 


1=3 

22 


GO TO 25 

23 

24 

1—4 

24 

25 

CONTI NUE 

25 


DO 30 J= 2 , I 

26 


ASSIGN 30 TO IRET 

27 


GO TO 10 

28 

30 

CONTINUE 

29 


RETURN 

30 


END 


20 


CORE GET IT 


CONTROL THIS IS TO BRING IN REST 


E0.6) 
. EQ.8) 


GO TO 24 
RETURN 


N9900001 
S UMMARY-il 0N99QQ0Q2 
N9900003 
N99QG004 
N9900005 
N990G006 
N99QG007 
N9900008 
N999 0 0 09 
N9900010 
N9900flll 
N9900012 
N9900013 
N9900014 
N9900 015 
N9900G16 
N99Q0017 
' N990001S 

N99Q0D19 
N9900020 
N990G021 
N9900022 
N9900023 
N9900024 
N9900Q25 
N9900026 
N990G027 
N990GQ28 
. N9900029 
N99QC03G 
N99G0S31 
N9900032 
N9900033 
N9900034 
N990G035 
N99O0O36 
N990G037 
N9900 038 
' N9900039 

N990QQ43 
N9900041 
N99S0042 
N9900843 
N99Q0044 
N9900045 
N9900046 
N990C047 


O 

O 

O 


u 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 



o 


DATE: 08/19/99 


TIME: 1644 


0 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



DATE'! 08/19/99 


TIME! 16+4 


f ) 

Q 

O 

O 

O 

o 

o 

o 

Q 

Q 

O 

O 

O 

O 

O 

O 

O 


FT N 3.38 (OPT 


LPXC) 


REDCON 


PAGE 


4 



o 








EXTERNALS : 





o 

NAME 

TV PE ADDRESS 

REFERENCED 

RY 

STATEMENT 

NB : 

o 

GETPAG 

SUBROUTINE 0 02 5 

13 





LABELED 

STATEMENTS : 





o 

LABEL 

ADDRESS 

REFERENCED 

BY 

STATEMENT 

NB J 

o * 

1 

0 008 

it 8 




10 

0016 

10,27 





20 

002 6 

12,15 





21 

0032 

8,19 





24 

0 044 

19,23 




u 

25 

0046 

21,24 





30 

0 04 F 

24,26,28 





REDCON 

0054 

1 





O 


O 

O 


O 


O 

o 

o 


o 

o 


o 


DATE! 08/19/99 


TIME'! 1644 


D 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FIN 


3.3B HPT = LPXC ) GONOEC PAGE 1 DATE,* 08/19/99 TIME: 1644 


1 


SUBROUTINE CONDEC 

00100001 

1 


1 /DECK- ID OOl MSOS 5.0 

SUMMARY-11000100002 


G 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 

00100003 


r. 

SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

00100004 


c 

COPYRIGHT CONTROL DATA CORPORATION 1976 

00100005 


c 

CONTROL DECODER 

00100006 

2 


COMMON IRDFLG,IMODE, IUNIF,I08UF (97) ,IOCTR 

00100007 

3 


COMMON IS 00 EV, I MG X, I M AS G ( 96 ) , ITMASC i 4) , IERR 

: 00100003 

4 


COMMON IMVA,IMVB,IM VC, I MVO , ISCR , ISE CT , IPS , IPH , ! 

[FATAL 00100009 

5 


COMMON ICPMC,IBUN IT, IMUNIT, INUNIT, I FILE, IOC TR 

0010C010 

6 


COMMON IBTM,I8F(15QG) , IMF (1 50 0 ) ,IFX,IPASS 

00100011 

7 


EQUIVALENCE ( IOB UF tl ) , IT) 

00100012 

8 


IC=0 

00100013 


G 

C 

00100014 

9 


IFf IT. EQ.S2A43) GO TO 5 

Q010G015 


C 

D 

03100015 

10 


IFiIT.EQ.S2A 44) GO TO 3 

00100017 


D 

E 

00100018 

11 


IF (IT. EQ.$?A45 ) GO TO 8 

00100Q19 


C 

I 

00 ISO 0 20 

12 


IF (IT. EQ.$2A49) GO TO 2 

00100021 


C 

L 

0010 0 G 22 

13 


IF1IT.EQ.S2A 40 GO TO 1 

00100 023 


C 

0 

00 10 0 0 2 4 

14 


IF(IT.EQ.$2A4FT GO TO 7 

00100025 


c 

R 

00100026 

15 


IF 1 1 T , EQ •$ 2 A 52 ) GO TO 4 

00100027 


c 

S 

00100028 

16 


IF (IT. EQ.S2A53D GO TO 6 

00100029 

1 7 


IERR=2 

00100030 

IB 


CALL IFRROR 

00100031 

19 


RETURN 

00130032 

20 

1 

IC = 1 

00100033 

21 


GO TO 10 

00100034 

22 

2 

IC = 2 

0 010 0 0 35 

23 


GO TO 10 

00100036 

24 

3 

IC = 3 

00100037 

25 


GO TO 10 

' 00100038 

26 

4 

IC=4 

0 0 1 Q G 0 39 

27 


GO TO 10 

00100040 

28 

5 

IC=5 

00100041 

29 


GO TO 10 

00100042 

30 

6 

IC-6 

00100043 

31 


GO TO 10 

0010004^ 

32 

7 

IC=7 

OQ 10 0 0 45 

3 3 


GO TO 10 

OOIOG 046 

34 

8 

10 = 8 

OOIOG Q47 

35 


GO TO 10 

00100048 

36 

10 

DO 11 1=1,4 

OOIOG 049 

37 

11 

ITMASCT I)=0 

00100050 

38 


If>ICNR=0 

00100051 

39 


IPX=0 

00100052 

40 


IENTRY= 0 

00100 053 

41 


ITMASC ll?=IC 

00100054 


u 

o 

o 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FT N 3.3B OPT = LPXG> 


I0NDEC 


PAGE 


DATE: OB/19/99 


42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 
6 8 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
30 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 


C 

20 

21 

C 

40 


37 

38 


310 

33 

p 

50 


51 


GO TO 130*30 *30, 30 ,20, 40,30 ,20 ), ID 
*C AND *E PROCESSORS 

I F ( IOBUF (2).EQ. S2020.0R.I OCTR. E Q. 1) GO TO 60 
GO TO 41 
GO TO 60 
*S PROCESSOR 
IA = 0 

IF (IOBUF(2).EQ.$2C42) IA = 1 
IF (IOBUF 12) . EQ.S2C4D) IA=2 
I- 1IA.EQ.0 ) GO TO 41 
ITMASC (1)=IC 


FROM CONTROL STMT 


41 

ITMASC ( 2)=IA 
GO TO 30 
IERR= 2 


G 

CALL I ERROR 
RETURN 

JUMP TO PICK NEXT : 

CHARACTER 

3 0 

ASSIGN 31 TO IPICNR 


31 

GO TO 50 
CONTINUE 

41 

IF I IA.NE.S25) GO TO 

39 

IN UM= 0 


311 

ASSIGN 32 TO IPICNR 


3 2 

GO TO 50 

IF -II A. GE. $30 .AND . IA 

• LE . $ 39) 


IF I INUM . EQ .0 ) GO TO 

34- 


DO 35 1=1,4 
IFIITMASCm . EQ . 0 > 

GO TO 36 

35 

CONTINUE 


36 

ITMASC (I)=INUM 


3 4 

IF! I. EQ.4 ) GO TO 60 

IF TIA.EQ.S2C) GO TO 

39 


GO TO 33 


IF (IA. EG. $20 ) GO 
IF IIA.NE.S2AI GO 
IF t IT M A SCI II . EQ. 

IA=-I A 
DO 37 1=1,4 
IF IITMASCm .EQ. 0) 
CONTINUE 
ITMASC (I ) = IA 
ASSIGN 310 TO IPICNR 
GO TO 50 

IF (IA.N£.$2Q » GO TO 41 
GO TO 60 

INUM=INUM*iQ*IA-$30 
IFCINUM.GT. 32767) GO TO 
GO TO 311 

PICK NEXT CHARACTER OUT 
IFTIENTRT.EQ.il GO TO 51 
IEN?R7=1 

IF ( IC • EQ.6) IPX=2 
IPX=I PX+ 2 

IB=IPX/2+l 

IA=I08UF(IB) 


TO 21 
TO 41 

Q,OR. ITMASC(2).EQ.0) 


GO TO 38 


GO TO 41 


41 

OF IOBUF 


TIME: 1644 


00100055 
00100 056 
00100057 
00100058 
00100059 
00100060 
00130061 
00100062 
00100063 
00100064 
0010 0 065 
00100066 
0010 0 0 67 
00100063 
00 10 0 069 
00100073 
00100071 
00100072 
00100 073 
00100074 
OOIOC 075 
00100076 
00100077 
00100 073 
00100079 
00100Q89 
00100081 
00100 082 
00100083 
0010QG84 
00100085 
00100086 
00130087 
00100088 
00100069 
00100090 
00100091 
OQiOO 092 
00100093 
00100094 
00100095 
00100096 
00100097 
08100 098 
00100099 
00100100 
OGIOOIGI 
00100102 
0010D1Q3 
00100104 
OG1G01G5 
00100106 
00100107 
00100108 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


FTSj 3*3B (OPT = LPXC ) OONDEC PAGE 3 


92 


ic=TPx/{2*ie-ia 

93 


IFIIC.EQ.Q} GO TO 52 

94 


IA=AND(IA*$Q07Fi 

95 


GO TO 53 

96 

52 

IA=ANQ(IA,$7FQQ) 

97 


IA= IA/S1O0 

98 

53 

IF (IPX.GT.1S ) GO TO 41 

99 


IPX=IPX+1 

1Q0 


GO TO IPICNR 


C 

M ASTER CONTROL TABLE STORE AREA 


C 

. ITMASC IS PLACED IN IHASC 


c 

96 WORDS ARE KEPT IN CORE 


c 

PAGES OF 96 WORDS / SECTOR ARE ON DISK 


c 

ICPMC IS THE CURRENT PAGE IN CORE 

101 

60 

GO TO (64*63, 6 3* 6 3* 61 * 64*63,61) * I TM ASC (1 

102 

61 

1=1 

103 


GO TO 65 

10 4 

63 

■1=3 

105 


GO TO 65 

10 6 

64 

1 = 4 

107 


GO TO 65 

108 

65 

DO 66 I A= 1*1 

109 


IFI ICPMC*96-IHCX) 70-,69*69 

110 

69 

J=IHCX-96*(ICPHC-1S 

111 


IHASC ( JJ = ITHASG 1 1 A) 

112 


IMG X= I HC X + 1 

113 


IF (IHCX.LE. 480 Q i GO TO 66 

114 


I ERK= 6 

115 


GALL I ERROR 

116 

66 

CONTINUE 

117 


RETURN 


G 

WRITE OUT NEXT PAGE TO DISK 

118 

70 

CALL MCTDK 


C 

PARAMETERS FOR ABOVE 


G 

ICPMC, IHCX, IHASC 

119 


GO TO 69 

120 


END 


DATE: 08/19/99 TIME? 1644 


00100109 
00100110 
00100111 
00100112 
00100113 
OOIOOIIh 
00100115 
00100116 
00100117 
00100113 
00100119 
00100120 
00100121 
00100122 
00100123 
OG10012* 
00100125 
00100126 
00100127 
00100123 
0G1QD129 
00100130 
0013G131 
00100132 
00100133 
00100134 
00 10 Q 13 5 
00100136 
0010D137 
00100138 
00100139 
00100140 
00100141 
00100142 
00100143 
00100144 
00100145 


FTM 3.3R (OPT 


LPXC ) 


CONDEC 


PAGE 


4 



O 

O 

O 

O 

O 



DATE? 08/19/99 TIME: 16*4 

O 

O 

O 

O 

O 

O 

O 

o 
o 
c 
• o 
o 
o 
o 
o 
o 


FTN 3 » 3 B IQFT = LPXC) CONDEC PAGE 5 DATE* 08 / 19/99 TIME: 1644 


***** LIST OF SYMBOLS ***** 


CONSTANTS : 


VALUE ADDRESS 


000 A 

1 1 Q ) 

0012 

0 0 5 0 

1 96 ) 

0017 

0 07 F 

(12 7 ) 

0015 

12 C 0 

( 4800 ) 

0019 

2020 

( 8224 ) 

GOOD 

2 A 4 3 

f 10 81 9 ? 

0 0 0 1 

2 A 44 

f 103209 

0002 

2 A 4 5 

( 10821 ) 

0 00 3 

2 A 4 9 

( 10825 ) 

000 4 

2 A 4 C 

( 10 828 ) 

0 00 5 

2 A 4 F 

( 10 831 ) 

000 6 

2 A 52 

( 10834 ) 

0 00 7 

2 A 53 

(1083 5 ) 

0 00 8 

2 C 42 

( 1 1 33 0 S 

OGQF 

2040 

1 11341 ) 

0010 

7 FQ D 

( 32512 ) 

0 Q 1 6 

7 FFF 

(32 76 7 ) 

0013 


REFERENCED BY STATEMENT NB l 

83 

109,110 

94 

113 

43 

9 

10 
11 
12 

13 

14 

15 

16 

47 

48 
96 

84 


VARIABLES i 


NAME 

TYPE 

ADDRESS 

AND 

INTR, FN, 

7 FFF 


I 

I NT EG FR 

aao 9 


IA 

INTEGER 

0 0 0 E 


18 

INTEGER 

0014 


I 8 F 

INTEGER 

GGQC 

c 

IBTM 

INTEGER. 

0 0 D 8 

c 

I BU NIT 

INTEGER 

00 D 6 

c 

IC 

INTEGER 

0 0 Q 0 


I C PMC 

INTEGER 

0 035 

c 

IQCTR 

INTEGER 

OODA 

c 

IENTRY 

INTEGER 

0 OOC 


IERR 

INTEGER 

OOCB 

c 

IFATAL 

INTEGER 

0004 

c 

IFILE 

INTEGER 

0 009 

c 

IF X 

INTEGER 

0094 

0 

IMASC 

INTEGER 

0 057 

c 

IMCX 

INTEGER 

0056 

c 

IMF 

INTEGER 

068 8 

c 

INODE 

INTEGER 

0 00 1 

c 

IMUNIT 

INTEGER 

0 OD 7 

c 

I M V A 

INTEGER 

oacc 

c 

I MV 8 

INTEGER 

0 OCD 

c 


REFERENCED BY STATEMENT NB 


94,96 

36,3 7 , 65 , 66, 68 , 69 , 75 , 76 , 78 , 102,104 ,106 ,108 

46 , 46 , 4 7 , 48 , 49 , 51 , 59 , 63 , 70 , 71 , 72 , 74 , 78 , 81 , 83 , 91 , 94 , 96 , 97 , 108 , 111 
90 , 90 , 91,92 
1 
1 
1 

7 , 8 , 20 , 22 , 24 , 26 , 28 , 30 , 32 , 34 , 41 , 42, 50 , 88 , 92,93 
1 , 109,110 
1 


39 , 40 , 86,87 
1 , 17 , 53,114 
1 
1 
1 

1,111 

1 , 109 , 110 , 112,113 
1 
1 
1 
1 
1 



FT N 3,: 

3 B TQPT = LPXC) 


CONDEC PAGE 6 DATE T 08/19/99 

TIME’! 1644 

□ 

G 







I M V C 

INTEGER 

00GE 

C 

1 




I MV 0 

INTEGER 

OOCF 

c 

1 



O 

INUM 

INTEGER 

Q 0 1 1 


59 ,60, 64 , 63, 83 , 84 


o 

INUNIT 

INTEGFR 

0 OD 8 

c 

1 



IOBUF 

INTEGER 

0 00 3 

c 

1, 7,43,47,48,91 




IOCT'R 

INTEGER 

0064 

c 

1,43 



O . 

IPASS 

INTEGER 

QC9 5 

c 

1 


o 

IP8 

INTEGER 

0002 

c 

1 



IPICNR 

INTEGER 

0 00 A 


37 ,38,56 , 61,79 ,100 




IPH 

INTEGER 

0003 

c 

1 



o 

IPX 

INTEGER 

0 0 0 B 


38,3 9,88 ,89,90 ,92,98,99 


o 

IROFLG 

INTEGER 

0 00 0 

c 

1 



ISCR 

INTEGER 

0 000 

c 

1 




ISECT 

INTEGER 

0001 

c 

1 



o 

ISOOEV 

INTEGER 

0065 

G 

1 


o 

IT 

INTEGER 

000 3 

c 

7,9,10,11,12,13,14,15,16 



ITNASC 

INTEGER 

0 0 G 7 

c 

1,37,41, 50 ,51,66,68,73,76,78,101,111 




IUNIT 

INTEGER 

3002 

c 

1 



o 

J 

INTEGER 

0018 


110, 110, ill 


o 


EXTERNALS : 






o 







o 


NAME 

TYPE 

ADDRESS 

REFERENCED BY STATEMENT NB '• 



O ; 

IERROR 

SUBROUTINE 

0191 


17,54, 115 


C) 

MG TDK 

SUBROUTINE 

0 197 


118 


O 

LABELED 

STATEMENTS 

* 

* 




o 

LAPEL 


ADDRESS 

REFERENCED BY STATEMENT N8 • 


o 

O 

1 


3 D44 


13,20 



2 


0047 


12,2 2 




3 


0 04 A 


10,24 



O 

4 


0 04D 


15,26 


o 

5 


0050 


9,28 



6 


0 05 3 


16,30 




7 


0056 


14,32 



O 

8 


005 9 


11,34 


o 

10 


005C 


20,23, 25,27,29,31,33,35,36 



11 


0 05 E 


36,37 




20 


0 07 F 


42 ,42,43 



O 

21 


0 0 8 D 


43 ,71 


' o 

30 


0 0 A F 


41,42,52 ,56 



31 


0 OB 4 


56,58 




32 


OfiBF 


60,63 



o 

33 


010E 


63 , 8 3 


o 

34 


OODE 


64,70 



35 


0 002 


64,57 




36 


0 0D7 


66,68 



o 






o 


o 


o 


o 



FT N 3.33 IQPT = 

LPXC1 

o 

37 

0GFC 


38 

0101 

o 

39 

0 D B 8 

40 

0 08 F 


41 

0 0 A 8 


50 

011 A 

o 

51 

0129 

52 

0142 
01'- 8 


53 


60 

0150 

o 

61 

016 2 

63 

0166 


64 

0169 


65 

0 16 C 

o 

66 

0192 

69 

0 17 C 


70 

0196 


310 

0109 

o 

311 

0 0 B 8 

CON DEC 

0 19 C 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


CONDEC PAGE 7 


74.77 

76.78 

59 ,70 
42,46 

43.49.53.59.72.73.81.84.98 
56,62,80 ,86 

86,90 

93,96 

94.98 

43,45,69,82,101 
101,101, 102 
101,101,104 
101,101, 106 
102, 10 5, 107,108 
108,113, 116 
109,109,110,119 
109, 118 
78,81 

60 ,85 
1 


DATE: 08/19/99 


TIME: 1644 


O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 




TIHE'J 164 4 


00200QQ1 
11000200002 
00200003 
0020 0 OOh 
00200005 
00200006 
00200007 
00200008 
00200009 
00200010 
00200011 
00200012 
00200013 
00200014 
00200015 
OD20QQ16 
00200017 
00200018 
00200019 
00200020 
0920 0 021 
00200 022 
00200023 
00200024 
00200 025 
00200026 
00200027 
0020 0 028 
00200029 
0 D2 0 0 030 
00200031 
00200032 
00200033 
00200034 
00200035 
0020 G 036 
00200037 
00200038 
. 00200039 

00200040 
00200041 
00200042 
00200043 
00200044 
OG 20 0 0 45 
00200046 
00200047 
00200048 
00200049 
00200050 
OG 20 0 0 51 
00200052 
00200 053 
00200054 


O 

o 

O 

n 

■w'' 

O 

O 

o 

o 

o 

o 

o 

o 

o 


o 




FTN 3.3B 

(9PT = 

LPXC) OR DERM PAGE 2 DATE; 08/19/99 

o 

43 


IHCX= IMCX-i 


44 


ITMASCX4)=8 

o 

45 


DO 40 J=l,4 

46 


I=( IMCX-i )/96+l 


47 


ASSIGN 41 TO IRET 


48 


IF ( I- ICPMC? 30,41,30 

o 

49 

41 

IMASC ( IMCX)=ITMASC( JJ 

50 

40 

IMCX= IMCX + i 


51 


GO TO 25 



C 

CHECK ORDER IF DONE 

o 

52 

43 

ICPSN=ITMASCI3> 

53 


GO TO 44 


54 

16 

IFf ITMASCll ).NE.2.AND.ITHASC(il .NE.3. AND, IT HA SC 1 1 1 . NE .4 . AND . 


54 


*ITMASCfl) .NE.7) GO TO 17 

o 

56 


IF( TTMASC (I). EQ.7) GO TO 43 

56 


ICPSN=ITMASCC2) 


57 

44 

CONTINUE 


58 


IF1 ICPSN.LE. ICSORT) GO TO 17 

o 

59 


ISA V8=IMCX 

60 

C 

ROOM MUST BE MADE IN MIDDLE OF TABLE FOR THIS ENRRY 
M=I SA VA-1 



61 


DO 21 K= M , I S A V 8 » - 1 

o 

62 


I=IK-4J/96 + .l 

63 


ASSIGN 22 TO IRET 


64 


I F 1 1 - ICPMC 130,22,30 


65 

30 

ICPMC-I 

o 

66 


CALL G FTP AG 

67 


GO TO IRET 


6 8 

22 

ITMCX=(K-3)- (IC'PMC- 11*96 


69 


J= T MASC ( I TMCX ) 

o 

70 


1=1 K- ii/9 6-H 

71 


ASSIGN 23 TO IRET 


72 


IFd-ICPMC) 30,23,30 


73 

23 

ITMCX=K-<ICPMC-1I*96 

o 

74 


IMASC (ITMCX) = J 

75 


CALL MCTQK 


76 


ICPMC =ICPMC-i 



G 

PARAMETERS ICPMC , IMASC , IMCX 

0 

7 7 

21 

CONTINUE 

78 


DO 25 L= 1 , 3 


79 


ASSIGN 24 TO IR FT 


80 


K=ISA VB-4+L 

o 

81 


1= i K-l 1/96+1 

82 


I. F(I-ICPMC) 30,24,30 


83 

24 

ITMCXfK- f ICPMC-1 ) *9 6 


8 4 


IMA SC C ITMOX) = I T T 1 L ) 

o 

6 5 

25 

CALL MCFBK 

86 


ICPMC=ICPMC-1 



C 

STORE THIS ENTRT ON MASS STORAGE 


87 


I MC X= ISA A 

o 

88 


ICPSN=IS AVC 

89 


GO TO 51 


90 

50 

ICPSN= ICSORT 


91 


ASSIGN 1 TO JRET 


o 


TIME; 1644 


00200 055 
00200056 
00200057 
00200 053 
00200059 
00200060 
00200061 
00200062 
00200 063 
00200064 
00200 065 
00 20 0 06 6 
00200067 
00200068 
00200069 
00200070 
00200071 
00200 072 
00200073 
00200074 
00200075 
00200076 
0 0 20 GO 77 
00200078 
0320 0 079 
00200080 
00200 G 81 
00200082 
00230083 
00200 084 
00 20 G 0 8 5 
00200086 
00200087 
00200083 
00200089 
00200090 
00290091 
00200092 
00200093 
DD2G0094 
00200095 
00200 096 
0 0 20 0 0 9? 
08200098 
0023 G 0 99 
00230100 
00200101 
00200102 
00200103 
0020 010*+ 
OG 200105 
00200106 
00200107 
00200108 


O 

O 

O 

O 

o 

o 

o 

o 

© 

© 

o 

o 

o 

o 

o 


o 


o 



FTM 3.3B 

(OPT = 

LPXC) ORQERM PAGE 3 DATE: 08/19799 

TIME'S 1644 


o 

92 


GO TO 52 

00200109 

O 


93 

51 

GO TO 1 

00200110 


o 

94 

52 

ITMCX=IMCX 

00200111 

■ O 

95 


IMCX= IHCX-i 

00200112 


96 


1= ( IM GX-1 ) /96 + 1 

00200113 



97 


ASSIGN 53 TO IRET 

00200114 


o 

98 


IFII-ICPMC) 30, 53,30 

00200115 

O 

99 

53 

I=TMCX- (ICPMC-1) *9 6 

00200115 


IDO 


IMASC (13 = ITMASCd ) 

00200117 



101 


CALL MCTDK 

00200118 


o 

102 


ICPMC=ICPMC-i 

00200119 

O 

103 


IMCX= ITMCX 

002 QQ 120 


104 


GO TO JRET 

00230121 




C 

*¥*********»*** 

*•*00200 122 


o 


C 

CHECK ORDER ROUTINE 

00200123 

c 


c 

¥*** ** ¥* ******* ^********QQ2 3 0124 


105 

100 

ITT 113 = 0 

00200125 




c 

ERROR FLAG 

00200126 


o 

10 6 


I MC X= 1 

00200127 

o 

1 G 7 


IL= 0 

OC200128 


108 


ILX=1 

00200129 



109 


ILN = 0 

00 20 0 130 


o 

110 


IC=0 

00200131 

: O 

111 


ICX = 1 

00200132 


112 


ICN = 0 

00200133 



113 


ICP HC= 1 

00200134 


o 

114 


CALL GETPAG 

00200135 

O 

115 


CALL REDCON 

00290136 


c 

GET NEXT CONTROL STATEMENT 

00200137 



116 


IC= IT MAS C ! 1 ) 

00200138 


o 

117 


IF'(IC»NE»?.AND»IC*NE»3»AND«IC*NE»4 3 GO TO 60 

0020 0139 

O 

118 


ICX=ITMASC (23 

00200140 


119 

60 

I L= IC 

00200141 



120 


I LX=I CX 

00200 142 


o 

121 


ILN=ICN 

00200143 

' O 

122 

58 

CALL REDCON 

00200144 


123 


IFIIFHASC {13.EQ.83 RETURN 

00200145 



124 


GO TO 80 

00200146 


o 

c 


00230147 

O 


c 


00200148 


125 

81 

IF{IGX.GE.ILX3 GO TO 61 

00200149 



126 


IFUIC.EQ. 2. OR. IC. EQ.3.0R .IC. FQ.4) . AND. 

00200150 


o 

126 


MIL.EQ.2.0R.IL.EQ.3.0R.IL.EQ.4M GO TO 59 

00200151 

O 

127 


GO TO 58 

00200152 


128 

59 

IF(ITTil3.NE. 0) GO TO 58 

00200153 



129 


I ERR= 5 

0020815-4 


o 

13 0 


CALL TERROR 

00200155 

o 

131 


ITT (1 3=1 

00200156 


132 


GO TO 60 

00200157 



133 

61 

IFdC.NE.2. AND.IC.NE.3.AND.IC.NE.4. AND. 

00200158 


o : 

133 

C 

*IL.NE.2.AND.IL.N£.3. AND.IL.NE.4 3 GO TO 58 

00200159 

00200160 

; O 


134 


IF{ IL .EO. 4.AND. IQ.EQ.2) GO TO 62 

00200161 



135 


GO TO 6? 

00200162 


o 





O 


o 


o 
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C) 

136 

6? 

IFIILX.LE.ICX) GO TO 64 





00200163 

>- — - i 

i f 
•■w . 


j 37 


GO TO 59 





00200164 



136 

63 

IFI IL.EGU ?• AND. ID. E G.43 GO 

TO 65 




00200165 

. . o 


139 


GO TO 64 





00200165 


140 

65 

IF(ILX.LT.ICX3 GO TO 64 





00200167 



141 


GO TO 59 





00200168 


O 


c 






00200169 

o 


C 






00200170 


142 

64 

IFIIL.EQ.3.AND.IG.EQ.4) GO 

TO 66 




00200171 



1 43 


IFTIL.EQ.4.AND.IC.EQ.3) GO 

TO 67 




00200172 


O 

144 

c 

GO TO 68 





00200173 

00200174 

o 



C 






00200175 • - • 



145 

66 

IFdCX.LE.ILM.3R.ICX.LE.ILN) GO TO 59 




00200176 


O 

146 


GO TO 68 





00200177 

o 

147 

67 

IFdCM.LE.ILX.OR.ICN.LE.IlX 

: . AND. ICN . NE . 0 3 

GO 

TO 

59 

00200178 



C 






0020 0 179 




C 






002 00 180 



148 

68 

IFdL.EQ.2.AND. IC.EQ.3 J GO 

TO 69 




00200181 

o 

'J 

149 


IF1IL.EQ.3.AND.IC.EQ.2) GO 

TO 70 




00200182 


150 


, GO TO 60 





00200183 




G 






00200184 


r\ 

151 

69 

IFI ICM.LE.ILX.OR. ICN.LE.ILX 

: . AND .ICN. N£ ,01 

GO 

TO 

59 

00200185 

o 


152 


GO TO 60 





00200186 



153 

70 

IFIICX.LE.ILM.0R.ICX.LT.ILN3 GO TO 59 




00200187 



154 


GO TO 60 





00200183 


O 


C 






OO 20 D 189 

o 


C 






00200 190 


155 

80 

IC= ITMASC 51 ) 





00200191 



156 


ICX=ITMA SC 1 2) 





00200192 



157 


IFCITMASCI3I) 83,34.84 





00200193 

o 

KJ 

158 

83 

ICN=- ITM A SC 53 ) 





00200194 


159 


GO TO 85 





00200195 



160 

84 

ICN=I TMASC (3) 





00200196 


o 

161 

85 

c 

■ CONTI NUE 





00200197 

00200198 

o 


162 


IFtIL.EQ.33 GO TO 71 





00200199 



163 


IFIIGX.GT.ILX> GO TO 60 





002 Q 0 20 0 


o 

164 

c 

GO TO 81 





00200201 
: 00200202 

o 


165 

71 

IFtICX.LT.ILN3 GO TO 81 





00200203 



16 6 


IFtIC.EQ.4) GO TO 81 





00200204 


o 

167 


GO TO 60 





00208205 

o 

168 


END 





00200206 


o 

o 

o 

o 

o 

o 

o 

o 


FTM 3.3B (OPT 


LPXC) 


OROERM 


PAGE 


5 


o 

o 

COMMON 

BLANK $QC96 ( 3222) 

O 

PROGRAM LENGTH $0296 ( 667) 

EXTERNALS 

^ GETPAG REOCON IERROR MCTDK 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 


DATE! 08 / 19/99 


TIME! 1644 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


G 



FTN 3. 

3‘B (OPT = 

LPXC ) 


ORDERM PAGE 6 DATES 08/19/99 TIMES 1644 


o 

# 2* * * 

LIST 

OF S’ 

Y H 

B 0 L S ***** 

O 

o 

CONSTANTS : 




■ O 

o 

VALUE 


ADDRESS 

REFERENCED BY STATEMENT NB i 

O 

0060 

! 96) 

GOOD 


46*52,68,70, 73, 81, 83 ,96,99 

o 

VARIABLES .* 




O 

o 

NAME 

TYPE 

ADDRESS 

REFERENCED BY STATEMENT NB S 

' O 


I 

INTEGER 

000 B 


38,40*46 ,48, 6 2 ,64,65,70,72, 81* 82, 9 6,98 *99* 100 


IBF 

INTEGER 

0 0 DC 

C 

1 


o 

IBTM 

INTEGER 

0 QQB 

C 

1 

o 

I6UNIT 

INTEGER 

00D6 

c 

1 


in 

INTEGER 

0016 


10 9,110, 1 16,117,119, 126,133,134,13 8,14 2,143,1-48, 149, 15 5,166 



ICBIN 

INTEGER 

0 00 6 


10 ,11, 20 ,23,29 ,30 


o 

IGH 

INTEGER 

0 00 0 


1,147,151 

o 

IGN 

INTEGER 

0017 


111,112,121,147,151,158,160 


ICPMC 

INTEGER 

0 005 

c 

1, 13,48, 64,65,68,72, 73,76, 82,83,86 ,98,99,102,113 



ICPSN 

INTEGER 

0 CD 5 


1,9, 34,35,37,52,56,58,88,90 


o 

ICS OR T 

INTEGER 

000 7 


11 ,12, 26,32,34,58, 90 

o 

I OX 

INTEGER 

0 00 0 


1,111,11 8,120,125,136,140,145,153, 156, 163, 165 


IOC TR 

INTEGER 

0 00 A 

c 

1 



IE RR 

INTEGER 

OOCB 

c 

1, 21 ,129 


o 

IFATAL 

INTEGER 

OGQ 4 

c 

1 

o 

IFI LE 

INTEGER 

0009 

c 

1 


IFX 

INTEGER 

QC9 4 

c 

1 



IL 

INTEGER 

0014 


i a 6 , i 0 7 , 1 1 9 , 1 2 6 , 1 3 3 , 1 3 4 , 1 3 8 , 1 4 2 , 1 4 3 , 1 4 8 , 1 4 9 , i 6 2 


o 

ILM 

INTEGER 

0 00 1 


1,146,153 

' Q 

ILN 

INTEGER 

0 01.5 


108,109, 121,145,153,165 


I L X 

INTEGER 

000 1 


1,108,120, 125, 136, 140,147, 151, 163 



IMA SC 

INTEGER 

006 7 


1,49,69, 74, 84, 300 


o 

IMDX 

INTEGER 

0 0 6 6 

c 

1,10,36,38 , 4 3, 46 , 49 ,50 ,59 ,87 ,94, 95 ,96, 69, 10-3, 106 

O 

IMF 

INTEGER 

0688 

c 

1 


IMODE 

INTEGER 

0 00 1 

c 

1 



IMUNIT 

INTEGER 

0 0 D 7 

c 

1 


o 

IM V A 

INTEGER 

GQCC 

c 

1 

O 

IMtfB 

■ INTEGER 

OOCB 

c 

1 


IMWC 

INTEGER 

OOCE 

c 

1 

' 


IMVD 

INTEGER 

aocF 

c 

1 


o 

INUNIT 

INTEGER 

0 GO 8 

c 

1 

o 

108 UF 

INTEGER 

000 3 

c 

1 


IOCTR 

INTEGER 

0 06 4 

c 

1 



IPASS 

INTEGER 

0C9 5 

c 

1 


o 

IPB 

INTEGER 

0 00 2 

c 

1 

■ o 

I PM 

INTEGER 

0003 

c 

1 


IROFLG 

INTEGER 

0 00 0 

c 

1 



IRET 

INTEGER 

OGOE 


46,63,67,71,79,97 


o 






o 

o 






■ o 


o 

FTN 3.38 COPT = LPXC5 



ISAVA 

INTEGER 

00G A 


ISA VB 

INTEGER 

000 F 

o 

ISAVC 

INTEGER 

0 00 9 

ISC R 

INTEGER 

0GDG C 


ISECT 

INTEGER 

00D1 C 


ISODE V 

INTEGFR 

0055 C 

o 

ITM ASC 

INTEGER 

0 DC 7 C 

ITfICX 

INTEGER 

0012 


ITT 

INTEGER 

000 2 


IUNIT 

INTEGER 

0 00 ? C 

o ■ 

J 

INTEGER 

0 00 G 

JRFT 

INTEGER 

0 0 C 8 


K 

INTEGER 

0011 


L 

INTEGFR 

0013 

o 

M 

INTEGER 

0010 


EXTERNALS T 


o 

NAME 

TYPE 

ADDRESS 

o 

GETPAG 

SUBROUTINE 

0 1A 1 

IERROR 

SUBROUTINE 

0 IE 1 


MGFDK 

SUBROUTINE 

one 


REDCON 

SUBROUTINE 

0 1A 3 

O ; 

LABELED 

STATEMENTS i 


o 

LABEL 


ADDRESS 


1 


002 4 

O 1 

11 


0 042 

12 


0 0 55 


13 


0 04A 


14 


0 05 E 

o 

15 


0 07 E 

16 


0 039 


17 


0088 


18 


0 05 2 

o 

19 


0065 

21 


0121 


22 


0 OF 4 


23 


Oil 0 

o 

24 


013 A 

25 


0145 


30 


0 0 F 0 


40 


0 0 A D 

o 

41 


G0A9 

43 


0 085 


44 


QGCD 


50 


0156 


o 


o 
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35,36,60 , 87 
58,59,61 ,80 
34,35, 88 
1 
1 

1,15, 17, 18, 19,23, 26, 28, 30, 31, 32, 40, 42, 4%, 49, 52, 54, 55, 56, 10 0, 116, 118, 12 3, 155,15 6, 15 7,158,160 
68,68,69,73, 74, .83, 84,94,103 
1,40,8 4, 105,128,131 
1 

44,49,69 ,74 
24,91,104 

60,62,68,70,73,80,31,83 

78,80,84 

59 ,50 ,61 


REFERENCED BY STATEMENT NB 2 

13,66, 114 
21,130 
74,85, 101 
13,41, 115,122 


REFERENCED BY STATEMENT NB : 

13,17,91 ,93 
19,20 
19,19,28 
20,23 

18.24.28.31 
38,40 

42.54 
49,54,58 

24.31 
26,33 
60,77 
62,64, 68 
70 ,7 2,73 
78,82,83 
50,78,85 

48, 48, 64, 65, 72, 82, 9 8 

44,50 

46,48,49 

50.55 
52,57 
34,90 


O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 


FTN 3.33 (OPT = 

LPXCJ 

ORDERM PAGE 8 

51 

0 15 E 

88,93 

52 

0160 

24,92,94 

5 3 

0174 

96,98,99 

58 

0188 

121,127,128,133 „ _ 

59 

01D9 

126,128, 137,141,145,147,151,1^3 

60 

01B2 

117,119, 132, 150,152,154,163,167 

61 

Q1E5 

125, 133 

62 

0202 

134,136 

63 

020 8 

134, 138 

64 

0214 

136,139,140,142 

65 

0 20F 

138,140 

66 

0221 

142,145 

67 

0 22 E 

143,147 

68 

G23C 

143,146, 148 

69 

0248 

148,151 

70 

0258 

149,153 

71 

0287 

162, 165 

eo 

0 26 A 

123,155 

81 

QiCQ 

123, 164, 165,166 

83 

0275 

157,158 

QU 

0 27 9 

157, 157, 160 

8 5 

0 27 B 

158,161 

100 

0188 

16,105 

OROERM 

0296 

1 


o 


o 

o 


o 

o 


o 

o 

o 

o 


DATE? 08/19/99 


TIME? 1644 


O 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


G 0 0 1 
00 0 2 
0 0 0 3 
0 0 0 4 


0 0 0 6 


0 0 0 7 


000 3 


00 3 9 


0010 


0011 
001 2 

0 G 1 3 
0014 

001 5 
0016 
0 017 
0013 
0019 
00 20 
0021 
0022 

00 2 3 
0 0 2 4 
0025 


TREAD 


PAGE 


DATE: 08/19/99 


■* 

* 


NAM TREAD DECK-ID 003 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUM MARY-11000300001 
00300002 
00300303 
00300304 


0 0 00 C 
0 0 0 1 C 
0 0 02 C 
00 03 C 
0 0 64 C 
0 0 65 C 
0 0 66 C 
0 0 67 C 
0 QC7 C 
OOCB C 
OOCC C 
0 0 CD C 
OOCE C 
SOCF C 
OODO C 
00D1 C 
00D2 C 
00D3 C 
0 0 04 C 
0 0 05 C 
0QD6 C 
QQD7 C 
0 0 08 C 
0 0 09 C 
OQDA C 
OODB C 
SO DC C 
0 6 B 8 C 
0 C 94 C 
0 C95 C 


0 0 22 
0023 
0 002 

0061 LEN 
DO 03 C 

POOOO 0000 CMODE 

PQ301 0300 IREAD 

PQ002 0 A 0 1 

POO 03 68 FC 

PG0G4 C 4 0 0 

P00G5 QQGO C 

PO 0 0 6 0 104 

PO 007 0 A 0 0 

P000 3 6400 

P 0 009 0 000 C 


COM IRDFLG,IMQOE,IUNIT ,IOBUF (97) ,IOCTR 

COM ISODEV , IMGX, IMASCC96) ,ITMASC (4) , I ’ERR 

COM IMVA,IMV8, IMVC, IliVD, ISCR , IS EOT , IPB ,IPM * I FAT AL 


COM ICPMC, I8U NIT, I MU NIT. INUNIT, I FI LE, I’DCTR 


COM IBTM,IBF(1500» ,IHF( 15001 ,IFX,IPASS 


ENT IREAD, IWRITE 
EXT LOG1A 
EQU ZEROI $22) 

EQU ONE BIT l $23) 
EQU LPMSK (2 I 
EQU LEN (97) 

EQU BFRCI08UF) 

NUM 0 

NUM 0 

ENA 1 

S I A* CMODE 

LOA* IRDFLG 

SAZ DOREAD 
ENA 0 
STA+ IRDFLG 


GENERAL READ-WRITE ROUTINE 


HAS READ ALREADY BEEN DONE 


00300006 
00 30 0 00 7 


00300008 


0030 0 009 


0030 0010 


0030 0 011 
00300012 
0030 0 013 
00300014 
00300015 
0030 0 016 
03300017 
0030 0 018 
00300019 
00300020 
00300021 
00300022 

00300023 

03300024 

03300025 


IRFAO PAGE 2 DATES 08/19/99 


0 026 

P000A 

1CF6 



JMP* 

UREA D) 

OUT IF READ FINISHED 

00 30 0 02 6 

00 27 

P 0 0 0 B 

COOO 


DOREAQ 

LD A 

= N$ 480 1 

READ REQUEST 

0030 0 027 


POOOC 

48 01 







0028 

POOOD 

6819 



STA* 

REQ 


OG3QOQ28 

00 29 

POOOE 

OA 61 



ENA 

LEN 


00300029 

0030 

POODF 

6 8 1 B 



ST A * 

UNIT4-1 


00300030 

00 31 

P0010 

0400 



LDA* 

IUNIT 


003CQ031 


POOH 

00 02 

C 






00 32 

P0012 

68 03 



STA* 

STATCD 


00300032 

0033 

P0013 

5 4F4 



NUN 

S54F4 

SEE IF UNIT IS CARD READER 

09300033 

003 4 

P 0 0 14 

46 0 D 



MUM 

$4600 


0030 0 034 

00 3 5 

P 0 01 5 

0 0 00 


STATCD 

NUM 

0 


00300035 

003 6 

P 0 01 6 

0 0 0 0 



NIJM 

0 


0030 0 036 

0037 

P 0 01 7 

0 8 14 



TRQ 

A 


00300037 

0038 

pooie 

A 0 0 0 



AND 

= N$ 3 8 0 0 


00300038 


P.GG19 

3800 







Q D 39 

P001A 

B 0 G 0 



FOR 

=N$ 1800 


00300039 


P 0 0 IB 

1800 







0040 

P0G1C 

0113 



SAN 

DOREQ 

NOT CARD READER CONTINUE AS USUAL 

OQ3QOQ4C 

0 0 41 

P001D 

8400 



A DD + 

IUNIT 

YES FORCE FROMATTFD BINARY READ 

00300041 


PO 01 E 

00 02 

c 






0042 

P 0 0 1 F 

1805 



JMP* 

REQ- 2 


00300042 

00 43 

P 00 20 

C 4 0 0 


DOREQ 

LOA* 

IUNIT 


00 3 Q Q 0 43 


P 0 021 

0 0 02 

c 






0044 

PG022 

8400 



ADD + 

IMOQE 


0030 0 044 


P 0 023 

0 0 01 

c 






0 0 4 5 

P 0 0 2 4 

68 05 



STA^ 

UNIT 


00300045 

0046 

PO 0 25 

54F4 



RTJ- 

I $ F 4 ) 


00300046 

00 47 

P0026 

0 0 00 


REQ 

NUM 

0 

REQUEST CODE 

00300047 

0 0 4 S 

P 0 027 

0 0 0 0 



NUM 

0 


00300048 

0 0 49 

P0028 

00 00 


THRD 

NUM 

0 


00300049 

00 50 

PO 029 

0 0 0 0 


UNIT 

NUM 

D 


00300050 

0 05 1 

P002A 

00 00 



NUM 

0 


00300051 

0 0 5 2 

PO Q2B 

0 0 03 

c 

BFGN 

ADC 

8FR 


0030 Q052 

0 0 5 3 




* 




00300053 

0054 

P002C 

C8F8 


GHKTHR 

LD A'* 

THRO 


Q03Q 0054 

00 5 5 

P 0 0 2D 

0101 



SAZ 

DONE 


00300 Q55 

00 5 6 

P 0 02E 

1 8 FD 



JMP* 

CHKTHR 


00300056 

Q G 5 7 

P 0 0 2 F 

E3F9 


DONE 

LOO* 

UNIT 


00 30 a 057 

0 0 58 

P 0 03 0 

0 171 



SQM 

1 


00300058 

00 59 

P 0 031 

182F 



JMP* 

NOG HAN 

NOT MODE CHANGE 

00300059 

006 0 

P 0 032 

C 8 F 6 



LOA* 

UNIT 


00300060 

0 06 1 

P 0 0 3 3 

AO 00 



ANO- 

LPMSK-+1 1 

PICK UP LOGICAL UNIT 

00300061 

00 62 

POO 3 4 

6804 



STA* 

STATU 

PUT IN STATUS REQUEST 

0030 G 062 

0063 

P 0 03 5 

6 824 



ST A* 

0AGKU 

PUT IN BACK SPACE REQUEST ' 

0030 G 063 

00 6 4 

P0Q36 

54F4 



NUM 

$5 4F 4 

STATUS REQUEST 

00300064 

0 0 6 5 

P0037 

4 60 0 



NUM 

$4600 


00300065 

00 66 

P0Q38 

0 000 


STATU 

NUM 

0 

LOGICAL UNIT 

00300066 

0067 

P 0 039 

0 0 Q 0 



NUM 

0 


00300067 

0068 

PQ03A 

6824 



ST A * 

STATSV 

5A¥£ STATUS 

00300 068 

00 69 

PO 03B 

0 814 



TRQ 

A 


00300069 

007 0 

P0D3C 

a oo a 



AND 

= N$38 0 0 

PICK OFF UNIT TYPE 

00300070 


PO 030 

3800 








IREAD PAGE 3 DATEi 08/19/99 


0071 

PG 03 E 

BQ2E 



EOR- 

ONEBI If 11 

TEST FOR MAG TAPE 

00300071 

007 2 

PO 03F 

0101 



SAZ 

1 

YFS A TAPE DEVICE 

00300072 

0 G 73 

P0040 

1820 



JMP* 

NOCHAN 

MO MODE CHANGE POSSIBLE 

0030 0 073 

007 A 

PQ041 

C 8 ID 



L D A '* 

STATSV 


00300074 

0 C 7 5 

PO 0 42 

A 0 2E 



ANO- 

ONEBITH1 

TEST FOR EOF 

00300 07 5 

00 7 6 

P0043 

0101 



SAZ 

1 

NO NOT E-O-F FRY PARITY 

00300076 

0 Q 7 7 

PO 0 44 

1 8 1C 



JMP* 

NOCHAN 

YES E-O-F CONTINUE 

00300077 

007 B 

P 0 0 4 5 

C 8 19 



LDA* 

STATSV 


00300078 

0 2 79 

PO 046 

A 0 2B 



AND- 

ONE BI T* 8 

TEST FOR PARITY ERROR (MODE CHANGE) 

00300079 

0 0 8 0 

P 0 047 

0111 



SAN 

1 

YES MODE CHANGE NECESSARY 

00300080 

00 8 1 

P0048 

1813 



JMP* 

NOCHAN 

NO NOT A MODE CHANGE 

00300081 

00 3 2 

P 0 0 49 

C8DF 



LDA* 

UNIT 


00300082 

0 C 83 

P004A 

AQ2F 



ANQ- 

ON EBI 12 

PICK OFF OLD MODE 

0030008 3 

00 8 4 

P 0 0 48 

BO 2 F 



EQR- 

ONEBIT»-12 

CHANGE TO OPPOSITE MODE 

00300084 

00 8 5 

P Q 0 4 C 

6 40 0 



STA* 

I MODE 


003Q0085 


P 0 0 40 

0 0 01 

C 






GO 3 6 

P004E 

C8B1 


CKMOQ 

LDA* 

CMOOE 


00300086 

0 0 87 

P0G4F 

0 9FE 



IN A 

-1 


00300087 

0 0 88 

PO 05 0 

0132 



SAH 

EXIT 


0030 0 088 

0089 

P 0 0 5 1 

6 8 AE 



ST A* 

CMOOE 


00300089 

009 0 

PO 0 52 

1803 



JMP* 

BACKUP 


00300090 

0091 

PO 0 53 

54F4 


EXIT 

NUM 

$ 5 4 F 4 


00300091 

009 2 

POOS 4 

4 A 0 0 



NUN : 

S4AG0 


0030 0 092 

0 0 93 

PO 05 5 

54F4 


BACKUP 

NUM 

S54F4 

TAPE MOTION FOR BACK SPACE 

00300093 

009 4 

POO 56 

5C0Q 



NUM 

S5CQQ 


00300094 

009 5 

P fl 0 5 7 

0 0 0 0 



NUM 

0 


0030 0 095 

0096 

P0058 

0 00 0 


TRD 

NUH 

0 


00300 Q9o 

G 0 9 7 

PO 059 

QO CO 


BACKJ 

NUM 

0 

LOGICAL UNIT 

00300 097 

0G93 

P 0 05 A 

10 0 0 



NUM 

$ 10 0 0 

BACK SPACE 1 RECORD 

00 30 G 098 

00 99 

PO 05 B 

C8FC 


C TRD 

LDA* 

TRD 

HANG TILL DONE 

00300099 

010 0 

PD05C 

0102 



SAZ 

2 


0033 0 10 0 

0101 

PQ05Q 

1 8FD 



J HP* 

CTRD 


00300101 

G10 2 

PO 05E 

0 0 Q 0 


STATSV 

NUM 

0 

STATUS HOLDER 

00300102 

0 1 G 3 

P005F 

18 CO 



JMP* 

DORF.Q 


00 30 0 10 3 

010 4 




* 




0030 0104 

010 5 

P0G60 

C 40 0 


NOCHA N 

LDA + 

I UN IT 


00300105 


PQ 061 

00 02 

C 






01 Q 6 

PO 0 62 

68 03 



STA* 

STGARO 


00300106 

010 7 

PG063 

5 4 F 4 



NUM 

354F4 


00300107 

0108 

PQQ64 

4600 



NUM 

$4600 


00300 108 

010 9 

PO 065 

0 000 


STCARD 

NUH 

0 


0 0 30 010 9 

0110 

P0C66 

0 000 



NUM 

0 


0030011 0 

0111 

PO 067 

0814 



TRQ 

A 


00300111 

0112 

P 0 0 6 8 

A Q Q 0 



AND 

= N$ 3 8 0 0 


00300112 


PO 0 69 

38 00 







0113 

P006A 

8000 



FOR 

= N$ 18 0 0 


00300113 


P006B 

1800 







0114 

P006C 

0101 



SAZ 

1 


00300114 

0115 

PO 060 

1816 



JHP* 

NOMODE 


00300 11 5 

0116 

P0 06E 

nn HC C 

C 4 0 0 

n n n Q 

r ' 


LDA + 

IUNIT 


0030011 6 

0117 

PU Dor 
PG 07 0 

o o u d 
QFC 4 

L 


ALS 

4 

IS LU CORE LOCATION OR ACTUAL UNIT NUMB 

00300 11 7 

0118 

PO 071 

0125 



SAP 

ACUMIT 

NO ACTUAL 'LU NUMBER 

0030 0 11 8 





I READ 



PAGE 4 



DATE: 

08/19/99 

0119 

PA 0 72 

QFC3 



ALS 

3 

YES 




0120 

PO 073 

OF 48 



ARS 

8 





0121 

PO 074 

0822 



TRA 

Q 





0122 

P 0 0 7 5 

E 6 2 2 



LDQ- 

(ZERO') , Q 





0123 

P 0 0 76 

1803 



JMP* 

AGUNIT+2 





0124 

P0 077 

E 4 00 

ACUNIT 

LDQ + 

IUNIT 






P 0 0 78 

0 0 02 

C 








012 5 

P0079 

E6 00 

X 


LDQ+ 

L0G1A,Q 

PICK 

UP 

PHYSTAB 

ADR 


PO 0 7 A 

7FFF 

X 








0126 

P007B 

C 2 0 9 



LDA- 

9,Q 

PICK 

UP 

STATUS 

WORD 

0127 

P007C 

A 0 26 



AND- 

$26 





0128 

P007D 

0102 



SAZ 

LDBIN 





0129 

P0Q7E 

C02F 



LOA- 

ONEBI T+ 12 





0 13 C 

P0 07F 

1802 



JMP* 

LOBIN+1 





0131 

P 0 08 0 

0 AOO 

LDBIN 

ENA 

0 





0132 

P 0 081 

6400 



STA + 

I MODE 






P 0 0 8 2 

00 01 

C 








0133 

PO 083 

C 4 0 D 

NOMGDE 

LDA + 

IOBUF +96 






PO 084 

0 0 63 

C 








0134 

PO 0 85 

98A5 



SUB* 

BEGN 





013 5 

P 0 0 8 6 

6400 



STA + 

I OCT R 






PO 087 

0 064 

C 








0136 

P 0 0 88 

1COO 



JMP 

(IREAD) 

RETURN 

TO 

CALLER 



P 0 0 89 

FF 77 









0137 



* 








0138 

PO 0 8 A 

0 0 0 0 

IWRITE 

MU M 

0 





0139 

P 0 0 SB 

C8FE 



LQA* 

IWRITE 





0140 

P008C 

6800 



STA 

TREAD 






POO 80 

F F 73 









0141 

P008E 

CO DO 



LDA 

= N$ 4C0 1 






P008F 

4C01 









0142 

PO 090 

6895 



STA* 

RED 





0143 

P 0 091 

C 4 0 0 



LOA + 

IOCTR 






PO 092 

0 0 64 

G 








0144 

P 0 0 93 

68 96 



STA* 

UNITH 





014 5 

PO 0 94 

1800 



JMP 

DOREQ 






PO 095 

FF8A 









0146 





END 






PGM = 

0096 

< 

150 ) 

COM = 3C96 { 3222) 

DAT = 

000 0 c 

0) 


0*3300119 
00300 120 
00300121 
00300122 
00300123 
0030 0124 

00300125 

00300126 

00300127 

00300128 

00300129 

00300130 

00300131 

00300132 

00300133 

00300134 
0030 013 5 

00300136 

00300137 

00300138 

00300139 

00300140 

00300141 

00300 142 
00300143 

03300144 

0G3GQ145 

003Q0146 


IREAD 


PAGE 


5 


DATE? 08/19/99 


EQUIVALENCES 


DEF . LINE 
0 000 

NAME 

I 

VALUE 

00FF 

{00 0255) 

REFERENCED AT 

LINE NUMBER 

G013 

ZERO 

QO 22 

(0 000345 

0122 


0 014 

ONE8IT 

0023 

4 00 00355 

0071, 0075, 

0079, 0083, 0084, 0129 

0 015 

LPMSK 

0 002 

1000002) 

0 061 


0 016 

LFN 

0061 

( 0000975 

0029 






IREAD 


PAGE 6 


DATE*. 08/19/99 


n 


o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 


s y m b o l s 


DEF .LINE 

NAME 

ADORESS 

0 00 6 

IRDFLG 

00 Q 0 

0 0 0 6 

IMODE 

0001 

0 0 0 6 

IUNIT 

000 2 

0 0 0 6 

IOBUF 

00 03 

0 0 0 6 

IOGTR 

006 4 

0 0 0 7 

ISOQEV 

0065 

0 0 07 

IMCX 

0066 

0 0 07 

IMASC 

0067 

00 07 

ITMASC 

0 0 07 

0007 

I ERR 

0GCB 

00 08 

IMVA 

oocc 

0 0 08 

I MV E 

00CD 

0 0 0 8 

IMVC 

0QCE 

0 0 0 8 

IMVD 

0 0 OF 

0008 

ISCR 

OODO 

0 008 

ISECT 

0001 

0 0 08 

IPB 

CODE 

0 0 0 8 

I PM 

0 0 D 3 

GO 08 

IFATAL 

Q0D 4 

0 0 09 

ICPMC 

0 0D 5 

0 0 0 9 

I8UNIT 

0006 

0 0 0 9 

IMUNIT 

0 0 0 7 

0 0 09 

I HU NIT 

G 0 D 8 

0 0 09 

IFILE 

0009 

0 0 09 

IDCTR 

00DA 

0010 

IBTM 

0 0 D B 

0 010 

IBF 

00DC 

0010 

IMF 

06B 8 

G 010 

I F X 

GC94 

0010 

IPASS 

0 C 9 5 

0011 

IREAD 

0 001 

G Oil 

IWRITE 

0 08A 

0017 

8FR 

0003 

0018 

GMODE 

0000 

0 027 

OOREAQ 

00 0 B 

0 9 35 

STATCD 

0015 

0 043 

DOREQ 

0020 

0 0 47 

R'EQ 

00 2 6 

0 0 49 

THRO 

9028 

0 050 

UNIT 

0029 

0 0 52 

BEGN 

0 0 2 B 


o 

o 


o 

o 


o 


o 

o 


0 011, 

0 026, 

0136, 

0 140 

o 

0011, 

0 0 52 

013 9 




0 021, 
0 023 

0086, 

0 0 89 


o 

0032 

0 0 4 0, 

0 10 3, 

0 14 5 



0 0 2 8, 
0 054 

3 04?, 

0142 

0060, 0082, 0144 

o 

0 030, 
0134 

0045, 

0057, 




o 


0022 , 
0 Q 44, 
0031, 
0017, 
0135, 


0 025 
008 5, 
0041, 
0133 
0143 


0132 

0043, 


0105, 0116, 0124 


o 


o 


o 


O 



o 

o 

o 

o 

o 



IREAD 


PAGE 7 



DATE;-: 08/19/99 

005 4 

CHKTHR 

0 0 2C 

0 056 




0 0 5 7 

OONE 

0D2F 

0 0 55 




0 0 6 6 

STATU 

0038 

0062 




G 08 6 

CKHOD 

0 04E 





0 091 

EXIT 

00 53 

0 088 




0093 

BACKUP 

005 5 

0 0 90 




0 0 9 6 

TRQ 

0 05 8 

0 0 99 




0097 

BACKU 

0059 

0 0 63 




0 099 

C TRD 

0 05 B 

0 101 




0102 

STATSV 

005E 

0 0 68, 

0074, 

0 078 


010 5 

NOCHAN 

0 06 0 

00 59, 

0073, 

0077, 

0081 

0109 

STCARO 

0 06 5 

0106 




0124 

ACUNIT 

0077 

0118 , 

0123 



0131 

LOBIN 

0080 

0128, 

0130 



0133 

NO MODE 

0 083 

0115 





f 

o 

o 

o 


'-V 


c 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 



i 

o 

IREAD 

PAGE 8 DATE: 08/19/99 

■ o 

o 

EXTERNALS 


o 

o 

DEF . LINE NAME VALUE 

REFERENCED AT LINE NUMBER 

o 

001? LOG1A 0 0 7 A 

0125 

o 

o 

o 



o 

o 



Q 

o 



O 

o 



O 

o 



O 

o 



o 

o 



o 

o 



' o 

o 



• o 

o 



o 

o 



o 

1 

o 



' o 


I READ 


PAGE 


9 


** A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

ACUNIT 

0124 

BACKU 

0 097 

BACKUP 

0 093 

DOME 

0 05/ 

DOREAD 

0 027 

DOREQ 

0 0 43 

IDCTR 

000 9 

I ERR 

0007 

IFATAL 

0 0 08 

IMUNIT 

0 009 

I MV A 

0 0 08 

IMVB 

0 0 0-8 

IP B 

0 00 8 

I PM 

0 008 

IRDFLG 

0 0 06 

IMRITE 

0011 

LDBIN 

0131 

LEN 

0016 

STATCD 

0035 

STATSV 

010 2 

STATU 

0 0 66 


DATE? 08/19/99 


S Y M B 

O L S 





BEGN 

0052 

BFR 

0017 

GHKTH'R 

0 05:4 

EXIT 

0091 

T 

0000 

IBF 

0010 

I FILE 

00 09 

IFX 

0 Q 1 0 

IMASC . 

0 00 7. 

IMVC 

000 8 

I MVD 

0 00 8 

INUNIT 

0009 

I READ 

0011 

ISCR 

Q Q 0 8 

I SECT 

000 8 

LOG1A 

0012 

LPMSK 

0015 

NOCHAN 

010 5 

STCARD 

0109 

THRO 

0049 

TRD 

0096 


CKMOD 

0 0 86 

CMODE 

0018 

CTRO 

0099 

IBTM 

0010 

IBUNIT 

0009 

ICPMC 

0009 

IMCX 

0007 

IMF 

0 010 

I MODE 

00 06 

IOBUF 

0006 

IOCTR 

0006 

. IPASS 

0010 

ISODEV 

00 0 7 

ITHASC 

0 007 

I UNIT 

0006 

NOHODE 

0133 

ONE BIT 

0 014 

REQ 

0047 

UNIT 

00 5 0 

ZERO 

0013 




( ) n 

S„<‘ 





ASCOU 

T 


PAGE 1 DAT El 08/19/99 



0 

G 0 0 1 





NAM 

ASQOUT DECK-ID 004 MSOS 5.0 

SUMMARY-11000400001 

O 


000 2 




* 

MASS 

STORAGE OPERATING SYSTEM VERSION 5.0 

00400002 


o 

00 03 




*■ 

SMALL SYSTEMS DIVISION* LA JOLLA, CALIFORNIA 

00400003 

O 

ooo^ 




* 

COPYRIGHT CONTROL DATA CORPORATION 1976 

00400004 

o ■ 

000 6 






GENERAL ASCII OUT ROUTINE 

00400006 

o 

000 7 




•fr 


PARAMETERS IOCTR, IOBU F, I SO DEV 

00400007 


000 8 


0 0 00 

C 


COM 

IRQFLG , IMOOEflUNIT ,IOBUF 19 71 * I OCTR 

00400008 





0 0 01 

C 






o 



0 0 02 
0 0 03 

C 

C 





■ O 




0 0 64 

C 







00 09 


0 0 65 

C 


COM 

ISOOEV, IMCX, IMASCT96) , ITMASG(4 ) , IERR 

0040 0 00 9 


o 



0 0 66 
0 0 67 

c 

c 




• o 




Q0C7 

c 









OOCB 

c 






o 

0010 


OQCC 

GOOD 

c 

c 


COM 

IMVA,IMVB,IMVC,IMVD,ISCR, I SECT , I PB , I PM, I FATAL 

OG 4 0 0 01 0 

o 




0 0 CP 

c 









3 OCF 

c 






o 



OGQG 

c 





o 




0001 

c 








0 0 02 

c 









0 003 

c 






o 

0011 


0 004 
00 05 

€ 

c 


COM 

ICPMC, IBUNIT,IMUNIT, INUNIT, I FILE, I OCTR 

0040 0 01 1 

: ° 




0 0 06 

c 








0 0D7 

c 






o 



0008 
0 0 09 

c 

c 





: ° 




OGDA 

c 







0012 


OODB 

c 


COM 

IBTM,I8Fti5flOI * INF 1150 01 , IFX,IPASS 

00400012 


o 



3 0 DC 
06B8 

c 

c 




O 




0 C94 

c 









0 C95 

c 






o 

0013 





ENT 

ASCOUT 

00400013 

■ o 

0014 





ENT 

WREOF 

00^00014 


001 5 


0 023 



FQU 

0NE8ITI $23) 

00400015 



001 6 

PBOOO 

0 00 0 


ASCGJT 

NUM 

0 

00400016 


o 

0017 

P0001 

C400 



LOA+ 

IOCTR PICK UP NUM OF WORDS 

00400017 

; ° 


P0 00 2 

0 0 64 

c 





0018 

P 0 0 0 3 

68 0 A 



ST A* 

WORDS 

00400018 



0019 

P0Q04 

0400 



LDA* 

ISOOEV PICK UP UNIT 

00400019 


o 


PO 005 

00 65 

c 




O 

0020 

PG006 

8 0 2F 



ACO- 

ONEBIT 4 12 ADDIN ASCII BIT 

00 40 0 020 


0021 

P 0 0 0 7 

680 5 



STA* 

UNIT 

00400021 



0 02 2 




% 



00400022 


o 

0023 

PQOOfi 

5 4F4 



RTJ- 

K $F 4) 

00400023 

o 

0024 

P 0 0 0 9 

4C01 



NUM : 

S4C01 

00400024 


002 5 

POOOA 

0000 



NUM 

0 

00400025 


o 









o 


O 


O 


o 

A SC OUT PAGE 2 


D 



00 2 6 

POOOB 

0 0 G 0 


THRO 

NUM 

0 


0027 

P 000C 

00 0 0 


UNIT 

NUM 

0 

o • 

0028 

P0Q0D 

0 0 0 D 


WOROS 

NUM 

0 

00 29 
0030 

P 0 00 E 

00 03 

C 

■Tf 

ADC 

IOBUF 



0031 

P0 0 0 F 

08 FB 


CHKTHR 

LD A* 

THRO 

o 

0032 

P0010 

0 1 Q 1 



SAZ 

1 

00 33 

POOH 

1 8 FD 



JMP* 

CHKTHR 


00 34 

P 0 0 1 2 

ICED 


LEAVE 

JMP* 

( ASCOUT ) 


003 5 

P 0 0 13 

0 0 00 


WREOF 

NUM 

0 

o 

003 6 

PD014 

C400 



LDA* 

INUNIT 


P 0 0 15 

O0D8 

C 





00 37 

P0016 

6804 



ST A* 

STATU 


003 8 

POO 17 

6810 



ST A* 

EOFU 

o 

0039 

P0018 

5 4F4 



NUM 

S54F4 

0040 

P 0 019 

4 60 0 



NUM I 

$460 0 


0041 

P001A 

0000 


STATU 

MUM 

0 


0042 

POOIB 

0 Q 0 0 



NUM 

0 

o 

00 43 

PQ01C 

0814 



TRQ 

A 

00 44 

P 0 0 ID 

A0 0 0 



AND 

= N$ 3 8 0 0 



P 0 0 IE 

38 00 






0045 

PC 01F 

B 0 0 0 



EOR 

= N$08 00 

o 


P 0 0 2 0 

0 80 0 





00 4 6 

P0 021 

0101 



SAZ 

1 


0047 

P0 022 

1 CFO 



JMP* 

( WREOF) 


0048 

P0023 

54F4 



NUM 

$ 5 4 F 4 

O ' 

00 49 

PGQ24 

5C00 



NUM 

S5CGQ 

0 05 0 

PG 025 

0 0 00 



NUM 

0 


005 1 

P 0 02 6 

0 0 0 0 


THR 

NUM 

0 


00 52 

P 0 0 2 7 

0 0 0 0 


EOF U 

NUM 

0 

o 

0053 

PBS28 

2000 



NUM 

$2000 

005 4 

PO 029 

C8FC 



LDA* 

THR. 


0055 

P002A 

0101 



SAZ 

1 


0 0 5 6 

P0 02B 

1 8 FD 



JMP* 

*-2 

o 

00 57 

P002C 

1CF6 



JHP* 

(WREOF) 

0058 





END 



DATE: 08/19/99 


STARTING ADR 


STATUS REQUEST 


WRITE .EOF 


O 


PSM= 0 0 2D ( 45) COM = 0C96 i 3222 } DAT = 0000 i 


0 } 


O 

o 

o 

o 


0040 0026 
00400027 
00400028 
0043 0 029 
00400030 
00400031 
00400032 
004Q0033 
0040 0 034 
00400035 
0040 0036 

00400037 
00400038 
00400039 
0040 0040 
004D0041 
00400042 
00400043 
00400044 

00400045 

00400046 
00400047 
00400048 
00400049 
00400050 
00400051 
00400052 
00400053 
0040005* 
00400055 
00 40 0 05 6 
00430057 
00400 058 


Q 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


A SCOUT 


PAGE 3 


DATE? 08/19/99 



o 

q equivalences 

Q DEF .LINE NAME VALUE REFERENCED AT LINE NUMBER 

0000 I 00FF (0002559 

0015 ONEBIT 0023 (0000359 D020 

O 

O 

O 


O 

O 

O 


O 

o 

o 

O 

O 

o 

o 

o 

o 

o 


o 

o 

o 

o 


o 

o 

o 

o 



o 

o 


o 

o 


o 





{ } 



ASCOUT 

PAGE 4 DATES 08/19/99 


o 





o 

o 

o 

S Y M B 0 

L S 



o 

DEF.LINE 

NAME 

ADDRESS 

REFERENCED AT LINE NUMBER 

o 

0 0 0 8 

IRDFLG 

00 0 0 




0 0 08 

IMODE 

0001 


o 

o 

0 0 0 8 

IUNIT 

0 0 0 2 

0 029 

0 0 08 

IOBUF 

00 0 3 


0 0 08 

IOCTR 

006 A 

8 017 



00 09 

I SO DEV 

0065 

0 019 


o 

0009 

I MG X 

0066 


o 

0 009 

IMASC 

0067 



0009 

IT MASC 

0 0C 7 




0 0 09 

IERR 

0 0C 6 



o 

0010 

I M V A 

QOCC 


■ o 

0010 

IMVB 

0 0 CD 




0010 

I M VC 

OOCE 




0 010 

IMVD 

0 QCF 



o 

0 010 

I SCR 

0000 


o 

0010 

ISECT 

0 0 D 1 



0010 

IPR 

0 0 D 2 




0010 

I PH 

0 OD 3 



o 

0010 

IFATAL 

00 04 


• o 

0011 

ICPMC 

0 0 D 5 



0 011 

IBUNIT 

0 OD 6 




0011 

IMUNIT 

GOD 7 



o 

0011 

INUNIT 

0 0 D 8 

0036 

■ o 

0 011 

I FILE 

0009 



0 011 

IDCTR 

OODA 




0012 

IOFM 

0 0 0 B 



o 

0012 

IBP 

0 0 DC 


o 

0012 

IMF 

06B 8 



0012 

I F X 

0 C94 




0012 

IPASS 

CG9 5 

0 013, 0 03 A 


o 

0013 

ASCOUT 

000 0 

■ o 

0 014 

WREOF 

0013 

0014, 0047, 0057 


0 026 

THRO 

00 OB 

0031 



0 0 2 7 

UNIT 

DO 0 C 

0 0 21 


o 

0 0 28 
0 Q31 

WORDS 

GHKTHR 

GOOD 

0 0 0 F 

0018 
0 0 33 

o 


0 034 

LEAVE 

0012 

0 03 7 



0 041 

STATU 

0 0 1 A 


o 

0 051 

I HR 

0 02 6 

0 0 54 

■ o 

0 0 52 

EOFU 

0027 

0 038 

o 





o 

o 





o 

o 





■ o 


ASCOUT PAGE 5 


*** A L 

P H A 

B E T I 

CAL 

SORT 

O F 

ASCOUT 

0013 

CHKTHR 

0 031 

EOFU 

0 0 52 

IERR 

0 009 

IF AT AL 

0010 

IFILE 

0011 

IMVA 

0010 

I mvr 

0010 

I MVC 

0010 

I PM 

0010 

IRDFLG 

o ooa 

I SCR 

0010 

STATU 

0 04-1 

THR 

0 051 

THRD 

0 026 


DATE.: 08/19/99 


S Y M 

B O L S 

V-V-* 




I 

000 0 

IBF 

0012 

I8TH 

0012 

IFX 

0012 

IMASC 

0009 

I MCX 

0009 

I MV O 

0010 

INUNIT 

0011 

IOBUF 

000 8 

ISECT 

0010 

ISOOEV 

0009 

ITMASC 

0009 

UNIT 

0027 

WORDS 

0028 

WREOF 

0014 


IBUNIT 

0011 

ICPMC 

0011 

IOCTR 

0011 

IMF 

0012 

IMODE 

0 008 

I MU NIT 

0011 

IOCTR 

00 0 8 

IPASS 

0 012 

IPS 

0010 

IUNIT 

0 0 0 8 

LEAVE 

0 03 4 

ONESIT 

0015 


P /VRAM’s 


PAGE i 


DATE?. 08/19/99 



o 


SUHMARY-110005000D1 
00500002 
O05G0QG3 
00500004 

D05G00G6 
00500007 
00500008 
00500009 
00500010 
00500011 
00500012 
00500013 
00500014 
00500015 
00500016 
00500017 
00500018 
0 G 50 0 01 9 
0050 0G20 
00500021 
00500022 
00500023 

O 


O 


O 


O 


o 


o 


O 


O 


O 


o 

o 

o 

o 

o 

o 


PA RAMS 


PAGE 


2 


DATE! 08/19/99 



o 

E Q U I V 

A L E N 

C E S 

O ' 

DEF . LINE 

NAME 

VALUE 


0 0 00 

I 

00FF 


0 0 07 

ENTAD 

0 0 DC 

O ' 

0 0 08 

PAD 

00OD 

o 





REFERENCED AT LINE NUMBER 

1000255 ) 

ICO 0220 ) 0 014, 0 018, 0021 

(000221) 0019, 0020 


O 

o 

o 

o 

o 


o 

H 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

o 

o 

o 

o 


o 

o 

o 

o 

o 


PA RAMS 


PAGE 


3 


DATE 


08/19/99 


SYMBOLS 

DEF , LINE NAME ADDRESS 

0006 Q8PREP 0000 
0006 Q8PKUP 0006 


REFERENCED AT LINE NUMBER 

0006, 0012, 0013, 0015, 
0006, 0022 


0016 


PARAMS PAGE 4 OATti 08/19/99 

o 

*** ALPHABETICAL SORT OF SYMBOLS *** 

O EMTAD 0007 I 0 0 00 PAD 0008 Q.8PKUP 0006 Q8PREP 0006 

O 

O 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

n 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


000 1 
000 2 
0003 
00 0 4 


DISKIO 

PAGE 

1 

DATES 08/19/99 


NAM DISKIO 


DECK-ID 006 MS OS 5.0 


* MASS STORAGE OPERATING SYSTEM VERSION 5.. 0 

* SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

* COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-11000600001 

00600002 

00600003 

00600004 


0006 0000 C 

0 001 C 

0 0 02 C 

0 0 03 C 

0 0 64 C 

000 7 0 0 65 C 

GO 66 C 

0 0 67 C 

OOC7 C 
OOCB C 
0008 OOCC C 

{3 0 CD C 
OOCE C 
DOCF C 
00D0 C 
0 Q D 1 C 

0 0 02 C 

0 0 03 C 

0 004 C 

000 9 0 005 C 

0 0 06 C 

0 0 07 C 

0 0 08 C 

0 0 09 C 

OODA C 
QS10 OOOO C 

0 ODC C 

0 6 88 C 

0C94 C 
0C95 C 


COM IRQFLG,IM0D£,IUNIT,IQ8UF(97),I0CTR 

COM IS00EV,IMCX,IMASC.(96) ,ITMASCC4), IERR 

COM IHVA ,IMVB,IMVC ,IMV0, ISGR , I SECT , IPS, I PM, I FAT AL 

COM ICPMC, IRUNIT ,IMUNIT, INUNIT, IFIL£,IDCTR 
COM IBTM,IBF*150 0T , IMF (150 0 ) ,IFX,IPASS 


0 011 
0012 


ENT DISKR , DISKW 
EXT TERROR 


0013 



* READ 

AND 1 

WRITE DISK 

0014 

0015 


0 0 22 

-* 

EQU 

ZERO 1 $2 2) 

0016 

PO 000 

a o o s 

DISKR 

NUM 

0 

0 Q 1 7 

POQOl. 

C8FE 


LD A* 

DISKR 

0018 

P00G2 

6304 


STA* 

DISKW 

0G19 

PO 003 
P 0 Q 0 4 

CODO 
48 0 1 


LDA 

=NS 4801 

0 02 G 
0021 

PO 005 

18 04 


JMP* 

PARAMS 

00 22 

PO 066 

0 0 0 0 

DISKW 

NUM 

0 

00 23 

P000 7 
P 0 0 0 8 

caoo 

4C01 


LDA 

= N$4C 01 

002 4 

PO 0 0 9 

4 821 

PARAMS 

STQ* 

QSAVE 

00 25 

P 0 0 0 A 

6813 


ST A* 

REQST 


SAVE RETURN 
SET READ REQUEST 
SET UP 'PARAMETERS 

SET WRITE REQ CODE 


00600006 


00600007 


00600008 


00600009 


0060 0010 


00600011 
00600012 
0060001 3 
0060 0 014 
00600015 
00600 016 
00600017 
00600018 
0060 0 019 

00600020 

00600021 

00600022 

00600023 

00600024 
00600 025 


DISKIO 


PAGE 


2 


OATEi 08/19/99 



OQ6QOQ26 
00600027 
00600028 
00600029 
0060 0 030 
00600031 
00600032 
00600033 
00600034 

00600035 

0060 0.036 
00600037 
00600038 
0060 0 039 
00600040 
00600041 
00600042 
00600043 
00600044 
00600045 
0060 0 046 
00600047 
00600048 
00600049 
OO 60 0 05 D 
00600051 
00600052 
03600053 
00600054 
00600055 
00600056 
00600057 


O 

o 

o 

c 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DISKIO 


PAGE 


3 


DATES 08/19/99 


EQUIVALENCES 


DEF .LINE NAME VALUE REFERENCED AT LINE NUMBER 

0 0 00 I 00FF '(0002551 

0015 ZERO 0022 (000034! 0027 


DISKIO 


PAGE 


A 


DATE J 08/19/99 


SYMBOLS 


DEF . LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

0 0 0 6 

IRDFLG 

0000 




0 0 0 6 

IMODE 

0001 




0 0 0 6 

IUNIT 

00 02 




00 0 6 

IOBUF 

0003 




0 0 0 6 

IOC TR 

0064 




0 0 07 

ISODEV 

0 0 65 




0 0 07 

IMCX 

0 0 6 6 




0 0 07 

IMA SC 

0067 




0 0 07 

ITMASG 

00C7 




0 0 0 7 

I ERR 

00CB 

0 034 



0 0C8 

I M V A 

OOCC 




0 0 08 

I MV 8 

0 ODD 




0 0 0 8 

IMVC 

OOCE 




0 0 0 8 

I MVD 

0 0 CF 




0 0 08 

IS CR 

0 0 Q 0 




G 0 0 8 

I SECT 

0QD1 




0 0 0 8 

IPB 

0 0 02 




0 0 0 8 

I PM 

00D3 




0 0 08 

IFATAL 

0004 




0 009 

IC° MC 

0 0 D 5 




0 0 09 

ieUNlT 

00D6 




0 0 09 

IMUNIT 

00D7 




0 G 0 9 

INUNIT 

0 008 




0 0 09 

IFILE 

OOD9 




0 0 09 

IDCTR 

0 0 0 A 




0010 

IBTM 

OODB 




0010 

IBF 

0 0 DC 




0 010 

IMF 

06B8 




DO 10 

I F X 

0C94 




a oio 

IPASS 

GC9 5 




0 Oil 

QISKR 

0000 

0 011, 

0 017 


0 011 

01 IS KW 

000 6 

0 011, 

0018, 

0026, 0037, OG33, 0040 

0 0 2*+ 

PARAMS 

000 9 

0 0 20 



0 036 

ADROK 

0017 

0 032 



0 043 

REQST 

D01D 

0 025 



0 0 45 

THRO 

0 0 1 F 

0051 



0 0 48 

ADR 

00 22 

0 039 



0 050 

LSB 

0024 

00 28, 

0031 


0 051 

CHKTHR 

0025 

0 053 



0 056 

QSAVE 

0 0 2 A 

0024, 

0 05 4 



0 055 


DISKIO 


PAGE 


5 


DATE: 08/19/99 


: X T F R 

N A L S 



OFF. LINE 
0 012 

NAMF 

TERROR 

VALUE 
0C1 6 

REFERENCED AT LINE NUMBER 
0 035 


p 


DISKIO 


PAGE 

6 


DATE,* 08/19/99 









□ 

*im?- a l 

P H A 

O E T I 

CAL 

SORT 

O F 

S Y M B 

O 1_ S 

*** 










o 

o 

ADR 
ICPMC 
IMF 
IOC TP. 
IUNIT 

0048 

0009 

0010 
000 6 
000 6 

ADROK 
IDCTR 
I MODE 
I PASS 
LSB 

0 036 
0 0 09 
0 006 
0010 
0 050 

chkthr 

IERR 

IHUNIT 

IPS 

PARAMS 

0 051 
00 07 
0 0 09 
0 0 03 
0 024 

DISKR 
I ERROR 
I MV A 
IPM 
QSA'VE 

0011 

0012 

0008 

0008 

0056 

DISKW 

IFATAL 

IMVB 

IRDELG 

REQST 

0011 
000 8 
00 0 8 
000 6 
0043 

I 

I FILE 
IMVC 
I SCR 
THRO 

0000 
0009 
0 008 
0 00 8 
0045 

IPF 
IFX 
I MV D 
ISECT 
ZERO 

00 10 
0010 
00 0 8 
00 0 8 
00 15 

IBTM 
IMA SC 
INUNIT 
ISODEV 

0010 
0 007 
0009 
0 007 

IBUNIT 
I MCX 
IOBUF 
ITMASC 

GQG9 

0007 

0006 

0007 

O 

o 


o 0 


o 

o 

o 

o 

o 

Q 

o 

o 

o 

o 

o 

o 

o • 

’ o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


SP0LY2 


PAGE 


1 


DATES 08/19/99 


O 

0 001 NAM SP0LY2 DECK- ID 007 MSOS 5.0 

0002 * HASS STORAGE OPERATING SYSTEM VERSION 5.0 


o 

00 0 3 




* 

SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

00 0 4 





COPYRIGHT CONTROL DATA CORPORATION 1976 

o 

000 6 





ENT 

SETPV4 

000 7 





EXT 

SUP 


0 0 0 8 




SETPV4 

GTFILE COMP, N AHE-S ETPV 4- 1 , F WA , FWA-SETPV4 *1,0,, 


00 0 8 

P0Q0G 

54F4 





o 

00 08 

POOfil 

5A 01 





000 8 

P 0 GO 2 

0 DOF 

P 






P0 003 

0000 






000 8 

P 0 0 0 4 

08C2 





o 


P0005 

0011 






P0 006 

0010 

P 





00 0 8 

PC 00 7 

0 0 0 0 







P0 00 8 

0 0 0B 





o 

00 0 9 

P0009 

0 0 0 0 



ADC 

0 

0010 

P0Q0A 

00 00 



ADC 

0 


0011 

P 0 0 0 B 

IAEA 



NUM 

S14EA JUMP TO DISPATCHER 


0012 

POOOC 

5354 


NAME 

ALF 

3,STP1V4 

o 


P000D 

5031 






P0 00E 

563 4 






0013 

P0G0F 

1801 


COMP 

JMP* 

FWA 


0014 

PQ010 

5400 

X 

FWA 

RTJ + 

SUP 

o 


POOH 

7FFF 

X 




0015 





END 

SETPV4 

o 

PGM= 

0012 

( 

Qo 

w 

o 

i = 0000 ( 01 DAT = 00 0 0 ( 01 


O 

O 

O 

O 

O 

o 

o 


SUMMARY- 11 00070 0001 
00700002 
00700003 
0070 Q □ D At 


00700006 

00700007 

0,1,1 00700008 


00700GG9 

00700010 

00700011 

00700012 


00700013 

00700014 

00700015 


(' i 

v.-- 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

S POLYS PAGE 2 DATE:! 

O' 

O EQUIVALENCES 

NAME VALUE REFERENCED AT LINE NUMBER 

I OOFF (000255*) 


o 

DEF .LINE 

0 0 0 0 

o 



O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 


o 

08 / 19/9 9 

tV'-Tj 

lv! 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



SP0LY2 


PAGE 


3 


date: 08/19/99 


SYMBOLS 


DEF .LINE NAME ADDRESS 

0006 SETPV4 0000 

0012 NAME G00C 

0013 COMP 0 0 0 F 

0014 FWA 0010 


REFERENCED AT LINE NUMBER 

0006, 0008, 0008 
0 0 08 
0 0 08 

0008, 0008, 0013 


SP0LY2 


PAGE 


4 


DATE! G 8/ 19/99 


X T E R 

N A L S 



D E F .LINE 
G 0 0 7 

NAME 

SUP 

VALUE 

GG11 

REFERENCED AT LINE NUMBER 
0014 


0 



O 


SP0LY2 PAGE 5 DATE! 08/19/99 



o 



f^j 


*** ALPHABETICAL SORT OF SYMBOLS 



o 

COMP 0013 FWA 0014 I 0000 NAME 0012 SETPV4 0006 SUP 

0007 

O 

o 



o 

o 



o 

o 



o 

o 



o 

o 



o 

O ; 



o 

O 



o 

O 



o 

O 



o 

O 



o 

O 



o 

O 



o 

o 



o 


o 


o 


G 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FTN 3.38 (OPT = LPXC1 


SUP 


PAGE 


DATE: 08/19/99 T I HE t 1644 


1 


SUBROUTINE SUP 

00800001 

1 


1 /DECK-ID 008 HSOS 5.0 

SUMMARY-11000800002 


C 

HASS STORAGE OPERATING SYSTEM VERSION 5.0 

00300003 


C 

SMALL SYSTEMS DIVISION. LA JOLLA , CALIFORNIA 

00800004 


c 

COPYRIGHT CONTROL DATA CORPORATION 1976 

0080 0 Q 0 5 

2 


COMMON IRDF'LG.IMODE iIUNIT ,I0BUF (973 ,I0CTR 

00800006 

3 


COMMON ISODEV.IMCX. IMASCI 96 > .ITMASC (4) .TERR 

00800007 

4 


COMMON I MV A »IMVB»IMVC,IMVD,ISCR,ISECT ,IPB,IPM,IFATAL 00800003 

5 


COMMON ICPMC, ISUNIT, IMUNI T, INUNIT.TFILE, IDC TR 

OO 80 0 0 09 

6 


COMMON IBTM.IBF {150 0) , IMF (15003 ,IFX,IPASS 

00800010 

7 


DIMENSION H ( 7 > 

0080G011 

8 


DIMENSION N 19) 

00800012 

9 


DIMENSION ITT (4) 

00800013 

10 


DATA M<1) , M 121, M(3) ,M( 4) , KJ5) .M (6) , M(7) / 

0080001“+ 

IP 


*$GDQA ,$4D4F,$554E, $5420 ,$ 402 0, $5441, $5045/ 

00800015 

11 


DATA N (IS ,N (2),N {31 ,NC4) ,NC5) ,N (6) ,N (7) ,N{ 8),N (9) 

/ 00800016 

11 


*$0D0A,S4341, $5441, S4C4F, $4720, 34649, S4E49, $5348, $4544 / 00800017 

12 


IFCIFATAL . EQ.Q ) GO TO 12 

00800018 

13 


ASS EH $54F4,$4A0G 

00800019 

14 

12 

IPB=1 

00800020 

15 


IPM=1 

00800021 

16 


I SFLA G= 0 

Q08SSG22 

17 


1ST AR= D 

00800023 

18 


JUNIT S=4 

0 0 8 0 0 02-4 

19 


IFEX=0 

00800025 

20 


IMCX= 1 

00800026 

21 

ID 

CALL REDCON 

00800027 

22 


IFdTMASCTD.EQ.i ) GO TO 15 

O089GQ28 

23 


IFtITMASCti>.EQ.8} GO TO 1.1 

’ 00800029 

24 


IFCITMASC m.EQ.6') GO TO 13 

00800030 

25 


IFCITHASCUJ.EQ.Z .AND. ITMASCI3) .LT. 0. OR. ITMASCU) . 

EQ. 4. AND . ' 00800031 

25 


*ITMASC(3> . LT « 0 ) GO TO 14 

00800032 

26 


GO TO 10 

00800 033 

27 

13 

I SFL A G=1 

00800034 

28 


GO TO 10 

00800035 

29 

14 

1ST AR = i 

0Q80G 036 

30 


GO TO 10 

00 80 0 037 

,31 

15 

IBUNIT=ITMASC«2> 

00800038 

32 


IMUNIT=ITMASCI3) 

00800039 

33 


I NUNT T=IT MASC J 4 ) 

00800040 

34 


IFtlBUNIT.EQ.IHUNir ) JUNITS=JUNITS~i 

00800041 

35 


IFIIMUNIT.EO. INUNIT ’) JUNITS= JUNITS-1 

00800042 

3 6 


I F ( IBUNIT . EQ. INUNIT) JUN T TS= JUNITS-I 

OO 80 0 0 43 

37 


JUNIT S= JUNITS-1 

00800044 

38 


If ( JUNITS.EQ. 01 JUNITS=i 

00800045 

39 


GO TO 10 

00890046 


C 


00800 047 


c 

BUFFER IN AS INDICATED BY CONTROL STMTS AND UNIT 

SELECTIONS 00800048 


c 


00830049 

40 

11 

IFTJUNITS.EG. 1.0R.ISFLAG. EQ.l) GOTO 16 

008 0 G Q 50 

41 

17 

IF 1 JUNITS. LE. 2.OR.ISTAR.NE.0.OR.ISFLAG.NE.0) GO TO 18 00800051 

42 


GO TO 19 

00800052 


c 


00800053 


c 

BUFFER IN M TAPE IF NECESSARY 

00800054 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 



FTN 3,3Q 

'(OPT = 

LPXC) SUP PAGE 

2 

DATES 08/19/99 

TIMES 1644 


o 

43 

16 

DO 21 1=1,7 



00890055 

O 


44 

21 

IOBUF II ) = M (I) 



00800056 


o 

45 


I0CTR=7 



00800 057 

O 

46 


ISODEV=$ 0 8FC 



00800058 


47 


CALL ASCOUT 



00800059 



4 8 


IUNIT =$0 8FD 



00800060 


o 

49 


IMO OE = $lS 0 0 



00800061 

O 


50 


CALL IREAD 



00800062 


51 


I DCTR=1 



00800063 



52 


CALL BUFIN 



00800064 


o 

53 

C 

GO TO 17 



00800065 

00800066 

O 



c 

BUFFER IN B TAPE IF NECESSARY 



00800067 



54 

18 

DO 22 1=1,7 



00800068 



55 

22 

IOBUF ( I ) = M .( I ) 



00800069 

O 


56 


IOBUF (53 =$422 0 



00800070 


57 


IQCTR=7 



00800071 



58 


I SODE V=$ 0 8FC 



00800072 


o 

59 


GALL ASCOUT 



00800073 

o 

60 


IUNIT = $0 8FD 



00800074 


61 


IMO DE =$1000 



00800075 



62 


CALL IREAD 



00800076 


o 

63 


IDCTPv = 0 



00800077 

o 

64 


CALL BUFIN 



00800078 


65 

C 

GO TO 19 



00800079 

00800080 


o 


€ 

PICK UP NEXT CONTROL CARD 



00 8 0 0 0 81 

o 


C 




00800 082 


66 

19 

IF! JUNITS . GT» Z) GO TO 83 



00800083 



67 


DO 82 1=1,7 



OQ80G 0 84 


o 

68 

82 

IOBUF { I) = Ml II 



00800085 

o 

69 


IOBUF 15) =S4'E20 



00800086 


70 


I0CTR=7 



00800087 



71 


ISODE V=$ 0 8FC 



OGBOO 088 


o 

72 


CALL ASCOUT 



00800089 

■ o 

73 


IUNIT=$0 8FD 



00800090 


74 


IMODE-$i 0 0 0 



00800091 



75 


CALL IREAD 



00800092 


o 

76 

83 

ISODE \?=$D8FB 



00800093 

o 

77 


I MC X= 1 



00800094 


78 

2 0 

CALL REDCON 



00800095 



7Q 

30 

IT= ITMASC1 1 ) 



00800096 


o 

80 


GO TO 11,4,4,4,2,4,4,3) , IT 



00800097 

O 


C 

LIDRCSOE 



00800098 



c 




00800099 




c 

*L ALREADY PROCESSED 



008 00 100 


o 

81 

c 

1 

GO TO 20 



0080C101 

00800102 

O 



c 




00800103 




G 

*C PROCESSOR 



00800104 


o 

82 

C 

2 

I F { IF EX • EO • 01 GO TO 6 



00800105 
0 0 8 Q 0 10 5 

O 


83 


IERR= 4 



00830107 



84 


CALL TERROR 



00800108 


o 







O 


o 


o 


SUP 


•PAGE 


3 


DATE: 08/19/99 


TIME: 1644 


FTN 3.3 B (OPT 


LPXC) 



c 

ERROR ONLY 1 CATALOG ALLOWE0 /RUN , ERROR IF FATAL 

00800109 

85 

6 

DO 81 1=1,7 


00800 110 

86 

81 

IOBUF ( I ) = M ( I ) 


00800111 

87 


IQCTR=7 


00800112 

88 


IS O DE V= $ 0 8 FC 


00800113 

89 


CALL ASCOUT 


00800114 

90 


IUNIT=$Q8FD 


00800115 

91 


IMO DE = $1 0 0 0 


008QG 116 

92 


CALL IREAD 


0 08 0 0 117 

93 


CALL ICAT 


00800113 

94 


DO 80 1=1,9 


00800119 

95 

80 

IOBU" m = NII) 


008 00 120 

96 


I0CTR=9 


00800121 

97 


I SO DE V=$ 08 FC 


00800 122 

98 


CALL ASCOUT 


00800123 

99 


IUNIT=$08FD 


00800124 

100 


IMODE=$1000 


00800125 

101 


CALL IREAD 


00800126 

102 


I SODEV=$ 08FB 


00800127 

103 


GO TO 20 


00300128 


C 



008 3 G 129 


C 

"*E PROCESSOR 


00800 130 


c 



00800131 

10 4 

3 

IF-1IFEX.EQ. 0) GO TO 89 


00800132 

10 5 


CALL WREOF 


00800133 

106 

89 

ASSEM S5 4F 4, $ 4A 0 0 


00800134 


c 



00800135 


C 

*0.*I.*R,*D. v S PREPROCESSORS 

00800136 


c 



00800137 

10 7 

4 

ITMCX=IMCX 


00800133 

108 


DO 84 1=1,4 


00800 139 

109 

84 

ITT (X) = ITMASC'{I3 


008 OG 140 

110 


IFE X= 1 


‘ OD 80 0 1 41 

111 


I F ( IT . EQ . 7 > GO TO 28 


00800142 

112 

24 

CALL RE DC ON 


008001 43 

113 


I F ( IT MASC ( 1) . NE . 8 ) GOTO 

25 

00800144 

114 


IERR= 9 


00330145 

115 


CALL I ERR OR 


00800146 


C 

ERROR IF * F. CARS FOUND 

BEFORE *0 CARO 

00800147 

11 6 

25 

IFCITHASCCD-NE.71 GO TO 

24 

00800143 

11 7 

28 

IF(I S FLAG. N E.0. OR. J UNITS 

• EQ.il GO TO 2 6 

00800149 

118 


IF(ITMASC (2). GE.I'PM) GO 

TO 27 

00 8 00150 

119 


I E R R= 4 


0 G 8 0 0 1 5 1 

12 0 


CALL TERROR 


00800152 


C 

ERROR IF TRYING TO OUTPUT FROM LESS THAN CURRENT POSITION 

00800153 


c 



00800154 


c 

MOVE M UNIT TO FIRST OUTPUT POSITION 

00800155 

121 

27 

I F I IPM.EQ.ITHASCC 21 ) GO 

TO 26 

00800156 

122 


IHVC= ITMASCT2) -IPM 


0 08 DO 157 

123 


IMV A = IMUN I T 


00800 158 

124 


I M V B= 0 


00800159 

125 


IM VD= 0 


00800 160 

12 6 


I M O D E = 0 


00300161 

127 


CALL MOVE 


008 00 162 


< ') 

FT ,M 3.3B (OPT = LPXC3 SUP PAGE 4 DATE! 08/19/99 


{TJ 



128 

26 

IMC X=ITHGX 


129 


IPH=I TMA SO ( 2) 

o 

130 


00 85 1=1,4 

131 

85 

ITMASC{I1=ITTII ) 


13? 


GO TO 86 


133 

29 

CALL REDCON 

n 

1 34 

86 

CONTI NUE 


135 


GO TO 11,31,31,31,2,70,90,3) ,ITHASCC1) 


136 

31 

IFIIPM.GE.ITHASEC2) ) GO TO 32 


137 


IMVC=ITHASCT2I-IPM 

O 

138 


IFKISFLAG.NE.O.QR, JUNITS.EQ.il GO TO 88 

139 


IHV A= IMU NIT 


140 


i h y e = inunit 


1 41 


IHVD= 0 

O 

142 


CALL MOVE 

143 


GO TO 32 


1 44 

88 

i m y a = i 


145 


iMye = inunit 

o 

146 


1 M V D= I P H 

1 +7 


CALL MOVE 


148 

32 

IFI ITMASC (1) . EQ.3.AN0. ITMASCI3) .NE. Q) GO TO 


149 


IPM=I TMASC 1 2) H 

o 

150 


GO TO 33 

151 

34 

IPM=ITMASCT33“+1 


152 

33 

r* 

GO TO U, 50, 40, 50, 2, 70, 90, 3), ITMASC (1) 

o ; 


L 

c 

c 

*0 PROCESSOR 


153 

40 

IF( JUNITS.EG.l) GO TO 29 


154 


I MV C = 0 

O 

155 


IFI ITMASCC 3) ,'EQ, 0) GO TO 42 

156 


I MVC= ITMASC (3) -ITMASC I 2) 


157 

4? 

I MVC= I M VC+ 1 


1 58 


I MV A= IMUNIT 

O 

159 


IM VB= 0 

160 


IH VD= G 


161 


CALL MOVE 


162 

C 

C 

r 

GO TO 29 

O 


*1 PROCESSOR 


163 

u 

50 

IFI JU NITS. EQ.l ) GO TO 51 

O 

c 

MOVE BINARY TO BE INSERTED AFTER TO N UNIT 

164 


IMVA= IMUNIT 


16 5 


IMV B= INUNI T 


166 


IM VC= 1 

O 

167 


I M V D= 0 

168 


CALL MOVE 


169 


GO TO 52 


17 0 

51 

I M V A = 1 

O 

171 


IMV B= INUNIT 

172 


I MVC= 1 


173 


I MVD= ITMASC (2) 


174 


CALL MOVE 

O 




O ' 





TIME! 1644 


00800163 
0080016*+ 
00800165 
00300166 
00800167 
00800168 
00800169 
00800170 
00800171 
00800172 
00800173 
00800174 
00800175 
00800176 
00800177 
00800178 
00800179 
00300183 
00800181 
00800182 
00800183 
008 00 18'+ 
00800185 
00800186 
00830 187 
00800188 
00800189 
0 08 QO 19 3 
00800191 
00800192 
00800193 
00800194 
00800195 
00880196 
00880197 
00800198 
00800199 
00 800 20 0 
00 80 0 201 
OQ8QG202 
00 80 0 203 
0080020+ 
00800205 
00800206 
00800207 
00800208 
00300209 
00800 210 
00800211 
00800212 
00800213 
00800214 
00800215 
00800 216 



o 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



TIM£*i 1644 


00800217 
00800218 
00800219 
OG800 220 
00800 221 
00800222 
00800 223 
00800224 
00800225 
00800226 
00800227 
00800228 
0080 0 229 
00800230 
00800231 
00300232 
00800 233 
00800234 
00800235 
00800236 
00890 237 
00800238 
00800239 
008 0 0 240 
00800 241 
008002^2 
00800243 
00800244 
00800245 
00800246 
00800247 
00800248 
03800249 
008 00 250 
00800 251 
00800252 
00800253 
0 09 G 0 254 
00800255 
00800256 
00800257 
00800258 
00800259 
00800 260 
0080 0 261 
008 0 D 262 
00800263 
0080 0 264 
00800265 
00800265 
00800267 
00800268 
00800269 
00800270 


C ) 

o 

o 

o 

o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 



FTN 3.3B (OFT 


LPXC3 


SUP 


PAGE 


6 


(_ ) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


218 
219 
22 0 
221 



238 


71 IHVC= IMVC+1 

I H V D= I T H A S C '( 3 ) 

CALI MOVE 
GO TO 29 

C 

C *0 SUM UP PROCESSOR 

c 

90 I Fl IS FLAG .ME. 01 GO TO 20 

IFIITMASC (31.EQ.0? GO TO 20 
IMVC=ITMASCT3)-IPMH 
IF* JONITS.EQ.lt GO TO 91 
IMVA= IMUNIT 
IMVB = INUNIT 
IMVD= 0 
CALL MOVE 
IPH=ITMASCt3)H 
GO TO 20 
91. I M V A = 1 

I M V 8= IN UN I T 
IM V0= IPM 
CALL MOVE 
IP H=I TMASC (3) frl 
GO TO 20 
END 


DATES 08/19/99 


TIMES 1644 


00800 271 
00800272 
0080 D 273 
00800274 
00800275 
00800276 
00800277 
00800273 
00800279 
008 00 280 
00800281 
00800282 
00800283 
00800284 
00 80 0 285 
00800285 
00800287 
00800288 
00800289 
00800 290 
00800 291 
00800292 
00800293 
00300294 


0 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

o 

o 

o 

o 

o 

o 

o 


o 

DATE-: 08/ 19/99 TIME: 1644 

rn 

Li— J 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


G 

FTN 3.38 (OPT = LPXC) SUP PAGE 3 DATE: 08 / 19/99 TIME: 1644 

o 

***** LIST OF SYMBOLS ***** 
o CONSTANTS : 


o 

VALUE 


ADDRESS 

G 8 FB 

( 2299 ) 

0 01 E 


08 FC 

( 2300 i 

0 019 

o 

0 8 F D 

(23011 

0 01 A 

100 0 

(40 96 0 

0 01 B 


422 0 

( 16928 ) 

001 C 


4 E 2 0 

(20000 ) 

0 01 D 

o 





VARIABLES t 


o 

NAME 

TYPE 

ADDRESS 


I 

INTEGER 

0018 

o 

IBF 

INTEGER 

0 0 D C C 

I BTM 

INTEGER 

0 008 C 


IBUNIT 

INTEGER 

0 0 D 6 C 


ICPMC 

INTEGER 

0 0 Q 5 C 

o 

IDCTR 

INTEGFR 

0 0 BA G 

IERR 

INTEGER 

00 CB C 


IFATAL 

INTEGER 

0 00 4 C 


IFEX 

INTEGFR 

0 017 

o 

IFILF 

INTEGER 

0 009 C 

IFX 

INTEGER 

QC 94 C 


IMA SC 

INTEGFR 

0 067 C 


I MG X 

INTEGER 

0 066 C 

o 

IM~ 

INTEGER 

06 B 8 C 

IMOOE 

INTEGER 

0001 c 


IMUNIT 

INTEGFR 

0007 C 


IMVA 

INTEGER 

oocc c 

o 

I MV R 

INTEGER 

GDCD C 

IMVC 

INTEGER 

flOCE C 


IMVD 

INTEGER 

0 0 OF C 


INUNIT 

INTEGFR 

0 038 C 

o 

IOBUF 

INTEGER 

000 3 C 

IOCTR 

INTEGER 

006 4 C 


IPASS 

INTEGER 

0 C 9 5 C 


IPB 

INTEGER 

3 00 2 C 

o 

IPM 

INTEGER 

Q 0 D 3 G 

IRQFLG 

INTEGER 

0 000 C 


ISCR 

INTEGER 

000 0 C 


ISECT 

INTEGER 

0 001 C 

o 

ISFLAG 

INTEGER 

0014 

ISODEV 

INTEGER 

0065 C 


ISTAR 

INTEGFR 

0 Q 1 5 


IT 

INTEGER 

0 G 1 F 


o 


O 


REFERENCED BY STATEMENT NB * 
76,102 

46 , 58 , 71 , 88,97 

43 . 60 . 73 . 90.99 

49 . 61 . 74 . 91.100 
56 

69 


REFERENCED BY STATEMENT NB » 

3 , 44 , 54 , 55 , 67 , 68 , 35 , 86 , 9 4 , 95 , 108 , 1 09 , 130 , 13 1 

, 31 , 34 , 36 , 176 ,198 


, 51 ,63 

, 33 , 114,119 

,12 

5 , 19 , 82 , 104,110 


29 , 77 , 1 07,128 


3 3,3 5 , 3 6 , 140 ,1 
44 , 55 , 56 , 68,69 
45 , 57,70 , 87 , 96 


■s V T 7 w 

5 , 113 , 121 , 122 , 129 , 136 , 137 , 146 , 149 , 151 , 224 , 230 , 234 ,236 

16 , 27 , 40 , 41 , 117 , 138,222 
■ 6 , 58 , 71 , 76 , 88 , 97,102 
1 7 . 41 .i 76. 1 97 


b,sa,a»/o , ao / ■ 
17 , 29 , 41 , 175,197 
79 , 80 ,111 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FIN 3.3B 

(OPT = LPXC ) 


ITMASC 

INTEGER 

0 0C7 

C 

ITMCX 

INTEGER 

002 0 


ITT 

INTEGER 

OOl 0 


IUNIT 

INTEGER 

000 2 

C 

JUNITS 

INTEGER 

0 016 


M 

INTEGER 

0 00 0 


N 

INTEGER 

0 007 


EXTERNALS 

NAME 

• 

• 

TYPE 

ADDRESS 

ASCOUT 

SUBROUTINE 

012F 



BUFIN SUBROUTINE 0G8A 
ICAT SUBROUTINE Q 13 A 
IERROR SUBROUTINE 018F 
IREAD SUBROUTINE 0 13 8 
HOVE SUBROUTINE 0294 
REOCON SUBROUTINE 016F 
WRECF SUBROUTINE 0157 


SUP 


PAGE 


DATE'S 08/19/99 


TIMES 1644 


1,22, 23, 24,25, 31 ,32 ,33,79-, 10 9-, 11 3 ,116-, 118, 121 -,122, 129 ,131,135,136, 137, 148, 149, 151,152,155,156,173, 
18 5, 13 6, 18 8,207,208,210,214,216,217,219,223,224, 230, 236 
107,107,128 
1,109, 131 
1,48 ,60,73, 90, 99 

17,18, 34, 3 5,36,37,38 ,40, 41 ,66,117. 

I«i0<44»55»68,86 






REFERENCED BY STATEMENT NB 3 


46,59, 72 , 89,98 

51,64 

92 

83,115,120 
49,62, 75,92,101 

12 6, 142, 147,161,168,174,180,189,196,202,211,220,229,235 

20,78, 112,133 

104 


LABELED STATEMENTS 3 


LABEL 

ADDR ESS 

1 

0110 

2 

0111 

3 

0153 

4 

015 A 

6 

QUA 

10 

Q 0 3 6 

11 

0 08 0 

12 

0 02 7 

13 

0 05 2 

14 

0055 

15 

0 05 8 

16 

Q 0 9 7 

17 

0 D 8 9 

18 

ODBC 

19 

0 00 8 

20 

0 0 F 9 

21 

0 0 9 A 

22 

OOBE 

24 

0 16E 

25 

0177 

26 

01A5 

27 

0190 

28 

0178 

29 

01B6 


REFERENCED BY STATEMENT NB 3 

79.81.13 5,152 

80.82. 13 5,152 
80 ,104,135,152 
79,80,107 
82,8 5 

20,26, 23,30,39 

23,40 

12,14 

24,27 

25,29 

22,31 

40.43 

40.53 

41.54 
41,65,66 

77, 81, 10 3,222, 223, 231,23 7 

43 . 44 

54,5 5 

111,116 

113.116 
117,121,128 
118,121 

111.117 

131, 153, 162, 181,190,203, 212,221 


o 

FT N 3 . 3 B OPT = 

LPXCJ 

SUP 

PAGE 10 

DATE* 08/19/99 

TIME? 1644 

G 

G 

30 

0 0 F B 

78 




U 


31 

0 1C A 

135,135,136 





o 

3? 

0 IE 8 

136,143,148 




O 

33 

0 IF 8 

149, 152 





34 

0 IF 4 

148,151 






40 

0 20 C 

152, 153 





I O ' 

42 

0 210 

15 5, 15 7 




o 

5 0 

0228 

152,163 





51 

0235 

163,170 





1 

52 

0 23 E 

163,175 





O ; 

53 

0253 

175,182 




o 

54 

0 25 D 

185,186 





55 

0261 

135,185, 188 






55 

0263 

185,189 





O 

60 

0266 

152,191 




o 

61 

0271 

191,197 





62 

0282 

197, 204 






63 

0 28 C 

207,203 





O 

64 

0 29 0 

207,20 7, 210 




o 

65 

0 293 

208,211 





70 

0297 

13 5, 15 2,213 






71 

G2A8 

216,21 a 





O 

80 

0130 

92,95 




o 

81 

0 11 D 

85,86 





82 

00DE 

66,68 






83 

0 OF 3 

66,76 





° 

84 

0 15 F 

107,109 




o 

85 

0 1AD 

129, 131 





85 

Q 1 B 7 

131,134 






83 

01E1 

138, 144 





° 

89 

0158 

10 4,10 6 




o 

90 

0 2 A E 

135,152, 222 





91 

0 2D 1 

225,232 






SUP 

0 2D F 

1 





o 







o 

o 







o 

o 







o 

o 







o 

° 







o 

° 







o 

o 







o 



TIKE: 1644 


O 


00900001 
11000900002 
00900003 
00900004 
00900005 
00900005 
0090000? 
00900008 
0090 0009 
00900 010 
00900011 
00900D12 
00900013 
00900014 
00900015 
00900016 
00900017 
00900018 
00900 019 
00900020 
00900021 
0090 G 022 
00900023 
00900024 
00900025 
00900026 
00900027 
00900028 
00900029 
00900030 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FTN 3.3B OPT 

o 

COMMON 

BLANK $0 C9 6 ( 

O 

PROGRAM LENGTH 

O 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


= LPXC3 

32223 
$0057 l 

; ° 

o 

o 

o 

o 

: ° 
O 

• o 

• o 
o 

' o 
o 
o 

• o 


BTOA 


PAGE 


date: 08/19/99 


TIME: 1644 


O 

O 


87) 


o 


FIN 3.3B OPT 


LPXC) 


E TOA 


'PAGE 3 


o 


C; 

LIST OF SYMBOLS ****»■ 
o CONSTANTS ) 


o 

VALUE 


ADDRESS 

REFERENCED BY STATEMENT 


FFO 0 

(-2 55 5 

0 00 6 

16 


00 0 A 

110) 

000 3 

9,9, 10, lit 12 

o 

00 FF 

(255) 

0 00 8 

17,18 

2000 

( 8192) 

0 0 0 9 

17 


2020 

(8224) 

0 00 A 

19,20 


30 0 0 

(12288) 

000 7 

16 

o 

303 0 

(12336) 

0 00 4 

11 


VARIABLES i 



o 

NAME 

TYPE 

ADDRESS 

REFERENCED BY STATEMENT 

o 

AND 

INTR.FN, 

7FFF 

16,17,18 

I 

INTEGER 

0001 

7,13,15,16,17,18,19 


IBF 

INTEGER 

0 0DC C 

1 


IBTM 

INTEGER 

0DDB C 

1 

o 

IBUNIT 

INTEGER 

0 006 G 

1 

ICPMC 

INTEGER 

00D5 C 

1 


IOGTR 

I NT E G ER 

00DA C 

1,7 


IFRR 

INTEGER 

0 0 C B C 

1 

o 

IFATAL 

INTEGER 

0004 C 

1 

IFILE 

INTEGER 

0 0 D 9 C 

1 


IFX 

INTEGER 

0C94 C 

1 


IMASC 

INTEGER 

0067 0 

1 

o 

INC X 

INTEGER 

0066 C 

i 

IMF 

INTEGER 

06B8 G 

1 


IMOOE 

INTEGER 

000 1 C 

1 


IMUNIT 

INTEGER 

0 0D7 C 

1 

o 

I MV A 

INTEGER 

aocc c 

1 

IMVB 

INTEGER 

0GCD C 

1 


I MVC 

INTEGER 

Q0CE G 

1 

1 

I MV D 

INTEGER 

0 0CF C 

1 

i ° 

INUNIT 

INTEGER 

0 03 8 C 

1 

IOBUF 

INTEGER 

000 3 C 

1,14, 16, 17,18, 19,20 


IOCTR 

INTEGER 

0064 C 

1 


IPA SS 

INTEGER 

0C9 5 C 

1 

o 

IPS 

INTEGER 

0 0 D 2 C 

1 

I PM 

INTEGER. 

0 0 D 3 G 

1 


IROFLG 

INTEGER 

0 00 0 C 

1 


ISCP 

INTEGER 

Q € 0 0 C 

1 

o 

ISECT 

INTEGER 

00D1 G 

1 

ISODEV 

INTEGER 

0055 C 

1 


ITMASC 

INTEGER 

0 G C 7 C 

1 

I 

I UN IT 

INTEGER 

000 2 C 

1 


o 


o 


DAT £1 08/19/99 


TIME: 1644 


c 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

o 

o 

o 


DATE: 08/19/99 TIME! 1644 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


3.3B (OPT = LPXC) 


OATES 08/19/99 TINE*. 1644 


SUBROUTINE ISTAT 

1 /OECK-TD 010 M50S 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5*0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

P A RA MET EPS 

IN- I FILE UNIT TO TAKE STATUS ON 
OUT-NON ZERO IF FILE MARK UP 
STATUS TAKEN ON MAG TAPE DEVICES ONLY 
COMMON IR OF LG, I MODE, IUNIT , IQQUFI97) ,IOCTR 
COMMON ISODEV,IMCX, IMASCt96),ITMASC(4) , IERR , 

COMMON IMVA,IMVB, IMVC,IMVD, I SCR, I SECT ,IPB»IPM,IFA TAL 
COMMON ICPMC, IBUN IT, IMUNIT, INUNIT, IFILE , IDCTR 
COMMON IBTM,I8F(15005,IMF (1 50 0 3 , IF X , I P ASS 
MONITOR STATUS REQUEST 


ASSEM $C400,+IFILE,$68Q3 
ASSEM $54F4,$460Q ,50 ,$0 
ASSEM $68 0 0 , JST AT 
SAVE STATUS 
ASSEM S480 0 , JPT AB 
SAVE TYPE OF UNIT 
I F I LE = 0 

IMTD=AND (JPTAB,$38003 
CHECK IF MAG TAPE 
IFi IMTD.NE, $0800. AND. INTO. 
IMTD=AND'(JSTAT,$0 80 0') 

IF( IMTD.NE. 0) I FI LE= 1 
RETURN 

IF? IMTD.NE. $20003 RETURN 
IMTD=ANDIJSTAT,$Q2003 
GO TO 20 
END 


NF.S1 8003 


OlOQGOOl 
SUMMARY- 11 001 00 ODOR 
01000003 
O10B0G0-+ 
01 00 D 0 0 5 
01030006 
01000007 
01 00 0 0 0 8 
01000009 
01000010 
OlOGOOll 
01000012 
OlOOG 013 
0 1 00 0 0 14 
01000015 
01000016 
01000017 
01000018 
0100 Q 019 
01000020 
OIDOO 021 
01000022 
01000023 
OlOQO 024 
01000025 
OIGOO 026 
01 00 0 027 
01000023 
01000029 
01000030 
01300031 
01000032 
0100 0 033 


o 


o 

FTN 3.3B HPT = LPXC) 

c 

COMMON 

BLANK $ 0C96 ( 322?) 

o 

PROGRAM LENGTH $0034 I 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 


ISTAT PAGE 2 


52) 


DATE? 08/19/99 


TIMES 1644 


f 

'^1 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



FTM 3.3B (OPT = LPXC) ISTAT PAGE 3 

o 

***** LIST OF SYMBOLS ***** 

O CONSTANTS T 


O 

O 


VALUE 

0200 1512) 

0 8 0 0 ( 2 0 43 ) 
1800 (6144) 

2000 (8192) 

3800 (14336) 


ADDRESS REFERENCED BY STATEMENT NB : 

0007 18 

0004 13,14 

0 005 13 

0036 17 

0003 12 


O VARIABLES ! 

N A M F TYPE ADDRESS REFERENCED BY STATEMENT NB • 



AND 

INTR.FN, 

7F- F 


12,1 4, 18 


IBF 

INTEGER 

0 0DC 

c 

1 

o 

I BIN 

INTEGER 

0008 

c 

1 

IPUNIT 

INTEGER 

0 0D6 

c 

1 


ICPMC 

INTEGER 

0 0D 5 

c 

1 


IDCTR 

INTEGER 

0 00 A 

c 

1 

o 

IERR 

INTEGER 

0 0CB 

c 

1 

IFATAL 

INTEGER 

0 004 

c 

1 


IFILE. 

INTEGER 

Q0D9 

c 

1,7,11,15 


IFX 

INTEGER 

0C94 

c 

1 

o 

IMA SC 

INTEGER 

0067 

c 

1 

IMCX 

INTEGER 

0066 

c 

1 


IMF 

INTEGER 

0 6 B 8 

c 

1 


IMODE 

INTEGER 

0 00 1 

c 

1 

o 

INTO 

INTEGER 

0 00 2 


11,12,13,14,15,17,18 

IMUNIT 

INTEGER 

0 00 7 

c 

1 


IM V A 

INTEGER 

oocc 

c 

1 


IHV9 

INTEGER 

0 0CD 

c 

1 

o 

IM VC 

INTEGER 

0CCE 

c 

1 

I M V D 

INTEGFR 

D0CF 

G 

1 


INUNIT 

INTEGER 

0 008 

c 

1 


I33UF 

INTEGER 

000 3 

c 

1 

o 

IOC TR 

INTEGER 

0064 

G 

1 

IPASS 

INTEGER 

0C95 

c 

1 


IPS 

INTEGER 

0002 

c 

1 


I PM 

INTEGER 

O0D3 

c 

1 

o 

IRQFLG 

INTEGER 

00 0 0 

c 

1 

ISCP 

INTEGER 

00D0 

c 

1 


ISECT 

INTEGER 

9 GDI 

c. 

1 


I SO DEV 

INTEGER 

0065 

G 

1 

o 

ITMASC 

INTEGER 

0 0 C 7 

c 

1 

IUNIT 

INTEGER 

0 00 2 

c 

1 


JPTAB 

INTEGER 

0 00 1 


8,12 


JSTAT 

INTEGER 

000 0 


8, 14,18 


O 


O 


DATE? 08/19/99 


TIME': 1644 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FTN 3 » 3 B (OPF 


LPXC) 


ISTAT 


PAGE 


4 



O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 


DATE'S 06/19/99 


TIKES 164^ 


O 


O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 



o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 


G 

FIN 3.3 B (OPT = LPXC ) SCIO PAGE 2 

O 

COMMON 

BLANK $0096 ( 3222) 

O 

PROGRA?-) LENGTH SOOOF C 15) 

r\ EXTERNALS 

- DISKW 

O 


O 


O 


o 


o 


O 


O 


O 


o 


o 


o 


o 


o 


DATEi 08/19/99 


TINE 5 1644 


O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



08/19/99 


TIME'S 1644 


o 

o 

o 

o 
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o 
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o 

o 

o 

o 

o 

o 



FTN 3.3B (OPT = LPXC) 5CIO PAGE A 

O 


q LABELED STATEMENTS J 

LABEL ADDRESS REFERENCED BY STATEMENT NB S 

O , SCIO 0 0 0 B 1 

O 

o 


o 

o 

o 

o 

o 

O' 

o 

o 

o 

o 


o 


DATE; 08/19/99 


TIME'S 1644 


G 

D 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



FT N 3.3B (OPT = LPXC) 


DATE 5 Q 8/ 19/99 


II HE? 1644 


SUBROUTINE SCRD „ „ „„„„ „ „ 

1 /DECK-ID 012 MSOS 5.0 

HASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 
COMMON IRDFLG, INODE, IUNIT,IOBUF (97) ,IOCTR 
COMMON IS ODEV, I MG X, IMASC* 96 ) , IT MA SC ( 41 , I ERR 
COMMON I MVA , I MV B, I M VC, I MV D , ISCR ,1 S ECT , IPB , IPM 
COMMON IGPMC,IBUNIT , IMUN I T , I NUN IT ,1 F I L E , IDC TR 
COMMON IBTM,IBFU50 0 i .IMF (1S00 3 .IFX.IPASS 
COMPUTE SECTOR TO READ 
IS ECT=ISCR 

CALL DISKRIISECT.IOBUF) 

RETURN 

END 


01200001 
SUMMARY- 11001200002 
01200003 
01200004 
0120 0005 
01200006 
01200007 
01200008 
01200009 
01200013 
01200011 
01 20 G 0 12 
0120 0 013 
01200014 
01200015 


o 


FTN 3.3B (OPT 


LPXC) 


SCRD 


PAGE 


2 



o 

o 

o 


COMMON 

BLANK $ 0 C 9 6 I 3222J 


PROGRAM LENGTH SGODF t 

EXTERNALS 

QISKR 


15) 


o 

° 

o 


o 

o 

° 

o 

! ° 
o 

o 

o 

o 


o 


DATE: 08/19/99 


TINE: 16H 1 * 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



08 / 19/99 


TIME'S 1644 


D 

O 

O 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

FIN 3.3B 10 P T = LPXG) SCRD PAGE 4 

o 

q LABELED STATEMENTS S 

LABEL ADDRESS REFERENCED BY STATEMENT NB 3 

O SCRD ODOB i 

O 

O 

o 

O 

o 

o 


o 


o 

o 

o 

o 

o 

o 


DATE3 08/19/99 


TIME 4 1644 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FTN 3 . 3 B (OPT = LPXC) 


ICAT 


PAGE 


DATE: 08/19/99 


TIME: 1644 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


2 

3 

4 

5 

6 

7 

8 
8 
9 


C 

c 

c 

c 


SUBROUTINE IGAT „ _ „ 

/DECK-ID 013 MS OS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


*9- 


* * 


COMMON IRDFLG,IMODE,IUNIT,IOBUF (97) ,IOCTR 
COMMON IS OQEV » I MC X » IMASCC 96) , ITMASC (4) , IERR 
COMMON IMVA,IMVB, IN V C , I MV D, TSCR ,I5ECT , IP8 , I PM , I FATAL 
COMMON ICPMC, I8UN IT , I MUNI T , INUN IT , I FILE, IDC TR 
COMMO N IBTM,IBF ( 150 0 ) ,IMF (15 00 ) ,IFX,IPASS 
DIMENSION IBN(5)»II?B(5I ,IUD (5) , IAS (5) 

DATA IBNC 1) ,IBN(2) , IBNT3) ,IBN ( 4) , IBN1 5) / 

* $2 0 42 ,$494E,$20 43,$4F4E,$2C2 0/ 

DATA IR8 i 1 ) ,IRB12),IRB(3) , IR8 ( 4) , IRBI5)/ 

. S 4? 49. $ 4E2 0/ 

i IUD 1 4 ) , IUD (5)/ 


10 


DATA IUD (1) ,IU0 (2), IUD I 3 ) 

10 


*$2055 ,$4420 ,$4249, S4E41 , $ 

11 


DATA IAS(13 ,IAS(2),IASm 

11 


*$20 4l, $5343, $4949, $2020,$ 

12 


IOBUF (1) =$3120 

13 


IOC TR= 1 

14 


ISODE V=$ 0 8F B 

1 5 


CALL ASCOUT 

16 


IA= G 


C 

HOLDER FOR MODE CHANGE 

17 


I F I LE= 0 

18 


IDCTR=i 

19 


IUNIT = IMUNIT 


C 

DO READ IN BIN MODE IREA 

20 


IMODE=0 

21 


IPRINT=0 

22 

61 

ICMOO= IMODE 

23 


CALL IREAD 

24 

60 

IFI IGM0D.NE.IM00E) GO TO 


C 

TAKE STATUS FOR FILE MAR 

25 

50 

IFI L£=IUNI T 

26 


CALL ISTAT 

27 


IFtIFILE.EQ.Q) GO TO 21 

28 


RETURN 


u 

c 

ASTERISK BINARY CONTROL 

29 

C 

21 

IFI AND (IOBUF 11) ,$7F00)-$2 

30 

23 

IPRINT=0 

31 


DO 24 1=59, 1,-1 

32 

2* 

IOBUF { I+9)= IOBUF I I ) 

33 


DO 25 1=1,5 

34 

25 

I0BUFII + 4) = IBNfI) 

35 

31 

CALL BTO A 

36 


I0CTR=I0CTR+9 

37 


ISODE V=$G'8FB 

38 


CALL ASCOUT 

39 


IDCTR=IDCTR+1 


WILL CHANGE THE MODE AS NECESSARY 


20 


STATEM ENT 


22,23,22 


01300 001 
SUMMARY-11001300002 
01300003 
01300004 
01300005 
01300006 
01300007 
01300008 
01300009 
01300010 
01300011 
01300012 
01300 013 
01 3 0 G 0 14 
01300015 
01300015 
01300017 
01300018 
01300019 
01300020 
01300021 
01300022 
01300023 
0133G D24 
01300025 
01300026 
0130 0 027 
01300023 
0130 B 029 
01300030 
01300031 
01300032 
01300033 
01300034 
01300035 
01300Q36 
01330037 
01300038 
01300039 
01300040 
0130 0 0 41 
01300 042 
01300043 
01300044 
01300045 
01300046 
01300047 
01300048 
01300049 
0130 0 D 50 
, 01300051 
01300052 
01300053 
01300054 


O 

O 

O 

O 

o 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 


o 


o 


FTN 3.33 (OPT = LPXC) 


DATE,* 08/19/99 


C HAS MODE BEEN CHANGED 

I FUCMOO.NE.IMOQE) GO TO 20 

GO TO 61 
C 

C RELOCATABLE BINARY DATA ARFA 

C 

22 IF(IOBUFll) .NE.S205 0) GO TO 40 
0 ***** ** **************** ** * ***** * ***** 

DO 26 1=34,5, -1 

r-* ***************************** **** * 

"26 IOBUF 11*7 > = IOBUFl I) 

DO 2/ 1=1,5 
27 IOBUF n>4-}=IRBII) 

CALL BTOA 
IOBUF itl0)=$2020 
IOBUF Ul)=$2020 
£******* 

IOBUF.tl55 = $2020 
IOBUF (16) =$2020 
IOBUF (17)=$2020 
IOCTR=41 

0 ** ** ****** ********** * ********************** * *** ¥ ¥ * * * * ***** * 

I SO DE V=$ 0 8FB 
CALL ASCOUT 
IDCTR=IDCTR+1 

32 CALL IREAD 

IF( IOBUFI1) .NE.SG05G) GO TO 32 
IPR.IN T=0 
GO TO 61 
C 

C UNDEFINED BINARY BLOCK AREA 

C 

40 IF(IPRINT.NE.O) GO TO 61 
IPRIN T=1 

DO 33 1=1,5 

33 IOBUF (I+4)=IUDtI) 

CALL BTOA 

I O C T R = 9 
IS00Ey=$G8FB 
CALL ASCOUT 
ID C TR = I DCT R+l 
GO TO 61 
C 

C ASCII RECORD AREA 

C 

20 IPRIN T=G 

IFILE=IUNIT 
CALL ISTAT 

IFC IFILE. EQ.03 GO TO 41 
RETURN 

41 I CM OD = IMOD'E 

DO 43 1= I OCTR, 1 , -1 
43 IOBUF (I*i0)-IO8UFTI ) 

DO 42 1=1,5 


TIME? 1644 


01300055 

01300056 

0130 G 057 

01300058 

01300059 

01300060 

0130 0 061 

01300062 

01300063 

0130 0 06 4 

01300065 

01300066 

01300067 

01300068 

01300069 

01300070 

01300071 

01300 072 

01300073 

01300074 

01300 075 

01300076 

01300077 

01300073 

01300079 

01300080 

0130 0081 

0130Q 082 

01300083 

01300084 

01300085 

01300086 

01300087 

01300088 

01390089 

013 0-0 090 

01300091 

013 0 0 0 92 

01300093 

01300094 

01300095 

01300096 

01300097 

01300098 

01300099 

01300100 

01300101 

01300102 

01300103 

01300104 

0130010 5 

0130 0 ID 6 

01300107 

01300108 


o 

n 

a J 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FTN 3.3B OPT = L.PXC) 


I CAT 


PAGE 


DATE:: 08/19/99 


TIMES 1644 


80 

81 

82 

83 

84 

85 

86 
87 
38 

89 

90 

91 

92 

93 

94 

95 


42 IOBUF <I+4>=IAS(I> 01300109 

IOBUF 110) = ”52020 01300 110 

CALL BFOA 01300111 

Q ****¥**^Mf.¥ » .»:***** ****-***¥»-»¥*.***-**-*¥**♦ ******** *** *********** ****** JQ £300112 

IOCTR=IOCTR+10 01300113 

q*** ******* ******** *********** ********************* ********^************7 0^3 go 1 j _4 
ISO DEV=$ 3 8FB 01300115 

CALL ASCOUT 01300115 

IOCTR=IDCTR*l 01300117 

CALL IREA0 013Q0118 

IFI LE=IUNIT 01300119 

CALL 1ST AT 01300120 

IF { l FILE. EG. 0 ) GO TO 44 01300121 

RETURN 01300122 

44 IFIICMOD. EQ.IMOOE) GO TO 41 01300123 

-ICMOO=IMODE 01300124 


GO TO 
END 


60 


01300125 

01300126 


O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

O 

O 

o 

o 

o 

o 




0 ATE J 08/19/99 


TIME? 1644 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1 G 





**V,,*' 


FTM 3. 

3B (OPT = 

LPXC) 

ICAT PAGE 5 

DATE) 08/19/99 TIME! 1644 

c 


LIST 

OF S V H 

B 0 L S ***** 

□ 

o 

CONSTANTS ! 



o 

o 

VALUE 


ADDRESS 

REFERENCED BY STATEMENT N3 : 

o 

CO 5 D 

(-16303) 

0 0 1 E 

58 



D5EF 

{-10752 ) 

0 01 A 

29 


o 

0 8 F B 

(2299) 

0015 

14,37,54*67,84 

o 

2020 

182243 

0 0 1 D 

48,49,50 , 51,52 ,81 


2050 

(8272) 

001 C 

42 



312 0 

(12576) 

0014 

12 


o 

7F0 0 

I 32512) 

0 019 

29 

o 


VARIABLES : 




o 

NAME 

TYPE 

ADDRESS 

REFERENCED BY STATEMENT NB 3 

o 

o 

ANO 

INTR.FN, 

7FFF 

29 

,78,79,80 O 

I 

INTEGER 

0018 

30,32,33,34, 43,44,45,46,63, 64,77 


IA 

INTEGER 

0 016 

14,16 



IAS 

INTEGER 

0 DO F 

1,11,80 


o 

IBF 

INTEGER 

OGDC C 

1 

o 

IBM 

INTEGER 

000 0 

1,8,34 


IfiTM 

INTEGER 

GQOB C 

1 



IRUNIT 

INTEGER 

0036 C 

1 


o 

ICMOD 

INTEGER 

0018 

21,22,24,40,76,92,93 

o 

ICPMC 

INTEGER 

0 OD 5 G 

1 


IOCTR 

INTEGER 

Q 00 A C 

1,18,39,56,69,86 



IFRR 

INTEGER 

0 DC 8 C 

1 


o 

IFATAL 

INTEGER. 

ODD 4 C 

1 

o 

IFILE 

INTEGER 

0 0 D 9 C 

1,17,25,27,72,74,88, 90 


IFX 

INTEGER 

QC94 C 

1 



IHASC 

INTEGER 

0 06 7 C 

1 


o 

IMCX 

INTEGER 

006b C 

1 

o 

INF 

INTEGER 

0 6B8 C 

1 


IMODF 

INTEGER 

000 1 c 

1,20,22,24,40,76,92,93 



IN UNIT 

INTEGER 

0 GD7 C 

1,19 


o 

IMVA 

INTEGER 

OOCC C 

1 

o 

IMVB 

INTEGER 

OOCD C 

1 


IMVC 

INTEGER 

BODE C 

1 



IMVD 

INTEGER 

0 OCF C 

1 


o 

INUNIT 

INTEGER 

0 0 D 8 G 

1 

51,52,58,64,78,80,81 O 

IOBUF 

INTEGER 

■ 0003 C 

1, 12,29, 32,34, 42 , 44 , 46, 48 , 49 , 5 0, 


IOCTR 

INTEGER 

0064 G 

1,13,36, 53,66,77,83 



IP ASS 

INTEGER 

0C95 C 

1 


o 

IPS 

INTEGER 

0 00 2 C 

1 

O 

IP M 

INTEGER 

0003 C 

1 


IPRINT 

INTEGER 

0017 

20 ,21,30,59,61 ,62,71 



IPS 

INTEGER 

000 5 

1,9, 46 


o 





O 

o 





O 






. 

.. 




o 

o 


o 


DATE-! 08/19/99 


TIMES 1644 


G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 


o 


FTN 3.3B (OPT = LPXC) 


BUFIN 


PAGE 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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1 


2 
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5 

6 


7 

8 


C 

G 

C 

c 


G 

C 

c 

c 

c 

c 

c 

c 

c 

G 

G 

C 


9 

10 

10 


11 


12 

11 

13 


14 

500 

15 

12 

1 6 


17 


18 

C 

19 

13 

20 

C 

21 


22 


23 


24 

C 


C 


C 

25 

100 

26 

C 

27 

110 

28 


29 


30 


31 

11* 


SUBROUTINE BUFIN 

i /DECK-ID 014 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION* LA JOLLA * CALIFORI 
COPYRIGHT CONTROL DATA CORPORATION 1976 
** 

COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


* & 




I.RDFLG , INODE ,IUNIT, IOBUF (97) ,I0CTR 
I S ODEV * I MC X > IMASC ( 96) ,ITMASC;(43 , IERR 


ICPMCtIBUNIT * IMUNIT* INUN IT , I FILE , It 
IBTM.IBF (150 0) * IMF (15QQ3 *IFX,IPASS 
ROUTINE TO STORE B OR M UNIT ON MASS STOf 
IDCTR IS INPUT PARAMETER 
IOCTR=0 B UNIT TO BE STORED 
I DC T R=+ OR - H UNIT TO 8E STORtD 


VA RI ABLES-- 

ISCR SCRATCH SECTOR INDICATOR 
I8X B UNIT MASS STORAGE INDEX 
I M X M UNIT MASS STORAGE INDEX 


IMODE=0 

IFdQCTR) 10*11*10 
IU N IT = IMUNIT 
IMX=0 
GO TO 12 
IUNIT=IBUNIT 
IBX=0 
CONTI NUE 
CALL IREAD 
IFILEdUNIT 
CALL ISTAT 
IF(IFIL£313,13,20 
GO TO 20 TO WRITE 
IS A VE= I OBUF (963 
IOBUF (96) ~I OGTR 
SET LENGTH OF RECORD 
L= AND (I08UF(13*$7FD03 
IF I IMODE. EQ.S10 0 0 . OR .L 
IFI IOBUF (13 .EQ. $2 
GO TO 300 


DATE : 

08/19/99 TIMES 1644 


0140G 001 


SUMMARY- 11001400002 


01400003 

IA 

01400004 
01400005 
01400006 
0140 0 0 07 
0140 Q 0 03 

PM ■* IFA TAL 

01400009 

TR 

01400010 

01400011 

GE 

01400012 
01400013 
01400014 
01400015 
01400016 
014Q0 017 
0140 0 D 18 
01400019 


LAST ENTRY IN INDEX TABLE AND EXIT 


IN LAST WORD 


EQ.S2A00) GO TO 100 


IF( IMODE. NE, $100 0) 
I09UF«963=-IOBUFI9 
COMPLEMENT LENGTH 
ISCR=ISCR*1 
CALL SCIO 

ASSIGN 114 TO IRTURN 
GO TO 240 
GO TO 5G0 


Q) 

GO 

TO 

20 Q 

NO 

ASCII 

RECORD 

GO 

TO 

110 


) 




IF 

ASCII 

RECORD 


01400021 
0140 G 0 22 
01400023 
01400024 
0140 G 0 2 5 
014QG 026 
01400 027 
01400023 
0140 0 0 29 
01400330 
01400031 
01400032 
01400033 
014 0 0 034 
01400035 
01400036 
01400037 
01400 038 
0140 G 0 39 
01400040 
01400041 
01400 Q42 
0140 0 G 43 
01400044 
01*00045 
01400046 
01400 047 
01400048 
01400049 
01400050 
01400051 
01400052 
01400D53 
01400054 


O 

; O 

o 

o 

o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


FTN 3.3R (OPT = LPXC) 


BUFIN 


PAGE 


DATE: 08/19/99 


1 . ' 


C 

c 


PART II RBO PROCESSOR 


o 

32 

b 

200 

ISCR=ISCR+1 


33 


ASSIGN 201 TO IRTURN 


34 


GO TO 240 

o 

35 

201 

CALL SCIO 

36 

220 

CALL IREAD 


37 


IFILE=IUNIT 


38 


CALL ISTAT 

O ; 

39 


IFIIFILE.NE.O ) GO TO 5 

40 


IOBUF (96 ) = IOGTR 


41 


IF I IOBUF 11) .EQ. $C 0 5 G ) 


4? 


ISCR= I SCR+1 

O 

43 


CALL SCIO 

44 


GO TO 220 


45 

230 

ISCR= ISC R+l 


46 


CALL SCIO 


47 


GO TO 500 

u 

48 

240 

IF( I9CTR.NE.Q ) GO TO ; 


49 


I 8 X = I BX + 1 


50 


I F ( I 8X • LE .1500) GO TO 

o 

51 


ASSEM $54F4,S4A00 

52 

401 

CONTINUE 


53 


IBF (I BX)=iSCR 


54 


GO TO IRTURN 

o 

55 

241 

IMX=IMX+1 

56 


IFiIHX.LE.1 500) GO TO 


57 


ASSEM $54F4,$4A0Q 


58 

402 

CONTINUE 

o 

59 


IMF (I MX ) =1 SCR 

60 

C' 

GO TO IRTURN 



C 

c 

PART III ABSOLUTIZED 

o 

61 

C 

300 

ISCR= ISCRh-1 


62 


ASSIGN 301 TO IRTURN 


63 


GO TO 240 

o 

64 

301 

CALL SCIO 

65 


IFCIQGTR.NE.96) GO TO 


66 


DO 30 2 1=2.96 


67 

302 

IOBUF (I)=0 

o 

68 


IOBUF C 1 i — ISAWE 

69 


ISCR= ISCR+1 


70 


CALL SCIO 


71 

310 

CALL IREAD 

o 

72 


ISA\/E=I0BUF(96) 

73 


IOBUF (96) = I0CTR 


74 


IFILE=IUNIT 


75 


CALL ISTAT 

o 

76 


IFIIFILE.NE.O) GO TO : 

7 7 

C 

FINISH UP IF END OF ; 
L=AND (IOBUF ( 1) .S7F00) 



78 


IFIL.EQ.$2A00.3R.L.EQ 


2 0 

GO TO 230 


241 

401 


402 


310 


20 

READ 


IN 


GO TO 13 


TIME: 1644 


01400 055 

01400056 

01400057 

01400058 

01400059 

0140G060 

01400061 

01400062 

01400063 

01400064 

01400065 

01400066 

01400067 

01400068 

01400 Q69 

01400070 

01400071 

01400072 

01400073 

01400074 

01400075 

01 40 G 0 76 

0140G 077 

0140 0 078 

01400079 

01400080 

01400081 

014QGQ82 

01400 083 

01400084 

01400085 

01400086 

01400087 

01400080 

01400089 

01400090 

01400091 

01400092 

01400093 

01400094 

01400095 

01400096 

01400097 

01400 093 

01400 099 

01400100 

01400101 

01400 102 

01400103 

0140G104 

01400105 

01400106 

01400107 

01400108 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


I 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


3. 36 

(OPT = 

LPXC ) 

8UFIN 

79 


ISCR=ISCR+i 


8 Q 

r* 

GO TO 301 



u 

c 

SUM UP AREA 

FORCE OUT LAST 


c 

OF LAST ENTRY 


c 



81 

20 

ISC R= ISCR+ 1 


82 


ASSIGN 21 TO 

IRTURN 

83 


GO TO 240 


84 

21 

RETURN 


85 


END 



PAGE 


DATE! 08/19/99 


I KE X 

1644 

01400 

109 

01400 

11C 

01400 

111 

01400 

112 

01400 

113 

01400 

114 

01400 

115 

01400 

115 

01400 

117 

01400 

118 

01400 

119 


o 

o 

o 

o 

o 

o 

o 

o 

o 

c 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


FTN 3.3B (OPT 


LPXC ) 


RUFIN 


PAGE 


A 



o 

o 

o 

o 

o 

o 


DATE'S 08/19/99 TIMES 1644 

o 

• o 

' o 
o 
o 
o 
o 
o 

: ° 

o 

o 
o 
' o 
o 
o 


o 


c 

FTN 3.38 (OPT = LPXC) BUFIN PAGE 5 DATES 

o 

***** list of symbols ***** 
o 1 CONSTANTS : 


o • 

VA LUE 


ADDRESS 


CG5 0 

(-16303) 

000 9 


050C 

( 1500 ) 

000 A 

f~'\ 

1000 

(40 96) 

0 00 5 


2050 

(8272 ) 

000 7 


2 A 0 0 

(10 75 2 ) 

0 006 


7F 0 u 

(32 512 ) 

0 00 4 

o 





yARIABLES ! 


o 

NAME 

TYPE 

ADDRESS 


AND 

INTR.FN. 

7FFF 

o 

I 

INTEGER 

0 00 B 

IBF 

INTEGER 

00DC C 


IBTM 

INTEGER 

0 00 B C 


IBUNIT 

INTEGER 

0006 C 

o 

IBX 

INTEGER 

0 00 1 

ICPMC 

INTEGER 

0 0 D 5 c 


IDCTR 

INTEGER 

00DA C 


IE RR 

INTEGER 

00CB C 

o 

IFATAL 

INTEGER 

0 0 D 4 C 

IFILE 

INTEGER 

0009 C 


I F X 

INTEGER 

0C94 C 


IMAS-C 

INTEGER 

0067 C 

o 

IMCX 

INTEGER 

0 05 6 G 

IMF 

INTEGER 

Q6B8 C 


IMODE 

INTEGER 

000 1 C 


IMUNIT 

INTEGER 

0 0D7 C 

o 

IMVA 

INTEGER 

OOCC C 

IMVB 

INTEGER 

0 0GD C 


IMVC 

INTEGER 

OOCE C 


IMVD 

INTEGER 

0GCF G 

o 

I MX 

INTEGER 

0 0 Q 0 

INUNIT 

INTEGER 

ODD 8 C 


10 B LF 

INTEGER 

0 00 3 C 


IOGTR 

INTEGER 

0064 C 

o 

IPA SS 

INTEGER 

0C95 C 

IPB 

INTEGER 

0 0 D 2 C 


IP M 

INTEGER 

0 0D3 C 


IRQ FLG 

INTEGER 

000 0 C 

o 

IRTURN 

INTEGER 

000 8 

ISA VE 

INTEGER 

0 00 2 


ISCR 

INTEGER 

00D0 C 


ISECT 

INTEGER 

0001 G 


O 


REFERENCED BY STATEMENT NB ! 
41 

50,56 

22.25.78 

23.78 

22.78 
21,77 


REFERENCED BY STATEMENT NB 1 

21,77 
65,67 
1,5 3 
1 

1,12 

12,13,49,50,53 

1 

1,8,43 

1 

1 

1,16,18, 37,-39,74,76 
1 
1 
1 

1.59 

1,7,22,25,78 

1,9 

1 

1 

1 

1 

9.10.55. 56.59 

1,19,2 0, 21,23,26,40,41,67,68,72,73,77 
1,20,40, 65,73 
1 


27,33,54,60,62,82 

19,19,68,72 

1,27,32, 42,45,53,59,61,69,79,81 
1 


o 


08/19/99 TIMES 1644 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FT M 3.3B COPT 


LPXC ) 


3UFIN 


PAGE 6 



CATES 08/19/99 


TIMES 1644 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



FTN 3 .3 B I3PT = LPXC) 


BATE: 08/19/99 


TIMES 1644 


SUBROUTINE MOVE 

1 /DECK-ID 015 HSOS 5,0 

MASS STORAGE OPERATING SYSTEM VERSION 5,0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 
COMMON IRDFLG, IHODE,IUNIT ,I08UF(97> ,IOCTR 
COMMON ISOOEVjIMGX, IMASCf 96 ) , ITMASC i 4 ) , IERR 
COMMON IMVA.IMVB, IMVC , IHVD , ISCR ,ISECT ,IP8,IPM , IFATAL 
COMMON ICPMC , IBUNIT, I MUNIT, INUNIT, IFILE, IDCTR 
COMMON IBTM,IBFfl500l , IMF (1500) ,IFX-,IPASS 
PARAMETERS 

IMVA-MOVE FROM TO PRAM 
IMVB-MOVE TO PARAM 
IM.VC-NUMBER OF UNITS TO MOVE 
I MVO -POSIT ION NUMBER IF ON DISK 


7 

C 

DIMENSION ITI0B196) 

8 


J= I MV B 

9 


IFfJ.LE.15QQ) GO TO 401 

10 


ASSEM S54F4 ,$ 4A 0 0 

11 

401 

CONTI NUE 

12 


K= I MV C 

13 

10 

IFIIMVD.NE.Q1 GO TO 200 

1 u 

14 

IF t K» 11,11,12 

15 

11 

RETURN 

1 6 

12 

IUNIT = IMVA 

1 7 


IFIIMVD.NE.01 GO TO 15 

18 


CALL IREAD 

19 


GO TO 16 

20 

15 

C 

ASSIGN 16 TO TRET 

21 

C 

20 

CALL SCRD 

22 


IFII0BUFK96H 70,71,71 

23 

70 

IMOQE=$1QOO 

24 


GO TO 73 

25 

71 

TMO QE = 0 

26 

73 

CONTINUE 

27 


IOCTR=IOBUF (961 

28 


IFdOCTR.NE.961 GO TO 19 

29 


DO 13 1=1,95 

30 

13 

ITIOB tI)=I08UF*I) 

31 


ISC R= ISCR +1 

32 


CALL SCRD 

33 


I0BUFI96) = I0BUF,U) 

3U 


DO 18 1=1,95 

35 

18 

IOBUF € I 1 = ITIOB I I ) 

36 


I0CTR=96 

37 

19 

GO TO IRET 

38 

16 

IF (IQCTR)4G,3Q,30 


ASCII AND BINARY CONTROL STMT AREA 


01500001 
SUMMARY- 11 Q 0150 G 0 0 2 
01500003 
01500004 
01500005 
01500006 
01500007 
' ' 015000,08 

01500009 
01500010 
01500011 
01500012 
01500013 
015 0 0 014 
01500015 
01530016 
01500017 
01500018 
01500019 
01500020 
01500021 
01500022 
01500023 
01500024 
01500025 
0150 0 026 
01500027 
01500028 
01500029 
01500030 
01500031 
01500032 
01500033 
01500034 
01500035 
01500036 
01500037 
01500038 
01500039 
01500040 
01500041 
01500042 
01500 043 
01500044 
0150G045 
01500046 
01 50 Q 047 
01500048 
01500 049 
01500Q5Q 
01500051 
01500052 
01500053 
01 50 0 G 5 ^ 


G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FTM TI . HPT 


i pyn ) 


MOVE 


PAGE 


2 



DATE;: 08/19/99 TIME:: 1644 


01500055 

01500056 

01500 057 

01500058 

01500059 

01590060 

01500061 

01500062 

01500063 

01500064 

01500065 

01500066 

01500067 

0150 0 G6 8 

01500 069 

01500070 

01500071 

01500072 

01500073 

0150 G 074 

01500075 

01500076 

01500077 

01500078 

01500079 

01500080 

015GC 081 

01 50 0 0 82 

01500083 

01500084 

01500085 

0150 0 086 

0159 0 087 

01500088 

01500089 

01500090 

01500091 

015G0G92 

0150 G 093 

01 50 G 0 94 

015DG 095 

01500096 

015QO 097 

01500098 

01500099 

01590100 

01500101. 

01500102 

01590103 

01500104 

01500105 

01500106 

.EG. $2050) GO TO 52 01500107 

01500108 


o 

□ 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


f'l 

FTN 3.3R (OPT = LPXC) M017E PAGE 3 

o 

IUNIT=IHVB 
CALL IWRITE 
GO TO 56 
52 IRDFLG=1 
GO TO 45 

r 

C DISK ADDRESS COMPUTATION AREA 

q 

20 0 I F { I M VA • N £ . 0 ) GO TO 201 
ISCR= IBF ( J J 
GO TO 14 

201 ISCR= IMF { J) 

GO TO 14 
END 

O 


O 


O 


O 


O 


O 


O 


O 


O 


o 


o 


o 



DATE: 08/19/99 


TIME" 1644 


0150 0 109 
01500 110 
01500111 
01500112 
01500113 
01590114 
O150G 115 
01500 116 
01500117 
01500118 
01500119 
01500120 
0150 G 1 21 
01500122 


O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

O 

O 

o 


(J 

FIN 3.3B OPT = LPXC) MOVE PAGE A 

o 

COHN ON 

BLANK $0096 t 3222') 

o 

PROGRAM LENGTH $0169 I 361) 
r\ EXTERNALS 

U IREAD SCRD IWRITE ISTAT TERROR 

O 

O 

o 

o 

o 

o 

I 

o 
° 
o 
1 o 

I ° 

° 

o 


DATE:: 08/19/99 


II PEI 1644 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FTN 3.3B {OPT = LPXC) MOVE PAGE 5 PATES 08/19/99 TIME'S 1644 


1 

LIST 0 

F S Y M 

B 0 L S ***** 


CONSTANTS S 
VALUE 

ADDRESS 

REFERENCED BY STATEMENT NB i 

o 

o 

COSO 

{-16303 ) 

0 06 A 

64 


05 D C 

( 1500 5 

0061 

9 

o 

100 0 

{ 40 96 5 

0064 

23,49 

2050 

(8272 ) 

0069 

51,83 

2 AO 0 

(107525 

0058 

50,83 


7F00 

(325125 

0067 

48,82 

o 

VARIABLES S 
NAME TYPE 

ADDRESS 

REFERENCED BY STATEMENT NB J 

o 

AND 

INTR.FN. 

7FFF 

43,82 

o 

I 

INTEGER 

0 065 

28,30,34,35 

IBF 

INTEGER 

OO0C C 

1,91 

I BTM 

INTEGER 

0008 C 

1 


IBUNIT 

INTEGER 

0 0D6 C 

1 


ICPMC 

INTEGER 

QQD 5 C 

1 

o 

103 TR 

INTEGER 

0OOA C 

1 

IERR 

INTEGER 

OOCB C 

1,80 


IFATAL 

INTEGER 

0004 C 

1 

o 

IFILE 

INTEGER 

0039 C 

1,75,77 

I F X 

INTEGER 

0C9 4 C 

1 

IMA SC 

INTEGER 

0057 C 

1 


IMG X 

INTEGER 

0 066 C 

1 

o 

IMF 

INTEGER 

0 68 8 C 

1,93 

INODE 

INTEGER 

0 00 1 C 

1,23,25,49 

IMUNIT 

INTEGER 

0007 C 

1 


I MV A 

INTEGER 

OOCC C 

1,16,55,73,90 r or 

o 

iMvr e 

INTEGER 

0 OGD C 

1,40,41, 52,53,61,62,66,67,84,85 

IN VC 

INTEGER 

OOCE C 

1,12 


I MVD 

INTEGER 

OGCF C 

1,8,13 ,17,44,56,69 


INUNIT 

INTEGER 

0008 C 

1 

o 

I08UF 

INTEGER 

0 00 3 C 

1, 22,27, 30,33, 35,48,51,64,82,83 

IOCTR 

INTEGER 

0064 C 

1,27,28,36,38,39,83 


IPASS 

INTEGER 

0C95 C 

1 


IPB 

INTEGER 

0 0 D 2 C 

1 

o 

I PM 

INTEGER 

0003 C 

1 

IROFLG 

I NT EG ER 

GOOD C 

1,88 


IRFT 

INTEGER 

0 D63 

20,37,58,71 


ISC R 

INTEGER 

QQDG C 

1, 31,57, 70,91, 93 

o 

ISFCT 

INTEGER 

0 031 C 

1 

ISODEV 

INTEGER 

0065 C 

1 


ITIOB 

INTEGER 

0 00 0 

1,30,35 


ITMASC 

INTEGER 

0 OC 7 C 

1 



ftm mpT 


I pyr, ) 


MOVE 


PAGE 


6 



DATE: 08/19/99 


TIME: 1644 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


SILP 


PAGE 


DATE* Q8/19/99 


000 1 
00 0 2 
00 0 3 
00 0 4 


* 

* 


NAH SILP DECK-ID 016 MSOS 5.0 

HASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY- 11001600001 
01600002 
01600003 
0160 0Q04 


00 0 6 
00 0 7 
0 G G 8 
0 0 0 9 
0 Q 1 0 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
00 2 1 
0022 

0024 


¥ 

¥ 

¥ 

# 

* 

¥ 

¥ 

¥ 

¥ 

'¥ 

* 

¥ 

¥ 

¥ 

* 

¥ 

'¥ 


THIS PROGRAM IS USED TO 
THE SYSTEM INITIALIZER. 

SINCE THE SYSTEM 
RUNS IN THE LOWER 
MUST BRING IN THE 
AND CHECK TO SEE 
UNPROTECTED IS. 


BRING IN 


**MSQS 

**MSOS 

**HSOS 

**MSOS 

**MSOS 


INITIALIZER ONLY 
3 2 K THIS PROGRAM 
SYSTEM INIALIALIZER*MS0S 
WHAT THE START OF **MSOS 


SILP READS THE INITIALIZER FILE 
GORE, MOVES THE FILE TO HIGHEST 
AVAILABLE IN SANK 0, INHIBITS I 
AND EXECUTES THE INITIALIZER. 

MESSAGES FROM SILP SPECIFY WHAT 
ADDRESS OF SI WILL BE, AND INST 
TO TURN OFF PROTEC SWITCH. 


INTO UNPROTECTED 
LOCATION 
NT ERRUPTS * 


THE STARTING 
RUCT THE OPERATOR 


4. 

4. 

4. 

4. 

4 » 

4. 

4* 

4. 


4 • 


**MSOS 
**MSOS 
68'* 1 53 7 
68*1537 
68*1 537 
68*1 537 
68*1537 
68*1537 
68*1537 
68*1537 


00160 
00160 
00160 
00160 
00160 
00160 
00160 
00160 
00160 
0160 
0160 
016 0 
0160 
0160 
0160 
0160 
0160 


0 G 0 6 
0 00 7 
0 00 8 
0 00 9 
0010 
0011 
0012 
0 Q13 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0 021 
0022 


ENT SILP 


01600 024 


Q 0 2 6 




'LENGTH' MUST BE EQU TO NO LESS THAN INITIALIZER LENGTH 68*1537 O16QQ026 


0028 

0029 

0030 


*¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥*¥¥¥¥¥¥¥¥ 

2330 LENGTH EQU LENGTH! $2 30 0‘) 
¥.*«¥¥¥¥¥¥«¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 


6 8*1537 
68*1537 
68*1537 


01600 026 
01600029 
01600030 


0 03 2 
0033 
0 0 3 3 
0033 
0033 


PQOOO 185F 


P0001 
P 0 0 0 2 
PQ003 
P0 0Q4 


5 4F4 
5 A 0 1 
OGOD 
0 0 0 0 


SILP JMP* SI 
GETFIL GTFILE 51, NAME- 


PRINT OUT FWA MESSAGE 
•GETFIL-1 , FWA, , , ,0,1,1 


0033 

PO 005 

0 8 02 




P 0 3 0 6 

GO 00 




PO 0 07 

00 50 P 



00 33 

PO 0 08 

000 0 




PO 0Q9 

0 0 5A 



0 03 4 

POOOA 

0 00 0 

NUM 

O 

<•* 

CD 


PO 0GB 

0 00 0 

JMP- 

<$EAJ 

0035 

POOOC 

1 4EA 

0 0 3 6 

PODOD 

54F4 G1 

RTJ- 

K$F4» 

0037 

P000E 

4GG0 

NUM 

$ 4C0 Q 

0038 

PO 0 OF 

0 020 P 

ABC 

COMP 

0039 

P0010 

0 00 0 

NUM 

0 


FWRITE 


68*1537 

68*1537 


68*1 537 
68*153 7 
68*153 7 
68*153 7 
68*1537 


01600032 
0160 0 033 


68*1537 01600034 


01600035 
01600 036 
01600037 
01600038 
01600039 


<s T3 P 


PAGE 


2 


DATE: 08/19/99 



6 8 5 1 53 7 
68*1537 
68*1537 
68*1537 
68*1537 


68*1537 
68*1537 
68*1 537 
68*1537 
68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 


01600040 
01600041 
01600042 
01600043 
0160 0 0 44 


O16Q0Q45 
01600 046 
0 160 0 047 
016GG 048 
01600049 

01600050 
01600051 
01600052 
01600053 
0160 0 054 
0160 D 055 

01600056 
01600 057 
01600058 
01600059 
016Q006Q 
01600061 
01600062 

01600063 

01600064 

01600065 

01600066 


o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

c 


SILP 


PAGE 


3 


f, 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

I ° 

I ° 

° 

I 

o 


0067 P0 043 08 74 
0 06 8 P 0 044 0 104 
0069 P0 045 0 001 
00 70 P0046 D 8 0 0 
P 0 047 0014 

0071 P0048 18F6 

0072 P0049 1522 
00 73 

007 4 
007 5 

0076 P004A C0F5 

0077 PD 048 0121 

0078 P004C C011 

0079 P004D 6 0 FF 
00 8 0 P004E CC0C 
0081 P004F 6722 
0032 P0050 GOOD 

P 0 051 2300 
0083 P0 052 0834 
0034 P 0 053 0105 
00 85 P0 054 0 DF£ 
0086 P0055 C805 
00 87 P 0 056 0 9FE 

0088 PU357 6803 

0089 P0058 18F5 
009 0 P 0 0 59 1722 


EAQ A 
SAZ OONEDN 
INQ 1 
RAO W0R0B1 

JMP* H OV EON 
DON ED N JMP- I $2 2 3 ,1 
* 

* ALL IN BANK 

» 

BAN KG LOA- $F5 
SAP 1 
LOA- $11 
STA- I 

MOVtJ P LOA* IWORQBO) 
STA- i$22) ,B 
LDA =XLENGTH 

AAQ A 
SAZ DONEU'P 
INQ -1 
LDA* WORDBQ 
INA -1 
ST A* WORDBO 
JMP* MOVEUP 
DONEUP JMP- 1$ 22) ,8 


0091 




* 


FWA*L 

0092 

PG05A 

235C 

P 

WORDBO 

ADC 

0093 

P005B 

0 0 5C 

P 

WORDBl 

ADC 

FWA 

009 4 


0 0 5C 

P 

FWA 

EQU 

FWA (* 

0 0 9 5 

P0Q5C 

53 49 


NAME 

ALF 

3, SI 


P0 05D 

2020 






P0 05E 

2020 



LDA- 

$F5 

0096 

P005F 

C0F5 


SI 

00 97 

P0060 

0 121 



SAP 

S2 

0098 

P0061 

con 



LDA- 

$11 

0099 

P 0 0 62 

90 00 


S2 

SUB 

= XLEN 


P 0 0 63 

2300 




Q 

0100 

P0Q64 

fi8 42 



CL R 

010 1 

P0065 

40 FF 



STQ- 

I 

0102 

P 0 0 66 

0 F E 4 


Ml 

LLS 

4 

0103 

P0 067 

0 DF 5 



INQ, 

-10 

0104 

P 0 068 

0171 



SQM 

M2 

010 5 

P 0 0 69 

0 D 0 7 



INQ 

7 

010 6 

P0 06A 

0 0 3 A 


M2 

INQ 

$3 A 

010 7 

P0 06B 

49 17 



STQ* 

M4» I 

010 8 

POO 6C 

DO FF 



RAO- 

I 

0109 

P006D 

ED FF 



LDQ- 

I 

0110 

P0 C6E 

0DFB 



INQ 

-4 

0111 

P0 06F 

0142 



SQZ 

M3 

0112 

P0070 

0 8 42 



CL R 

Q 

0113 

P0071 

18F4 



JMP* 

Ml 

0114 

P 0 072 

C 8 1 0 


M3 

LDA* 

M4 


D AT El 08/19/99 


INCREMENT ®Q* AND 
CURRENT WORD ADDRESS 


EXECUTE SI AT NEW FWA 

- START MOVE FROM LWA 

TOP OF CORE 

SKIP IF 3 2 K OR LESS 

7FFF 

NEW LWA IN J I * 

MOVE FROM BANK 0 TO TCP OF BANK 0 
START MOVE FROM LAST WORD OF SI 


DECREMENT »Q* AND 
CURRENT WORD ADDRESS 


LAST WORD ADDRESS OF SI FILE 
FIRST WORD ADDRESS OF SI FILE- 

FILE INITIALLY LOADED HERE 


68*1537 

68*1537 

68*1537 

68*1537 

68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*153 7 

68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1537 
68*1 537 
68*1537 
68*1537 
68*1537 


01600067 
01600068 
01600069 
0 16Q 0 0 7 Q 

01600071 
01600072 
01600073 
0160 0 074 
0160 0 075 
01600076 
01600077 
0160 0 078 
01600 079 
0160 0 080 
01600081 
01600082 

0160 0 083 
0 160 0 08 4 
01600085 
01600086 
0160 0 087 
016QQ 088 
01600089 
0160009.0 
01600091 
01600092 
01600093 
01600 094 
01600095 


TOP OF CORE 


STARTING ADDRESS IN «A' 

CONVERT START ADDRESS 

TO ASCII CODE 

AND STUFF INTO MESSAGE 


68*1537 01600 096 

68*1537 01600097 

68*1537 01600098 

68*1537 / Q 160 0 09 9 


68*1537 

68*1537 

68*1537 

66*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 

68*1537 


68*1 537 


68*1537 


68*1537 


68*1537 


01600100 
0 160 0 ID 1 
0160 010 2 
0160 010 3 
016Q0104 
O16G01G5 
01600106 
0160 6107 
0160 0 10 8 
0160 0109 
0 16 0 0 11 D 
01600111 
01600112 
016 0 0113 
0160.0114 


O 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


^T1 P 


PAGE 4 


DATE': 08/19/99 



O 


68*1537 

0160 Q 11 5 


68*1537 

0160011 6 

O 

68*1537 

0160 0117 

68*1537 

01600118 

68*1537 

01600119 


68*1537 

01600120 

O 

. 68*1537 

01600121 

68*1537 

01600 122 

68*1537 

01600 123 


68*1537 

01600124 

o 

68*1537 

01600125 

68*1537 

01600126 

68*1537 

01600127 


68*1537 

01600128 


68*1537 

0 160 Q 12 9 

o 

6 8*153 7 

01600130 

68*1537 

01600131 



O 


O 

O 

O 

O 

68*153 7 0160 0132 

63*1537 0160 Q 133 ^ 

O 
O 

o 
o 

o 


68*1537 01600134 

68*1537 01600135 

**MS0S 4, 001600136 


SILP 


PAGE 


5 


DATE: 08/19/99 


EQUIVALENCES 


DEF , LI NE NAME VALUE 

0000 I OOFF 

0029 LENGTH 2300 


REFERENCED AT LINE NUMBER 

(000255? 0063, 0079, 0101, 0108^ 0109 
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DODD 
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0041 

LENMES 
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0042, 

0051 
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MESS2 

0015 

0 0 41, 
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MESEND 

002D 

0041 



G046 

COMP 

0 0 2D 
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0 053 

COM PI 

003 5 

0 0 48 



0 061 

8ANK1 

0 0 3 B 

00 71 



00 64 

MOVEBN 

QQ3F 



0072 

DONFDN 

0 0 49 

0068 



0 0 76 
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DO 4 A 

0 0 57 



0 080 

MOVEUP 
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0 0 89 
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OONEUP 
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0084 
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WORDBO 
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0088 

0 093 
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0064, 
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F W A 
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0092, 

0 093 
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0 033 
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0113 
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M2 
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0104 



0114 
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BANK1 
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DONE ON 

007 2 
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M3 
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0 092 

MESS1 

WORDB1 

0131 
0 093 

MESS2 

0044 

MOVED N 

0064 

MOVEUP 

0080 

NAME 

0095 

SI 
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CONTROL STATEMENT PROCESSOR FOR SYSTEM INITIALIZER 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 
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0 015 

ENT 

COMMA 


GDI 6 

ENT 

VALID 

o ; 

0017 

ENT 

CM45 

001 8 
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0 170 0 Q 0 8 
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FLAG FOR SYSTEM DIRECTORY CORE OR MASS LOAD 

INPUT LOGICAL UNIT 

MASS STORAGE LOGICAL UNIT 

COMMENT DEVICE LOGICAL UNIT 

ENTRY TO TEST FOR COMMA AS FIELD DEVI METER 

ENTRY TO TEST FOR A VALID FIELD DELIMETER 

ENTRY TO READ IN NEXT CONTROL STATEMENT 

ROUTINE TO PROCESS NEXT CONTROL STATEMENT 

ROUTINE TO BACKRQUND INPUT SUFFER TO ALL ONES 

NEXT AVAILABLE MASS STORAGE SECTOR 

ROUTINE TO GET NEXT CONTROL STATEMENT 

FROM COMMENT DEVICE 

ROUTINE TO LOG ERRORS ON TTY 

FLAG INDICATING IF ANY LOADER ERRORS OCCUREO 


0170 
0170 
017 0 
0170 
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0170 
0170 
0170 
0170 
0170 
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0170 
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0011 
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0013 

0014 

0015 

0016 
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0019 
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0032 
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003 4 

EXT* 

003 5 

EXT* 

003 6 

EXT* 

00 37 

EXT* 

003 8 

EXT* 

0039 

EXT* 

00 40 

EXT* 

0041 

EXT* 

004? 

EXT* 

0043 

EXT* 

004 4 

EXT* 

004 5 

EXT* 

0046 

EXT* 

0047 
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00 48 

EXT* 

00 49 
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005 0 
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0055 
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* 
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EXT* 
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IDRIV 
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MORI V 
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TELOUT 

IDRIV 

FORMED 

SIB 
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EPF APE 

ECARO! 

EMTAPE 

EMASS 

ECOM 

EPRINT 

ENTSTR 

OISKWR 

WRF OUT 

HEADR1 

FN0SFC 

LENSOT 

OATBSD , 

OATBS1, 

PARTI L 

PART 1 A 

SIGNCK 

PART 1C 

PARSTR 
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EXTERNAL LOCATION IN »IDRIV a TO PASS *MSIZV4' 

* IDRIV* LOCATION TO BE CONTAINED 'MSIZV4* 
ROUTINE TO BUILD SYSTEM DIRECTORY 
CONTROL MODULE FOR MASS STORAGE DRIVERS 
STARTING ADDRESS OF LOADER TABLE 
ROUTINE TO INITIALIZE LOADER TABLE 
ROUTINE TO INITIALIZE MASS STORAGE CONSTANTS 
ROUTINE TO BUILD PAGE FLAGS IN LORTBL 


START OF LOADER FUNCTION 
TABLE OF LOGICAL UNITS IN IDRIV 
CONTROL MODULE FOR INPUT DEVICE DRIVERS 
ROUTINE TO TEST FOR FIELD TERMINATORS - 
HASS STORAGE DRIVER ENTRY 
COMMENT DRIVER ENTRY 

ENTRY FOR TELETYPE OUTPUT - NOT COMMENT 
INPUT DRIVER ENTRY 
TOP OF FORM FUNCTION IN LPRINT 
STANDARD BINARY INPUT LOGICAL UNIT - IN 
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017 0 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
OUTPU TO 17 0 
0170 


IN 12 
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EQUIPMENT 
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CODE 
CODE 
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CODE 
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EQU 
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EQU 

MODIFY 13) 

0 0 7 6 
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EQU 
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0077 
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EQU 
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0078 
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EQU 

PRO BA SI 3.) 

0079 
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EQU 

COMLIM1 4) 

00 80 
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EQU 

OATLIM1 53 

008 1 

00 06 


EQU 

CSQLIMI 6) 

008 2 

00 07 


EQU 

EXTCTR1 7) 

0083 

00 08 


EQU 

ENDSW18) 

00 8 4 

00 09 


EQU 

A8RLSW19) 

008 5 

00 OA 


EQU 

INPWRD ( 1 0) 

0086 

0 0 0 B 


EQU 

INPRELUI) 

008 7 


34 



00 88 

00 on 


EQU 

CSQNUMI 125 

0089 


34 



009 0 

00 OD 


EQU 

ENTPNT < 13) 

0091 
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0092 

0 0 0E 
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LINKI 14) 
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34 



009 4 

00 OF 


EQU 

INPCTR115) 

0 0 9 5 


34 



00 9 6 
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0099 

0011 


EQU 

E NO I N P ( 1 7 ) 
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0101 

0 012 


EQU 

BLANKS! 18) 

010 2 

0013 


EQU 

3YM8TR ( 1 9) 

0103 


W- 

EQU 

SYMSTR*- 1 !20 ) 

0104 


■54 

EQU 

SYMSTR*2I21) 

010 5 

00 16 


EQU 

SCANSW1 22) 

010 6 
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010 7 


* 



010 8 


* 



0109 
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0111 

3017 


EQU 

3ASEI23 ) 

0112 

0018 


EQU 

WRDGNT (24) 

0113 
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0114 
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0115 





0116 
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Oil 7 

0019 


EQU 
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34 



0119 
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EQU 
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34 
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FLAG SAYING THAT THIS PAGE HAS BEEN MODIFIED 


RELOCATION RASE 
RELOCATION BASE 
RELOCATION BASE 
HIGHEST ADDRESS 
HIGHEST ADDRESS 
HIGHEST ADDRESS 
NEXT AVAILABLE 


FOR COMMON STORAGE 
FOR DATA STORAGE 
FOR PROGRAM BEING LOADED 
OF COMMON STORAGE H 
OF DATA STORAGE *1 
OF COMMAND SEQUENCE STORAGE + 
LOCATION IN EXTERNAL TABLE 


EXTERNA 


:1 IF LAST BYTE IN R80 OR BZS BLOCK 
0 IF ABSOLUTE EXTERNAL, 1 IF RELATIVE 
END OF COMMAND SEQUENCE STORAGE 
CONTAINS RELATIVE FLAG FOR WORD OF COMMAND 
SEQUENCE IN RBD OR BZS BLOCK 
NUMBER OF SECTORS RESERVED BEFORE START 
OF COMMAND SEQUENCE STORAGE 
CONTAINS THE ADDRESS ASSOCIATED WITH THE 
NAME IN A ENTRY OR EXTERNAL BLOCK 
CONTAINS ADDRESS ASSOCIATED WITH NAME 
IN LOADER TABLE 

USED TO ADDRESS CORE LOCATION OF COMMAND 

SEQUENCE STORAGE AT LOAD TIME 

USED TO HOLD ADDRESS OF ENTRY FOR TABLE 

SEARCH AND TABLE STORE ROUTINES 

FLAG -1 IF UNPATCHED EXTERNALS EXIST 

LAST STORAGE ADDRESS +1 AT END OF 

RELOCATABLE BINARY LOAD 

ASCII CODE FOR TWO SPACES 

SET TO THE ASCII CODE FOR THE CHARACTERS IN 
THE FIELD BEING PROCESSED BY SCAN. IF FIELD 
IS NUMERIC SYMSTR=Q . 

IF BIT ZERO =0 AND FIELD 
NUMERIC, THE NUMBER WILL 
DECIMAL UNLESS PRECEEDEB 
IF BIT ZERO =1 AND FIELD 
NUMERIC, THE NUMBER WILL 
HFXIDECIMAL REGARDLESS OF 


BEING PROCESSED 
BE PROCESSED AS 
BY $ 

BEING PROCESSED 
BE PROCESSED AS 
OCCURENCE OF $ 


IS 


IS 


BASE OF SYSTEM INITIALIZER 

CHARACTER REFERENCE COUNTER - SET TO STORAGE 
ADDRESS OF THE FIRST CHARACTER OF A FIELD 
TO BE PROCESSED. BIT ZERO IS R/L INOICATER 

0 = FIRST CHARACTER IN LEFT HALF OF WORD 

1 = FIRST CHARACTER IN RIGHT HALF OF WORD 
CHARACTER COUNTER- SET TO COMPLEMENT OF 
MAXIMUM NUMBER OF CHARACTERS A FIELD MAY HAVE 
USED 8Y SUBROUTINES COMMON TO RBDPRO AND 
BZSPRO TO DETERMINE BLOCK TYPE. 

0= RBD BLOCK -1= BZS BLOCK 
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01700074 
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01700090 
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01700 093 
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01700100 
01700101 
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0122 

0 0 1 B 


EQU 

COUN T 212 7) 

COUNTER USED BY SCAN 

01700122 

0123 

0 0 IB 


EQU 

3LKCNT ( 27 } 

BLOCK COUNTER CONTAINS WORD COUNT FOR 

01700123 

0124 


* 


NUMBER OF SEQUENTIAL LOCATIONS TO BE SET 

01700124 

0125 


* 



TO ZERO IN A 8ZS BLOCK ENTRY 

01700125 

0126 

001C 


EQU 

S W6 ( 2 8 } 

FLAGWORD FOR LOADER TABLE SEARCH ROUTINE 

0 170 012 6 

0127 
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=0 MATCH HAS SEEN FOUND IN TABLE 

01700127 

0128 





= - -(NEGATIVE) HATCHING NAME NOT FOUND 

01700128 

0129 

00 ID 


EQU 

ASA V I 29 ) 

TEMPORY STORAGE FOR A-REQISTER 

01700129 

013 0 

0 0 IE 


EQU 

QSAV1 30 ) 

TEMPORY STORAGE FOR Q-REQISTER 

0170 0 130 

0131 


* 

EQU 

ISA Vi 31 3 

TEMPORY STORAGE FOR I-REQI S TER 

01700131 

0132 

0 0 20 


EQU 

XF3NAMI 32) 

STORAGE OF SIX CHARACTER TRANSFER ADDRESS 

0170 0132 

0133 

0 0 23 


EQU 

NAME C 35 3 

ASCII CODED INFORMATION 

017 0 013 3 

0134 

0 0 27 


EQU 

SCHXIT (39) 

EXIT FROM TABLE SEARCH ROUTINE 

0170 0134 

013 5 

0 028 


EQU 

TABSCH1 40) 

ENTRY ADDRESS FOR RTJ TO ROUTINE FOR 

01700135 

013 6 





SEARCHING LOADER TABLE FOR ENTRIES OR EXTERNALO170D 13 6 

0137 

00 2B 


EQU 

CENT AO I 43) 

AODRESS OF ENTRY BEING CURRENTLY EXAMINED 

01700137 

0138 
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IN ENTRY POINT TABLE 

01700138 

0139 

0 0 2C 


FQU 

MAXFNTC 44) 

LARGEST ADDRESS BEING USED IN ENTRY POINT TRL 

0170 Q 139 

0140 

0 0 2D 


EQU 

TEMP 1 45 3 

TABLE OF TEMPORY LOCATIONS USED BY HASH 

0 17 0 0 1 40 

0141 

0 0 31 
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NOJ UMPf 49) 

FLAG = 0 IF NO JUMP INSTRUCTION IS 

01700141 

0142 
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NEEDED TO JUMP AROUND DATA OR COMMON 

01700 142 

0143 
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EQU 

FLGLGNT 50) 

NUMBER OF CORE FLAGS PER PAGE 

01700143 

0144 

0 0 33 


EQU 

BIN AS C 1 5 1 ) 

STORAGE OF ASCII CODE FOR NUMBER CONVERSION 

01700144 

0145 

0036 


EQU 

PRINTS-! 5 4) 

ENTRY TO ERROR OUTPUT ROUTINE 

01700145 

0146 

0 0 39 


EQU 

INPXCO ( 57) 

CONTAINS ADDRESS CONSTANT INPUT 

01700146 

0147 

0 0 39 


EQU 

INPAO R< 57) 

SAME AS INPXCO - ADDRESS OF INPUT BUFFER 

01700147 

0148 

0 03A 


EQU 

INPXCK 58) 

CONTAINS AODRESS CONSTANT INPUT *■ 1 

01700 148 

0149 

0 0 3B 


EQU 

PRINT 21 59) 

ENTRY TO FATAL ERROR OUTPUT ROUTINE 

01700149 

0150 

0 0 3E 


EQU 

INPXCCJ 62) 

CONTAINS ADDRESS CONSTANT INPUT - 3 

01700150 

0151 

G03F 


EQU 

NXTINFC 63) 

JMP INSTRUCTION TO READ NEXT BLOCK 

01790151 

0152 

0 0 41 


EQU 

M7FFF '(6 5) 

MASK OF $7FFF 

01700152 

0153 

0 0 42 


EQU 

M 8 3 0 0 (66) 

MASK OF $8000 

0170 Q 153 

0154 

0 0 44 


EQU 

MFFQG 168) 

MASK OF SFFOO 

01700154 

015 5 

0 0 45 


EQU 

MG OFF '(6 9) 

MASK OF $0 0 FF 

017BQ 155 

0156 

0 0 46 


EQU 

ASKII (70) 

ASCII MODE SWITCH FOR 405 AND HAG TAPE 

01700156 

015 7 

0 0 47 


EQU 

NEGSW (71) 

SET BY SCAN TO VALUE OF LEGAL ALGEBRAIC SIGN 

0170 0 15 7 

0158 

0 0 48 


EQU 

SCNTRMf 72) 

SET BY SCAN TO ASCII CODE FOR FIELD TER MI NATO 

RO 170 0 15 8 

0159 

0 0 49 


EQU 

SCNINP* 73) 

SET BY SCAN TO THE BINARY VALUE OF A NUMERIC 

01700159 

0150 
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OPERAND AFTER ITS CONVERSION FROM ASCII 

01700160 

0161 
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EQU 

SCNXITI74) 

EXIT FROM SCAN ROUTINE 
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0152 
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EQU 

SCANf 75 ) 

ENTRY TO SCAN ROUTINE 
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0163 
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CSNAMET 78) 
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01700163 
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= 1 *Y STATEMENT 
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-=2 *YM STATEMENT 
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=3 *L STATEMENT 

01700166 

0167 
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=4 *LP STATEMENT 

0170 016 7 
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—5 *M STATEMENT 

0170 0168 
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-6 *MP STATEMENT 
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1 = USE STANDARO BINARY INPUT DEVICE 
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0 0 56 


EQU 
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FLAG - 0= POSITIVE RELOCATION 

017QQ176 
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1= NEGATIVE ADDRESS RELOCATION 
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0178 
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0 = USE 15 EIT ARITHMETIC 
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1 = USE 16 BIT ARITHMETIC 
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0180 
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0 170 Q 18 1 

0182 

0 0 5A 


EQU 

CONVRT190) 

ENTRY FOR BINARY TO ASCII CONVERSION ROUTINE 
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0188 
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A-REGISTER CONTENTS UPON ENTRY TO LOADER 

01700183 

0184 
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EQU 

SY3PGE ( 102) 
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01700 184 

018 5 
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EQU 

LINKK104) 

ENTRY FOR LINK ROUTINE 

01700135 

0186 

006B 


EQU 

ENTPGS (107) 

STARTING ADDRESS OF ENTRY POINT TABLE *£XTRA* 

01700186 

016 7 

0 0 6C 


EQU 

TOP (108) 

HIGHEST CORE LOCATION AVAILABLE FOR THIS LOAD 
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0188 
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EQU 

PGEWRK109) 
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Q06E 


EQU 

LGEPGE* 110) 
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019 0 

0D6F 
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ADDRESS OF LINK TABLE 
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EQU 
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LNKENDI 114) 

LAST ADDRESS *1 IN LINK TABLE 
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EQU 

EXTSTR! 118 ) 

WORD ADDRESS OF START OF EXTERNAL TABLE 

01700197 

0198 

0 0 77 


EQU 

CORA0R I 1 19 ) 

LOWEST LOCATION AVAILABLE FOR USE BY LOADER 

0170 019 8 

0199 

0 0 78 


EQU 

PRO DA T 1120 ) 

FLAG - NON-ZERO IF PROTECTED DATA IS DECLARED 

01700199 

020 0 

00 79 


EQU 

PRO COM! 121) 

FLAG - NON-ZERO IF PROTECTED COMMON DECLARED 

0 170 0 20 Q 

020 1 

0 07A 


EQU 

PAGE! 122) 

LENGTH OF PAGE FOR MASS MEMORY - MUST BE 

0 170 0 20 1 

020 2 


* 



A MULTIPLE OF 96 

01700202 

Q2G3 

0 07B 


EQU 

CSQCT R1 123 ) 

LAST ADDRESS OF PROGRAM COMMAND SEQUENCE 

0170 0 20 3 

020 4 





STORAGE +1 

01700204 

020 5 

G0 7C 


EQU 

GEXTAD!124) 

ADDRESS OF EXTERNAL BEING CURRENTLY PROCESSED 

017G02G5 

020 6 




FROM EXTERNAL TABLE 

01700206 

020 7 

00 7D 


EQU 

MI NEXT 112 5) 

FIRST WORD ADDRESS OF SYSTEM EXTERNAL TABLE 

01700207 

0208 

0 07E 


EQU 

MAX EXT! 126) 

LAST WORD ADDRESS OF SYSTEM EXTERNAL TABLE 

0 170 0 20 8 

0209 

0 0 7F 


EQU 

ENT SEC! 127) 

STARTING SECTOR OF ENTRY/EXTERNAL TABLES 

01700209 

0210 

0 0 80 


EQU 

CSQSECC128) 

STARTING SECTOR OF COMMAND SEQUENCE IMAGE 

01700210 

021 1 

0 0 81 


EQU 

MAXPGE! 129) 

MAXIMUM PAGE NUMBER THAT CAN BE USED ON DISK 

0170 0 211 

0212 

0 082 


FQU 

NOPAGE! 130 ) 

NUMBER OF PAGES IN CORE 

017 0 0 212 

0213 

0 0 83 
GO 84 


EQU 

PARBAS! 131 ) 

ADDRESS OF STARTING PARTITION 

01700 213 

0214 


EQU 

PARLI MI 132 ) 

LAST WORD ADDRESS +1 OF LAST PARTITION 

01700214 

021 5 

0 0 85 


EQU 

STRSECI 133 ) 

STARTING SECTOR OF IMAGE ON MASS MEMORY 

01700 215 

021 6 

0 086 


EQU 

MSQWCT1 134) 

NUMBER OF WORDS STORED ON MASS MEMORY 

01700216 

0217 

0 0 87 


EQU 

XFRAO R! 1 35 ) 

TRANSFER ADDRESS OF NAME FROM XFR BLOCK 

0 17 G 0 21 7 

0218 

0038 


EQU 

AHOLD 1136) 

TEMPORY 

01700216 

021 9 

0 0 89 


FQU 

QHOL-O (137) 

TEMPO RY 

0 17G 0 219 

0220 

0 Q 8A 


EQU 

SECTOR! 138) 

NUMBER OF WORDS IN A SECTOR 

01700220 

0221 

0 0 8B 


EQU 

ECREP 1139) 

END ADDRESS OF CREP TABLE 

01700221 

0222 

0 0 8C 


EQU 

ECREP1T14Q) 

END ADDRESS OF CREP1 TABLE 

01700222 

0223 

0 0 80 


EQU 

EXTSWTI141) 

FLAG - NON-ZERO IF PROCESSING EXTERNAL BLOCK 

01700223 

0224 

DOSE 


EQU 

SAVEA (1 42) 

TEMPORARY 

01700 224 

0225 

0 0 8F 


EQU 

JUMPI143) 

DUMP FLAG FOR II 

017Q 0225 

0226 

0090 


EQU 

TEHP3 (144) 

TEMPORARY 

0170 0226 

0227 

0091 


EQU 

FLG8SE 1145) 

BASE ADDRESS OF CORE FLAGS TABLE 

0170 0 227 



CONTRL 
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0228 

0 092 

EQU 

PROGCT (146) 

LENGTH OF PROGRAM FROM NAM CARD 

0170 0 22 8 

0229 

0 0 93 

EQU 

ONTAB 11 471 

ORDINAL COUNTER FOR 11 

01700229 

0230 

0 0 94 

EQU 

HONTA Bi i 48 ) 

*'YM COUNTER FOR 11 

017 0 0 230 

0231 

0 0 95 

EQU 

FLGBS1 { 149) 

INITIAL ADDRESS OF SYSTEM FLAG TABLE 

01700231 

0232 

0 096 

EQU 

INPUT (1 50 ) 

INPUT BUFFER 

017QG232 


o 


CONTRL 
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O 

l'T 

02 3 4 


OPERATING SYSTEM INITIALIZER 

O 170 0234 

□ 


0235 

* 

ERROR CODES 

01700235 


o • 

0236 

* 


01700236 

o 

0237 

* 1 

ASTERISK INITIATOR MISSING 

01700237 


0238 

* 2 

NUMBER APPEARS IN NAME FIELD 

01700238 



0239 

* 3 

ILLEGAL CONTROL STATEMENT NAME 

0170 0 23 9 



0240 

* 4 

INPUT MODE ILLEGAL 

01700 240 
01700241 


1 u 

0241 

* 5 

STATEMENT OTHER THAN *Y OR * YM PREVIOUSLY ENTERED 



0242 

* 7 

*Y NOT ENTERED PRIOR TO FIRST *L STATEMENT 

01700242 



0243 

* 6 

STATEMENT OTHER THAN *Y PREVIOUSLY ENTERED 

01700243 


O ' 

0244 

* 8 

NAME APPEARS IN NUMBER FIELD 

01700244 

O 

0245 

* g 

ILLEGAL HEX CORE RELOCATION FIELD 

01700245 


0246 

* A 

ILLEGAL HASS STORAGE SECTOR NUMBER 

0170 0246 



0247 

* B 

NO DATA RETURN FROM LOADER 

01700247 


o 

0248 

* C 

UNPATCHED EXTERNAL AT CONCLUSION OF SYS DIR LOAD 

0170 0246 

O 

0249 

* D 

UNPATGHED EXTERNAL AT CONCLUSION OF *L LOAD 

01700249 


0250 

* E 

FIELD TERMINATOR INVALID 

01700 250 



0251 

* F 

MORE THAN 120 CHARACTERS IN CONTROL STATEMENT 

0170Q 251 


° 

0252 

*10 

ORDINAL NAME WITHOUT ORDINAL NUMBER 

0 17 0 0 252 


0253 

*11 

NAME APPEARED PREVIOUSLY IN LOADER TABLE 

01700253 

w 


0254 

*12 

INVALID ORDINAL NUMBER 

01700254 



0255 

*13 

LOADER CONTROL STATEMENT OUT OF ORDER-. CORRECT ORDER = L,LP*M«NP 

01700255 


o 

025 6 

*14 

DATA DECLARED DURING *M LOAD BUT NOT BY FIRST 

0170 0256 

o 

02 57 


SEGMENT. INITIALIZATION RESTARTED. 

0170 0 25 7 


0258 

*15 

ATTEMPT MADE TO ENTER DATA INTO LOCATION 0 OR 

01700258 



0259 

* 

ABOVE LOCATION $FE * INITIALIZATION RESTARTED. 

01700259 


O ' 

0 26 0 

*16 

UNRECOVERABLE MASS STORAGE I/O ERROR 

01700260 

o 

0261 

*17 

LOADER SLEWING ALL BLOCKS UNTIL NEXT NAM BLOCK. 

01700261 


0262 

*18 

FIRST STATEMENT INPUT TO INITIALIZER DID NOT DEFINE 

0 17 0 0 262 



0253 


THE MASS STORAGE DEVICE. 

017013263 


o 

0264 

*19 

UNABLE TO READ IN BAD SECTOR DIRECTORY 

01700264 

o 

0265 

*20 

*S,ENQ0V4,HHHH NOT DEFINED BEFORE FIRST *L CONTROL STATEMENT 

01700 265 


026 6 

*21 

*S,MSIZV4,HHHH NOT DEFINED BEFORE FIRST *LP CONTROL STATEMENT 

0 170 0266 



D 26 7 

*22 

ATTEMPT TO LOAD PART 1 CORE RESIDENT INTO UNAVAILABLE MEMORY 

0 170 G 25 7 


o 

0268 

*23 

THE NAME USED IN THE SECOND FIELD OF A *M CONTROL STATEMENT 

0170 0268 

o 

0259 

* 

WAS NOT PREVIOUSLY DEFINED AS AN ENTRY PCINT 

01700269 

1 

0270 

*2 4 

THE ENTRY POINT SECTOR WAS NOT DEFINED AT THE START OF 

O17DG270 



0271 


INITIALIZATION AND IS NOT AVAILABLE TO THE INITIALIZER 

0170 0271 


o 

0272 

*2 5 

ILLEGAL PARTITION NUMBER IN FIRST FIELD OF *MP STATEMENT 

01700272 

o 

0273 

* 

OR ILLEGAL NUMBER OF PARTITIONS IN SECOND FIELD OF STATEMENT 

0170 0 273 


0274 

*26 

AN ATTEMPT WAS MADE TO LOAD *MP PROGRAMS WHEN NO PARTITIONED 

0170 0 274 



0275 

* 

CORE TABLE EXISTS IN SYS DAT 

01700275 


o 

0276 

* 

* ******************************************************** ***********Qi73jj27b 

o 

o 





o 

o 





o 

o 





o 

, o 





0 

' — 







CONTPL 


PAGE 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


027 

8 

POOOO 

58 0 0 



PG001 

7FFF 

027 

9 

P 0 0 0 2 

0 A 0 5 

028 

0 

P00Q3 

6800 



P0 0 04 

0 530 

028 

1 

P 0 0 0 5 

C 8 0 0 



P 0 0 0 6 

7FFF 

0282 

P 0 00 7 

6 80 0 



POO OS 

D4BD 

028 

3 

P 0 0 09 

C 8 0 0 



P 0 0 0 A 

7FFF 

028 

4 

POOGR 

6800 



POOOC 

0 487 

028 

5 

P00GD 

C8 00 



P0 00 E 

7FFF 

028 

6 

P 0 0 0 F 

6800 



P0010 

0 4B4 

028 

7 

POOH 

C800 



P 0 0 1 2 

0 0 0 1 

028 

8 

PC 0 1 3 

0 9 FD 

028 

9 

P 0 0 1 4 

5 1 5 A 

029 

0 

P 0 0 1 5 

Cl 33 

029 

1 

POO 16 

68 IB 

029 

2 

P0017 

Cl 34 

0293 

P0018 

6 8 1 A 

029 

4 

P 0 0 1 9 

5 8 IB 

029 

5 

P001A 

4D5 3 



P0 0 18 

4F53 



P001C 

2035 



PO01D 

2E3 0 



pooie 

2 0 53 



P001F 

59 53 



P0020 

5445 



P0 021 

4Q20 



P 0 0 2 2 

494E 



P0023 

4954 



P0024 

4941 



PD025 

40 49 



P 0 0 2 6 

5 A 45 



P0Q27 

52 2 D 

029 

6 

P0 028 

0 D 0 A 

029 

7 

PQG29 

4657 



P002A 

4120 



P0 02B 

4 F 46 



P002C 

2Q 43 



P0 02D 

4F4E 



P0G2E 

5452 



PG02F 

4C20 



P0 030 

3020 

0298 

P0 031 

0000 



PO 032 

00 00 

029 

9 

P0 033 

0 DO A 

030 

0 

P 0 03 4 

0B00 


X 

RST ART 

RTJ 

CONENT 

X 






ENA 

5 



STA 

LSSECT 

X 


LOA 

COLU 

X 






STA 

CO 

X 

v 


LDA 

SIB 

X 


STA 

IN 

X 


LDA 

MASS 

X 






STA 

ou 

X 


LDA 

CONFNT 

X 






INA 

-2 



RIJ- 

CONVRT, I 



LDA- 

BIN AS C, I 



STA* 

SI* 2 3 



LBA- 

SIN ASC* 1 , I 



STA* 

SItt-24 



RTJ* 

CNTRl 


SI 

ALF 

14, MSOS 5.0 


INITIALIZE LOADER TABLE 
SET STARTING AREA OF DISK 


INITIALIZE COMMENT DEVICE LOGICAL UNIT 


INITIALIZE STANDARD BINARY INPUT LOGICAL 


INITIALIZE MASS STORAGE UNIT **MS0S 

**MS0S 

PICKUP STARTING ADDRESS OF CONTROL 


CONVERT TO ASCII 
PICKUP FIRST WORD OF ADDRESS 
STORE IN OUTPUT BUFFER **MSOS 

PICKUP SECOND WORD OF ADDRESS 
STORE IN OUTPUT BUFFER **MSOS 

GENERATE BUFFER ADDRESS 
SYSTEM INITIALIZER 


NUM $000 A CARRIAGE RETURN - LINE FEED 

ALF »,FWA OF CONTRL = * 


NUM 0,0 

NUM $ 0D G A 
CNTRl NOP 0 


RESERVED FOR ADDRESS OF CONTROL 

CARRIAGE RETURN - LINE FEED 
STORAGE FOR RUN-TIME BUFFER ADDRESS 


01700278 

0170 0 279 
, 01700280 

0170 0 281 

0170 0 282 

UNIT 01700283 

0170 0284 

4.1**01700285 

4.1**01700286 

01700287 

01700288 
0170 0 289 
01700 290 
4.1**01700 291 
01700292 
4.1**0170 0293 
01700294 
01700 295 


0170 0 296 
0170 0 297 


01700298 

01700299 
0170 0 30 0 


O 

O 

O 

O 

o 

o 

O 

O 

O 

O 

O 

O 

o 

o 

o 


o 


o 














o 




CONTRL 
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o 

030 1 

P0035 

C8FE 



LDA * 

CNTR1 

PICKUP BUFFER ADORFSS 

O17C 0 301 



o 


0 30 2 

P0 036 

0C1 A 


CNTR2 

ENQ 

26 

PICKUP WORD COUNT **MSOS 

4.1**01700302 




o 

0303 

P0037 

58 00 

X 


RTJ 

TELOUT 

OUTPUT MESSAGE TO TELETYPE 

01700303 



o 


PQ 038 

7FFF 

X 









03 0 4 

P 0 0 39 

58 0 0 


CNTR3 

RTJ 

BACKGR 

BACKROUND INPUT BUFFER TO ALL ONES 

01700 304 






P0 0 3 A 

0402 










o 

0 3 C 5 

P003B 

0 8 44 



CL R 

A 

**MSOS 

4. 1**0 1700305 



o 

0306 

P0 03C 

5800 

X 


RTJ 

12 

INITIALIZE FOR AUTOLOAD **MSOS 

4.1**01700306 





P003D 

7FFF 

X 










0307 

PO 03E 

5809 



RTJ* 

CNTR9 

■JUMP AROUND BUFFER 

0170 03Q7 




o 

03 03 

P0 03F 

OD 0 A 



NUM 

$00 0 A 

CARRIAGE RETURN - LINE FEED 

01700308 



o 

0 30 9 

P0040 

4441 


DAT El 

ALE 

7, DATE HM/DD/YY 

01700309 





PQQ41 

5445 












P0042 

20 4D 










o 


P 00 43 

4D2F 









o 


P 0 044 

4444 











P0045 

2 F 59 












P 0 0 46 

5920 










o 

0310 

PO 047 

0 BOO 


CNFR9 

NOP 

0 

RUN TIME BUFFER ADDRESS 

0170 0 310 



o 

0311 

PO 048 

GCQ8 



ENQ 

8 

SETUP WORD COUNT 

01700 311 




0312 

PO 0 49 

C8FD 



LDA* 

CNTR9 

PICKUP BUFFER ADDRESS 

01700 312 





0313 

PO 0 4 A 

5800 

X 


RTJ 

TELOUT 

OUTPUT MESSAGE TO TELETYPE 

01700313 




o 


PQQ4B 

0038 

X 








o 

0314 

P004C 

0 8 42 



CLR 

Q 

SET FLAG FOR COMMENT INPUT 

01700314 




031 5 

PO 0 40 

Cl 39 



LDA- 

INPADR, I 

SETUP- POINTER TO BUFFER 

01700315 





0316 

P004E 

58 GO 

X 


RTJ 

QCOM 

READ IN DATE 

0170 0 316 




o 


P004F 

7FFF 

X 








o 


0313 

PO 05 0 

OC 03 



ENQ 

3 

MOVE DATE TO BUFFER IN LPRI NT 

01700 318 




o 

0319 

PO 0 51 

€3 96 


CNTR1 0- 

LQA- 

INPUT, B 


01700319 



o 

0320 

PO 0 5 2 

0900 



INA 

0 


0170 0 32 0 




0321 

PO 053 

6AO0 

X 


STA 

HEA0R1, Q 


0170 0 321 






P0054 

7FFF 

X 









o 

0322 

P 0 0 5 5 

ODF'E 



INQ 

-1 


01700 322 



o 

0323 

P 005 6 

0171 



SQM 

CNTRIi-*-l 

SKIP OUT IF ENTIRE DATE MOVED 

01700323 




0324 

PO 057 

18F9 



JMP* 

C NT RIO 

MOVE NEXT WORD OF DATE 

01700 324 





0325 

P 0 0 58 

5800 

X 

CNTR11 

RTJ 

CON MAS 

INITIALIZE MASS STORAGE CONSTANTS 

01700325 




o 


PO 0 59 

7FFF 

X 








' o 

0326 

PO 05 A 

0 8 44 



CL ! R 

A 

ZERO THE FOLLOWING LOCATIONS 

0170 0 32 6 




0327 

P0G5B 

6300 

X 


STA 

FORMED 


01700327 






P0 0 5C 

7FFF 

X 









o 

0328 

P0 05 D 
P005E 

68 0 0 

01 4A 



STA 

TORDNL 

CLEAR CORE RESIDENT ORDINAL COUNTER 

01700328 



o 


0329 

P005F 

68 0 0 



STA 

I1C ALL 


01700329 






P 0 0 60 

0 0 D B 










o 

033 0 

P0061 

68 0 0 



STA 

ERFLAG 


01700 330 



o 


PG062 

08A9 










0331 

PC 0 63 

6800 

X 


STA 

PART 1C 


01700331 






PO 0 64 

7 FFF 

X 









o 

0332 

P0065 

6800 

X 


STA 

PART1L 


0 170 0 332 



o 


P 0 0 66 

7FFF 

X 









0333 

PO Q 67 

68 0 0 

X 


STA 

PART 1 A 


01700333 






P 0 0 68 

7FFF 

X 









o 












o 

o 












o 

. 



_ 




_ _ . . 




. . 



_ . 

__ 

. 


o 

CONTRL 



0 33 4 

P 0 0 69 

68 0 0 


STA 



P006A 

01 6C 


STA 

o ■ 

0335 

P006B 

6800 


PO 060 

0165 


STA 


033 6 

P 0 0 60 

6800 



P006E 

0164 



o 

0337 

P006F 

6800 


STA 

P 0 0 7 0 

0163 


STA 


0338 

P0 0 71 

6800 




P 0 0 72 

0162 


STA 


G 33 9 

P0 0 73 

6800 


•sG 


P0 07 4 

01E9 


STA 


0340 

P0075 

6800 




P 0 07 6 

0 1 E 8 


STA 

o 

0341 

POO 77 

6800 


P0 0 78 

01E7 


STA 


034 2 

P0 079 

6800 




P 0 0 7 A 

0384 


STA 

o 

0343 

P00 7B 

6800 



PG07C 

0159 




0344 

P007D 

68 0 0 


STA 



P0 07E 

0222 


STA 

o 

0345 

P007F 

6800 



P 0 0 8 0 

0221 


STA 


0346 

P0 081 

6800 




P0 082 

0220 


STA 

o 

0347 

POO 83 

6800 



PO 084 

021F 


' STA 


0348 

POO 8 5 

6800 




P 0 0 86 

0208 



o 

0349 

P 0 0 8 7 

6800 


STA 

POO 88 

D2D7 


STA 


035 0 

P0 089 

6800 




P 0 0 8 A 

0 37E 



o 

0351 

P008B 

6800 


STA 

P0G8C 

0 3 7D 


STA 


0352 

P0 0 80 

6800 




P0 08F 

0 3 A 1 



o 

0353 

P008F 

6800 


STA 

P0090 

0 6 A0 


STA 


0354 

P0 0 91 

6800 




P0 0 92 

069F 


STA 

o 

0355 

Pfl 093 

6800 


P0 094 

069E 


STA 


0356 

PO 095 

68 0 0 




PO 096 

0 690 


STA 

o 

0357 

Pfl 0 97 

68 0 0 



PO 098 

0 7C3 


STA 


0358 

PO 0 99 

6800 




P009A 

07C2 


STA 

o 

0359 

PG0 9B 

6800 

X 

P0Q9C 

7FFF 

X 

STA 


0360 

PGG9D 

680 0 

X 



P009E 

7FFF 

X 



O 


O 


PAGE 10 DATE.: 08/19/99 

FRSTLP 
PARDEF 
CRPFLG 
YPQINT 
END OVA 
PARTBL 
LSTLOC 
MSIZV4 
HAXSEC 
YCNTER 
ENTTHP 
STRTEX 
TEHPEX 
ENDEXT 
YMGNTR 
Y MORON 
PP 
NN 

SEC VAL 
8LQADD 
PCOUNT 
PAGADD 
TMPSEC 
LENOG 
LPENDC 
OATBSO 
DATLMO 


CLEAR PART 0 DATA BASE 
CLEAR PART 0 DATA LIMIT 


G 


01700334 


01700335 

o 

0 170 B 33 6 


0170 0337 

o 

01700338 


01700339 

o 

01700340 


01700341 

o 

01700342 


01700343 

o 

01700344 


01700345 

o 

0170 0346 


0170 Q 347 

o 

01700348 


01700349 

o 

0 170 0 35 D 


01700351 

o 

01700 352 


01700353 

o 

0170Q 354 


01700355 

o 

0170 0 35 6 


01700357 

o 

0170 0 358 


0170 0359 

o 

01700 360 

o 



o 

o 

0 170 G 36 1 

017QQ362 O 

01700363 

0170 0 36 4 Q 

01700365 

01700366 

o 

o 

o 

o 

o 

o 

: ° 

o 

o 

o 

o 

o 
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0368 

0369 

0370 

0371 

0372 

0373 

0374 
0 37 5 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 
G38 4 

0385 

0386 

038 7 

0388 

0389 

0390 

0391 


P00A9 

5800 


CM2 0 

RTJ 

BACKGR 

P00AA 

0392 


iftt 



POOAB 

Cl 39 


CM 4 0 

LDA- 

INPAOR, I 

POOAC 

El 50 



LDQ- 

INMED,I 

POOAQ 

0141 



saz 

CM44-*-l 

POQAE 

1809 



JMP* 

CM5 0 

POOAF 

0C01 


CM44 

END 

1 

P00B0 

5800 



RTJ 

TYPED 

PO OBI 

0 3 9 B 





P0QB2 

0 8 42 


CM45 

CL R 

Q 

P 0 OB 3 

5800 

X 


RTJ 

DCOM 

POO 04 

0 04F 

X 




P00B5 

0117 


CM45A 

SAN 

CM65 

P00B6 

18F8 



JMP* 

CM44 

POOB7 

0 C 60 


CM50 

END 

96 

P00B8 

0864 



TCA 

A 

P00B9 

5800 

X 


RTJ 

IDRIV 

POOBA 

7FFF 

X 




POOBB 

0111 


CM6 0 

SAN 

CM65-*- 1 

POOBC 

1 8 F 2 



JMP* 

CM44 

POOBD 

Cl 3 9 


CM 6 5 

LDA- 

INPADR, I 

PQOBE 

OC IE 



ENQ 

30 

PO 0 BE 

5800 

X 


RTJ 

DCOM 

POQCQ 

0 0B4 

X 





**********?***** ****************************************************** 0 170 0 368 
BACKGROUND BUFFER TO ALL ONES 

SETUP CALL TO COMMENT OR INPUT MEDIUM DRIVER „ „ 01700370 

V&W wwwjf T-* ** **¥■*-¥■*■** »»» W ¥7-**** * *9 * ** * 4**^ **-¥■»»♦*■ * * »»»?•* T 0 170 0 37 1 

BACKGROUND INPUT BUFFER 01700 372 

0170 0 373 
0170 0 37 4 
01700375 
01700376 
01700377 
01700378 
01700379 

0170 0 380 
01700381 

**MSOS 4.1**01700382 
*»MSQS 4.1**01700383 
0170 0 384 
01700385 
01700 386 

01700387 
01700388 
01700389 
01700390 
01700391 


ADDRESS OF INPUT BUFFER TO A 
FETCH INPUT MEDIUM SWITCH 


NO ERROR IF Q = 1 
TYPE Q 

Q ZERO FOR INPUT OPERATION 

CALL COMMENT MEDIUM DRIVER 


TYPE Q* INTERROGATE COMM MEDIUM 
SETUP WORD COUNT FOR READ 
A-= BINARY MODE FOR CARO READER 
CALL INPUT MEDIUM DRIVER 

NO DATA RETURN IF ZERO 
TYPE D, INTERROGATE COMM MED 
ADDR OF INPUT BUFFER 
PRINT 30 WORDS 

CALL COMMENT DRIVER 


COMTRL 
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DATE* 03/19/99 


0393 
0 39 A 

0395 

0396 

0397 

0398 

0399 

0400 
040 1 
Q <*0 2 

0403 

0404 

0405 
040 6 
0407 
040 8 

0409 

0410 
0 411 
0 412 
0 413 
0414 
0 415 
0 41 6 
0417 


P00C1 

El 

39 

P00C2 

Cl 

4F 

PQ0C3 

61 

4F 

PC0C4 

OD 

FE 

P00C5 

C2 

01 

P00C6 

OF 

48 

P00C7 

08 

EO 

PQ0C8 

01 

02 

P00C9 

OA 

01 

POOCA 

18 

20 

POOCB 

Cl 

39 

POOCC 

OF 

Cl 

POQCD 

09 

01 

PO OCE 

61 

18 

POOCF 

OA 

08 

POODQ 

61 

16 

POQDi 

03 

44 

P00D2 

51 

4B 

POOD3 

Cl 

13 

P00D4 

91 

12 

P00D5 

01 

11 

FOODS 

18 

10 


* TEST 

* 

LDQ- 

LDA- 

STA- 

INQ, 

LDA - 

ARS 

EOR* 

SA7 

ENA 

JMP* 

CMS 0 LOA- 

ALS 
INA 
STA- 
ENA 
STA- 
CLR 
RTJ- 
LDA- 
SUB- 
SAN 
JMP* 


FIRST CHARACTER IN INPUT BUFFER FOR AN ASTERISK 


INPADR, I 
CSMAHE, I 
XCSNAMt I 
-1 
l.Q 
8 

CMASKT 
CM8 0 1 

1 

CM195X+1 
INPA0R, I 
1 
1 

WROCNT , I 
$8 

SCANSKt I 
A 

SCAN, I 
SYMSTR, I 
18, I 

CM90-*-i 

CM190 


PICKUP ADDRESS OF INPUT BUFFER 
CURRENT CONT STMNT NAME CODE 
TO PREVIOUS 

Q = ABOR OF INFUT BUFFER - 1 
FETCH FIRST WORD OF INPUT BUFFER 
SHIFT OFF RIGHT HAND HALF 

TEST FOR AN ASTERISK -<*S 
ZERO IMPLIES CHAR IS ASTERISK 
ASTERISK INITIATOR MISSING 
TYPE 0 AND INTERROGATE COM MFD 
ADDRESS OF INPUT BUFFER 
TO BITS (15 - 11 

SET RIGHT HALF WORD SWITCH TO ON 
PLACE IN SCAN CONTROL WORD 
LEADING + OR - ILLEG, NAME OR 
DEC NBR OK. TO SCAN CONTROL WD 
CLEAR A PRIOR TO CALLING SCAN 
FETCH A CONTROL STATEMENT CODE 
ZERO IMPLIES A NUMBER 
TWO BLANKS 2020 
ZERO IMPLIES NO FIELD PRESENT 
TEST FOR *CR 


01700393 
01700394 
01700395 
**MS0S 4,1**01700 396 
01700 397 
0 17 D 0 398 
01700 399 
01700400 
01700 401 
01700 402 
01700403 
0170 0 40 4 
0170 0 405 
01700406 
017004Q7 
0170 0 40 8 
0170 0 40 9 
0170 0410 
01700411 
01700 412 
01700413 
01700 414 
01700415 
01700 416 
01700 417 
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o 








0419 



* 

CONTROL 

o 

0421 

P0 0D7 

0 8 4? 

CM90 

CLR 

Q 

0422 

P00D8 

C A 14 

CM 7 2 

LDA* 

STTYPl.Q 


0 42 3 

P 3 0D9 

0111 


SAN 

GM74-*-i 


0424 

PQGDA 

18 OF 


JMP* 

CHI 95 X 

o 

0 42 5 

PDOOB 

B113 

CM74 

EOR- 

SYMSTR, I 

0 42 6 

P00DC 

0 102 


SAZ 

CM76-*- 1 


D 42 7 

P00DD 

OD 01 


INQ 

1 


0428 

P 0 0 DF 

18F9 


JMP* 

CM72 

o 

0429 

P00DF 

C 1 1 2 

CM 7 6 

LQA- 

BLANKS, I 

0430 

P00E0 

B 1 1 4 


EOR- 

SYMSTRUtl 


0431 

P00E1 

0101 


SA Z 

CM7 8 - '*- 1 


0432 

P0OE2 

1807 


JMP* 

CM195X 

o 

0433 

P00E3 

Cl 4E 

CM7 8 

LDA- 

CSNAME, I 

0434 

P00E4 

0FA1 


QLS 

1 


0435 

POOE5 

1 A18 


JMP* 

STTYP3.Q 


0436 

P00E6 

C10B 

CM190 

LOA- 

INPREL, I 

o 

0 43 7 

P00E7 

El 4E 


LDQ- 

CSNAME, I 

D 43 8 

P00E8 

0152 

CM195 

SQN 

CM 196-*-! 


0439 

POOE9 

0 A 03 

CM195 X 

ENA 

3 


04 40 

P0 0EA 

18 43 

H0P2 

JMP* 

YM2 

o 

0441 

P00EB 

18BD 

CM195 

JMP* 

CM20 

0442 



* 




0 443 







0 444 



-* 



o 

0445 



* 



0446 



9 - 



o 

0448 

P 0 0 EC 

4C20 

STTYP1 

ALF 

1 , L 

0449 

POOED 

4C50 


ALF 

ltLP 


0450 

P00EF 

4D2 0 


ALF 

i.M 


0451 

POOEF 

4050 


ALF 

1,MP 

o 

0452 

P00F0 

5320 


ALF 

1 , S 

0453 

P00F1 

5920 


ALF 

1,Y 


0454 

P00F2 

594D 


ALF 

i,rn 


0455 

P00F3 

5620 


ALF 

1 , V 

o 

045 6 

POOF 4 

5520 


ALF 

1,U 

0457 

P00F5 

492 0 


ALF 

i,i 


0458 

POOF6 

4F20 


ALF 

1,0 


0459 

P00F7 

432 0 


ALF 

1,C 

o 

0460 

POOFS 

5420 


ALF 

1 , T 

0461 

P00F9 

4420 


ALF 

1,0 


0462 

P00FA 

4720 


ALF 

it G 


0h63 

P0 0FB 

4820 


ALF 

1, H 

o 

0464 

PO 0FC 

0 0 0 0 


NUM 

0 

0 46 5 

P00FD 

1 8 Q Q 

STTYP3 

JMP 

STARL 



P00FE 

00 3E 





0466 

POOFF 

1800 


JMP 

STARLP 

o 


P010Q 

OOE7 




0 46 7 

P0101 

1800 


JMP 

STARM 



P010 2 

01 5E 





DATE: 08/19/99 


STATEMENT RECOGNIZER 

CLEAR TABLE INDEX 

PICKUP TABLE ENTRY 

GO ON IF NOT AT END OF TABLE 

END OF TABLE - ERROR 

COMPARE TABLE ENTRY TO INPUT 

ENTRY COMPARES CHECK SECOND WORD 

NO COMPARE, CHECK NEXT TABLE ENTRY 

MAKE SURE THAT SECOND WORD OF 
CONTROL STATEMENT IS BLANKS 

ERROR UNRECOGNIZEABLE CONTROL STATEMENT 
PICKUP CODE OF LAST CONTROL STATEMENT 
MULTIPLY TABLE INDEX BY TWO 
GO TO PROCESS CONTROL STATEMENT 
TEST FOR CARRIAGE RETURN 
CONTROL STATEMENT NAME 
NON- ZERO IMPLIES *CR 
ILLEGAL CONTROL STMNT NAME 

ZERO IMPLIES ILLEGAL STATEMENT, OUTPUT ERROR 
HANDLE ASTERISK FOLLOWED BY BLANK 
AS COMMENT CARO. COMMENT CARDS MUST 3£ 
FOLLOWED BY ANOTHER COMMENT CARD OR 
BY A CONTROL STATEMENT. THEY ARE NOT 
ALLOWED BETWEEN TWO PROGRAMS OR 
IMMEDIATELY PRECEEDING A PROGRAM. 


*L CORE RESIDENT PART 0 
*LP CORE RESIDENT PART 1 
*M MASS RESIDENT PART 0 
♦HP MASS RESIDENT PART 1 
*S DEFINE ENTRY POINT 

*Y DEFINE CORE RESIDENT DIRECTORY ENTRY 
* YM DEFINE MASS RESIDENT DIRECTORY ENTRY 
*V CONTROL TO STANDARD BINARY INPUT 
*U CONTROL TO STANDARD COMENT DEVICE 
*1 ASSIGN STANDARD BINARY INPUT DEVICE 

*0 ASSIGN STANDARD LIBRARY DEVICE 

*C ASSIGN STANDARD LIST DEVICE 

* T END OF BINARY INPUT 

*D DEFINE DATA 
*G WRITE DISK ADDRESS TAGS 
*H PERFORM DISK SURFACE TEST 
*** END OF TABLE *** 

*L 

*LP 

*M 


01700 419 

0170 0 421 
01700422 
01700423 
01700 424 
01700 425 
01700426 
01700427 
01700 428 
01700 429 
01700430 
01700431 
01700432 
01700 433 
01700434 
0170 0 43 5 
01700436 
0170 0 437 
01700 438 
0170 0439 
0 17 0 0 440 
01700441 
01700 442 
01700 443 
0170 0444 
01700*445 
01700446 


01700448 
0170 0449 
01700*450 
01700451 
0170 0 452 
01700 453 
0170 0 454 
0170 0 455 
01700456 
0170 0457 
01700458 
0170 0 45 9 
01700460 
01700461 
01700462 
01700 463 
0170 0 464 
0170 0 46 5 

01700466 

0170 0467 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 


o 


o 


o 


o 


u 



CONTRL 


o 

0468 

P0103 

1800 

JMP 


P0104 

0 2 5C 

JMP 

o 

0469 

P0105 

1800 

P 0 1 0 6 

0 3 EC 

JHP 


0470 

P0107 

1800 


P 0 1 08 

0 0 28 

JMP 

o 

0471 

P 0 1 0 9 

1800 

P010A 

0 0 20 

JMP 


0472 

P010B 

1800 


P010C 

042F 

JMP 

o 

047 3 

P0 10D 

1800 

P010E 

0427 

JMP 


04-74 

P010F 

1300 


P0110 

0 3 6A 

JMP 

o 

0475 

PG111 

18 0 0 

P0112 

0 3 6A 

JMP 


C 476 

PO 113 

1800 



PO 114 

036A 

JMP 

o 

0477 

P0 115 

1800 

P0 11 6 

0 5 A A 

JMP 


0478 

P0117 

1800 


P 0 118 

042A 

JMP 

o 

0479 

P0 119 

1800 

P011A 

0 433 

JMP 


0480 

PQ11 8 

1800 



P011C 

0 476 


o 





o 





o 





o 





o 






PAGE 15 DATE.: 08/19/99 

STARMP * HP 

STARS *S 

START * Y 

STARYM *YM 

STARtf 

STARU *U 

STARI *1 

STARO *0 

STARS *C 

START * T 

STARO *D 

STARS *G 

STARH 


o 

o 

o 


o 


017Q0 468 
01700469 
0170 0470 
01700 471 
01700 472 
01700473 
0170 0 474 
017004 75 
01700476 
0170 0 477 
0170 0478 
01700479 
0 170 Q 480 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATES G 8 / 1 9/9 9 


0482 

0483 

0484 

0485 

0486 
0 48 7 
0488 


ROUTINE TO 
VALUE FROM 
CONTROL S T 
ITS BINARY 


TO GET A HEX I 
OH A FIELD OF 
S TATEMENT AND 
RY VALUE IN * 


H E X I D E C I M A L 
OF A 

AND RETURN 
N * A * 


01700 482 
01700483 
0170 Q 484 
01700 485 
0170 0486 
01700 487 
01700 488 


0 49 0 

0491 

0492 
0 49 3 
0 49 4 
0495 


PO 110 
PO HE 
P011F 
PO 12 0 
P0121 
PO 12 2 


0 BOO 
OA 09 
6116 
0 8 44 
514B 
1C FA 


GETHEX 


NOP 

ENA 

STA- 

GLR 

RTJ- 

JMP* 


SC A NSW, I 
A 

SCAN, I 
CGETHEX') 


ENTRY LOCATION FOR STORAGE OF RETURN ADDRESS 
SET BIT 0 OF SCANSW SAYING GET HEX FIELD 
SET BIT 3 OF SCANSW SAYING SAVE ASCII CODES 

CHECK INPUT FIELD 

RETURN TO CALLER WITH BINARY VALUE IN S'CNINP 


01700490 

017Q0491 

01700492 

01730493 

017QQ494 

017G0495 



0497 



* 

R 0 U 

TINE 

T 

0 CHECK FOR COMMA 

01700497 


o 

0499 



* 

CAL 

LING 

S 

E Q U E N C E 

01700499 

O 

o 

050 1 



* 

RTJ* 

COMMA 


CALL ROUTINE 

01700501 

O 


05 0 2 



* 

XXX 



P+1 - ERROR RETURN, NO COMMA 

01700 502 


o 

0503 




XXX 



P+2 - NORMAL RETURN, COMMA DELIMETER FOUND 

01700503 

O 


050 5 

P0 123 

OBOO 

COMMA 

NOP 

0 


ENTRY LOCATION FOR STORAGE OF RETURN ADDRESS 

0170 0 50 5 


o 

0506 

P0124 

580 0 

X 

RTJ 

OETERM 


GO TO 11 TO FIND TERMINATOR TYPE 

0 170 G 506 

O 


P0 12 5 

7FFF 

X 





01700507 


0507 

P0 126 

OOFD 


INQ 

-2 


OETERM RETURNS 2 IN Q-REGISTER IF COMMA FOUND 



0508 

P 0 12 7 

0 151 


SON 

1 


SKIP IF NOT COMMA 

0170 0508 


o 

D 5 0 9 

P0128 

D8FA 


RAO* 

COMMA 


UPDATE RETURN ADDRESS, COMMA FOUND 

01700509 

o 

0510 

P0129 

1CF9 


JMP* 

( COMMA & 


RETURN TO CALLER 

01700510 
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DATE: 03/19/99 


ROUTINE 


TO PROCESS * Y OR * Y M 


01700 512 


0514 

P 0 1 2 A 

0 9 FC 


STARYM 

INA 

-3 

0515 

P012B 

Q 1 32 



SAM 

YMl-*-l 

0516 

P012C 

0 A 05 



ENA 

5 

0517 

P 0 120 

1 334 


YM2 

JMP* 

LSTH4 

0513 

P012E 

0 A02 


YM1 

ENA 

2 

0519 

P012F 

1806 



JMP* 

YO 

0520 

PO 130 

0 9 F D 


START 

INA 

-2 

0521 

P 0 1 3 1 

0132 



SAM 

Yl-*-i 

0522 

PO 1 32 

0 A 06 



ENA 

6 

0523 

P0133 

18F9 



JMP* 

YM2 

052 4 

P 0 13 4 

0 A 0 1 


Y 1 

FNA 

1 

0525 

PO 13 5 

61 4E 


¥0 

STA- 

CSNAME, I 

052 6 

PQ136 

El 39 



LQQ- 

INPXCO, I 

052 7 

P 0 1 3 7 

5800 

X 


RTJ 

11 


P 0 138 

7FFF 

X 




0528 

PO 139 

1800 



JMP 

CM20 


P013A 

FF6E 





0529 

P013B 

0 0 0 0 


1 1C ALL 

NUM 

0 


MAKE SURE CSNAME IS LESS THAN 
THAT STATEMENTS ARE IN ORDER 
ERROR 5, STATEMENT OTHER THAN 
PREVIOUSLY ENTERED 
SET UP CONTROL STATEMENT 
GO TO PROCESS ORDINAL 
MAKE SURE THAT CSNAME IS 
TO ONE MEANING THAT ONLY 
ERROR 6, STATEMENT OTHER 
*Y PREVIOUSLY DEFINED 
SETUP CONTROL STATEMENT 
SAVE CODE FOR STATEMENT 
Q WITH THE ADDRESS 
II TO BUILD SYSTEM 


TWO MEANING 
*Y OR *YM 


NAME CODE 


LESS 

*Y»S 

THAN 


THAN 

HAVE 


OR EQUAL 
BEEN INPUT 


CODE 


LOAD 

CALL 


NAME 
TYPE 
OF THE INPUT 
DIRECTORY 


BUFFER 


0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
017 0 
0170 


0 51 A 

0515 

0516 

0517 
0513 

0519 

0520 

0521 
0 522 
0 52 3 
0 52 4 

0525 

0526 

0527 


READ NEXT CONTROL STATEMENT 
ZERO IF MODULE II NOT CALLED 


**HSOS 4.1**01700528 
01700529 


CONTRL 
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DATE? 08/19/99 


0531 



* R 

: o u 

TINE 

0533 

P013C 

0112 

STARL 

SAN 

L ST Ml-* -1 

0534 

PO 13D 

OA 07 


ENA 

7 

0535 

P013E 

1823 


J MED- 

LSTM4 

0536 

PG13F 

0 9FC 

LSTM1 

INA 

- 3 

0537 

PO 140 

0134 


SAM 

LSFM3 A-*-l 

0538 

P 0 141 

0111 


S AN 

LSTM2 

0539 

PO 142 

1311 


JMP* 

LSTM3D 

0540 

PO 143 

0 A13 

LSTM2 

ENA 

$13 

0541 

PO 144 

1810 


JMP* 

LSTM4 

0542 

PO 14 5 

5 804 

LSTM3 A 

RTJ* 

LSTM36 

0543 

PO 1 46 

454E 


ALF 

3 , END 0 V 4 


P 0 1 4 7 

4430 





PO 148 

5634 




05*4 

P 0 149 

0B00 

LSTM3B 

NOP 

a 

0545 

P014A 

C8 FE 


IDA* 

LSTM3B 

0546 

PQ14 E 

61 0 F 


STA- 

INPCTR, I 

0547 

P014C 

5128 


RTJ- 

TABSGH, I 

0548 

P014D 

EliC 


LDQ- 

S W6 , 1 

0549 

P014E 

0175 


SQM 

LSTM3C-*-! 

0550 

P014F 

6104 


STA- 

C CM LI M, I 

0551 

PO 150 

61 6€ 


STA- 

TOP, I 

0552 

P 0 151 

68 00 


STA 

END 0 V 4 


P0152 

0 0 32 



LSCM4 A 

0553 

PO 153 

1803 

LSTM3 0 

JMP* 

0554 

PO 15 4 

0 A 2 0 

LSTM3C 

ENA 

320 

0555 

P 0 15 5 

13 OC 


JMP* 

LSTM4 

0556 

PO 156 

0 A 03 

LSTM4A 

ENA 

3 

0557 

PO 157 

61 4E 


STA- 

CSNAME, I 

055 8 

P 0 15 8 

58 CA 

LSTM40 

RTJ* 

COMMA 

0559 

PO 159 

1 8 0 A 


JMP* 

LSTM41 

0560 

P015A 

5 8 02 


PTJ* 

GETHEX 

0561 

P015B 

Cl 13 


LQA- 

SYMSTR, I 

0562 

P015C 

0111 


SAN 

LSTM4Q 

0 563 

PO 150 

1 8 1A 


JMP * 

LSTM5 

0564 

PD15E 

9112 

LSTM4Q 

SUB- 

BLANKS, I 

0565 

P015F 

0108 

SAZ 

LSTM43-*-l 

0566 

PO 160 

0 A08 


ENA 

8 

0567 

PO 1 61 

1800 

LSTM4 

JMP 

QTfPE 


PO 162 

0315 



VALID 

0568 

PQ163 

5800 

LSTM41 

RTJ 


PO 164 

Q 3 7B 



LSTM43 

0 5 6 9 

P 0 16 5 

31 42 


SQZ 

057 0 

PO 166 

0 AO E 

LSTM42 

ENA 

$ E 

0571 

P 0 167 

1 8F9 


JMP* 

LSTM4 

0572 

P 0 163 

Cl 03 

LSTM43 

LDA- 

PRO BAS, I 

057 3 

PO 169 

010C 


SAZ 

LSTM4X 

0574 

PO 1 6 A 

9 0 EB 


SUB- 

$EB 

0575 

P016B 

QUA 


SAN 

LSTM4X 

0576 

P016C 

C 0 EB 


IDA- 

$EB 


TO PROCESS * L STATEHEN 


HAS II ALREADY RUN 

ERROR 7, NO SYSTEM DIRECTORY BUILT 
BEFORE PROGRAM LOAD 


LAST STATEMENT WAS *Y OR *YM 
STATEMENT BAD 
LAST STATEMENT WAS *L 
STATEMENT IS OUT OF ORDER 


PICKUP RUN-TIME ADDRESS OF ENTRY POINT NAME 
NAME FOR END ADDRESS OF PART 0 


ENTRY POINT ADDRESS 

MAKE SURE THAT END OF PART 0 WAS DEFINED 
BEFORE BEGINNING *L LOAD 
HAS THIS NAME BEEN DEFINED 
NO* PRINT ERROR 

YES, SAVE AS UPPER BOUND FOR LOAD 
SAVE AS END OF PART 0 
SAVE END ADDRESS OF PART 0 


GO TO EXIMINE *L CONTROL STATEMENT 
ERROR 20* *S,ENQGV4,HHHH MOT ENTERED 
BEFORE THE FIRST *L CONTROL STATEMENT 

SAYTMO *L IS BEING PROCESSED 


IS FIELD DELIMETER A COMMA 

NO, CHECK FOR END OF STATEMENT 

YES* PICKUP THE LOAD ADDRESS 

make SURE THAT THE FIELD IS NUMERIC 

THIS FEILD NOT NUMERIC 

THIS FIELD NUMERIC, CHECK IF VALID 

IS THIS FIELD EMPTY 

YES GO ON TO LOAD STAGE 

ERROR 8. NAME APPEARS IN NUMBER FIELD 


TEST FOR CARRIAGE RETURN OR BLANK DELIMETER 

TERMINATOR IS VALID 

ERROR E, INVALID FIELD TERMINATOR 

IS THIS *L FOR SYSDAT 
YES 

NO, DOES *L IMMEDIATELY FOLLOW SYSDAT 

NO, JUST LOAD AT PROBAS 

YES, INCREASE PROBAS PAST SYSTEM 


01700531 


01700533 
01700534 
01700535 
01700536 
01700 537 
01700 538 
01700539 
01700540 
017 0 0 541 
0170 0 542 
0170 0 543 


0170 0 544 
0170 0 545 
01700546 
01700547 
01700548 
01700 549 
017 Q 0 55 0 
0170 0 551 
017Q0552 

01700553 
01700554 
017D0555 
01700556 
01700557 
0170 0 558 
0170 0559 
01700560 
01700561 
01700 562 
01700563 
0170 0 56 4 
0170 0 565 
01700 566 
0170 0567 

01700568 

01700 569 
01700570 
01700571 
01700 572 
01700 573 
0170 0 574 
01700575 
0 1 7 Q 0 576 
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DATE! 08/19799 


0577 

P016D 

80 F6 



ADD- $E6 

057 8 

POlbE 

61 03 



STA- PROBAS, I 

0579 

P016F 

0842 



CLR Q 

0580 

P 1) 17 0 

3000 



DVT =N$60 


PO 171 

0 0 60 




0581 

PQ172 

0141 



SQZ EVPG 

0582 

P 0 1 73 

0901 



INA 1 

0583 

PO 17 4 

68 0 0 

X 

EVPG 

STA LENSDT 


PO 1 75 

7FFF 

X 



0584 

P0176 

1 82 B 


LSTM4X 

JMP* LSTM8 

0585 

P0177 

Cl 03 


LSTM5 

LDA- PROBAS,! 

0586 

P0178 

01 GC 



SAZ LSTM6-* -1 

0587 

PO 1 79 

9 0 EB 



SUB- SEB 

0588 

P017A 

QUA 



SAN LSTM6-*-l 

0589 

PQ17B 

C 0 EB 



LDA- SEB 

Q 5 9 0 

PO 1 70 

80E6 



ADD- $ES 

0591 

P017D 

6103 



STA- PROBAS, I 

0592 

P017E 

0 8 42 



CLR Q 

0593 

P017F 

3 000 



Dtfl =N96 


PO 180 

GO 60 




0 59 4 

PO 18 1 

0141 



SQZ EVENPG 

0595 

PO 182 

0901 



INA 1 

0596 

P 0 1 83 

6800 

X 

E'VENPG 

STA LENSDT 


PO 184 

0175 

X 



0597 

PO 16 5 

Cl 49 


LSTM6 

LOA- SCN IN P , I 

0598 

PC 18 6 

El 03 



LDQ- PROBAS, I 

059 9 




*- 


060 0 




* 


0601 

P0187 

5800 

X 


RTJ SIGNCK 


P 0 1 8 8 

7FFF 

X 



060 2 






0603 




* 


0 60 4 






0605 

PO 189 

0 1.21 



SAP LSTM7 

050 6 

P018A 

18 15 



JMP* LSTM6A 

0607 

P018B 

E847 


LSI H7' 

LDQ* CRPFLG 

060 8 

PO 18C 

0 1 59 



SON LSTM7X 

0609 

POISE? 

Cl 0 4 



LDA- COMLIM, I 

0610 

PG18F 

El 49 



LDQ- SCNINP, I 

0511 

P018F 

5800 

X 


RTJ SIGNCK 


P 0 19 0 

Q 1 88 

X 



0612 

P 0 19 1 

0121 



SAP L STM 7 A 

0 613 

PG 192 

1 800 



JMP* LSTM6A 

0614 

P 019 3 

El 49 


LSTM7A 

LDQ- SCNINP, I 

0615 

PO 19h 

4103 



ST Q- PROBAS, I 

0616 

PO 1 9 5 

41 7B 



STQ- CSQCTR, I 

051 7 

P0195 

5800 


LSTM7L 

RTJ VALID 


P0197 

0 3 48 




0 61 8 

PO 198 

0148 



SQZ LSTM8-*-l 

0619 

PO 199 

1 8CC 



JMP* LSTM42 

0620 

P019A 

8 1 70 


LSTM7X 

ADD- CSQCTR, I 

0621 

P019B 

617B 



STA- CSQCTR, I 

0622 

P019C 

El 49 



LDQ- SCNINP,! 


DIRECTORY 

COMPUTE NUMBER OF PAGES USED FOR 
SYSDAT AND DIRECTORY 


NUMBER OF CORE RESIDENT PAGES 

GO LOAD PROGRAM STARTING AT PROBAS 
CHECK FOR A VALID LOAD ADDRESS 
SKIP IF LOADER PROGRAM BASE IS ZERO 
DOES THIS *1 IMMEDIATELY FOLLOW THE SYSDAT 
NO, COMPARE THE LOAD ADDRESS TO PROBAS 
YES, INCREASE PROBAS PAST THE SYSTEM 
DIRECTORY AND THEN COMPARE THE LOAD ADDRESS 
TO PROBAS 

COMPUTE NUMBER OF PAGES USED FOR 

SYSDAT AND DIRECTORY 

NUMBER OF CORE RESIDENT PAGES 


HEX LOAD ADDRESS 
LOAD PROGRAM BASE 


SIGN CHECK COMPARES A AND Q, 

IF A.GT.Q OR A.EQ.Q, A RETURNS 


A POSITIVE VALUE, IF A.LT.Q THEN 
A RETURNS NEGATIVE 


NEW BASE IS GREATER THAN PROBAS 
ILLEGAL PROGRAM RELOCATION BASE 
IF WE ARE IN PARTI (*LP LOADS) 

NO NEED TO CHECK COMLIM 

IS THE' RELOCATION BASE BELOW THE 

BEGINNING OF SYSTEM COMMON 


YES, CONTINUE THE LOAD 

ILLEGAL PROGRAM RELOCATION BASE 

UPDATE PROBAS TO THE NEW LOAD ADDRESS MAKING 

THE AREA BETWEEN THE OLD AND NEW ADDRESSES 

UNAVAILABLE FOR LOADING 

TEST FOR VALID RECORD TERMINATOR 

SKIP IF TERMINATOR IS VALID 
ERROR £ , ILLEGAL FIELD TERMINATOR ' 

A-REG NOW CONTAINS RELATIVE DISTANCE 
FROM PROBAS, I TO SCNINP,I 
C SQCTR , I IN PART 1 LOADS CONTAINS 


01 70 0 57 7 
0170 0 578 
0 17 0 Q 5 7 9 
0170 0 58 0 

01700581 
017GG582 
01700 583 

01700 584 
01700585 
01700 586 
01700587 
01700588 
01700589 
0 17 0 Q 590 
01700591 
01700592 
01700 593 

01700594 
01700 595 
01700596 

01700597 
01700598 
01700599 
0 170 0 60 0 
01700601 

0170 0 602 
01700603 
017G0604 
0170 060 5 
01700606 
0170 Q 60 7 
01700608 
01700609 
0170 0 610 
01700611 

017 0 0 612 
01700613 
0170 G 614 
01700615 
017CG 616 
0170 0 617 

0170 0 618 
0170 0 619 
01700620 
0 170 0 621 
0170 0622 
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DATES 08/19/99 


G 623 

P019D 

4103 



STQ- PROBA S, I 

0624 

P019E 

1 8 F? 



JMP* LSTM7L 

0625 

PQ 19F 

0 A09 


LSTM5A 

ENA 9 

06 2 6 

P01A0 

1 8 C 0 



JMP* LSIM4 

0627 

P01A1 

08 07 


LSTM8 

RAO* YORDNL 

0528 

P01A2 

E 1 93 



LDQ- QNT AB , I 

0529 




¥ 


Do 3 0 

P01A3 

0 143 



SQZ LSTM9-*-! 

0631 

P01A4 

C8 04 



LDA* YORDNL 

0632 

P 0 1 A 5 

92 01 



SUB- 1 , Q 

0633 




¥ 


0634 

P01A6 

0102 



SAZ LSTM8A-*-! 

0535 

P 0 1 A 7 

1815 


LSTM9 

JMP* LSTM9A 

0636 

P01A8 

00 0 0 


YORDNL 

NUM 0 

0637 

PQ1A9 

0193 


LSTM8 A 

RAO- QNT A B , I 

063 8 

P 0 1 A A 

D82B 



RAO* YGNTER 

0 63 9 

P01AB 

OA 04 



ENA 4 

0640 

P01AC 

2829 



MU I* YGNTER 

0641 

P01AD 

0 822 



IRA Q 

0642 

P01AE 

ODFC 



INQ -3 

0 6 43 

P01AF 

Cl 03 



L DA- PRD BA S, I 

0644 

PO 1BQ 

66 EB 



STA- *$EB! » Q 

0645 




¥ 


0 6 4 6 

P01B1 

48 22 



STQ* YPOINT 

0647 

P01B2 

Cl 4E 



LOA- CSNAM'E, I 

0648 

P01B3 

0 9FC 



INA -3 

0649 

PO IB 4 

0103 



SAZ LSTM8 B-*-i 

065 0 

PO IB 5 

G 0 0 0 



LDA =N$42 0 0 


P 0 1 B 6 

4200 




0651 

PO IB 7 

1803 



JMP* LSTM8C 

0652 

P01B8 

CO 00 


LSTM8B 

LDA =N$ 20 0 


P01B9 

0200 




0653 

P01BA 

ODFE 


LSTM8C 

INQ -1 

0654 

PO IBB 

66EB 



STA- 1 $EB) , Q 

0555 

P01BC 

C14E 


LSTM9A 

LDA- GSNAME, I 

065 6 

P01BD 

0 9FB 



INA -4 

0657 

PO 1 BE 

0113 



SAN LSTM9 B~* -1 

06 5 8 

P01BF 

C 8 1 7 



LDA* FRSTLP 

0559 

PO ICO 

0111 



SAN L S T M 9 8 - * - 1 

0650 

P01C1 

5816 



RTJ* LPBNQY 

0 6 61 

P01C2 

0 8 46 


LSTM9R 

CLR A ,Q 

0662 

P01C3 

580 0 

X 


RTJ ILOA0 


P01C4 

7FFF 

X 



0 653 

PD1C5 

£8 OE 



LOO* YPOINT 

0664 




¥ 


0665 

P01C 6 

C6EB 



LDA- .(SEB) ,Q 

0666 

P01C7 

9102 



SUB- DATBA S , I 

0557 

P01C8 

0112 



SAN L STM9D- *-1 

066 8 

P01C9 

Cl 0 5 



LDA- DATLI M, I 

065 9 

P01CA 

66EB 



STA- 4$ES> ,Q 

0670 

P01C8 

C14E 


LSTM9D 

LDA- CSN AME » I 

0571 

P01CC 

0 9 FB 



INA -4 

0672 

poicn 

0111 



SAN LSTM9E-*-! 


AN ACCUMULATION OF PROGRAM LENGTHS 

ADDED TO PART 1L FOR LENGTH OF PART 1. 

ILLEGAL PROGRAM RELOCATION BASE 

OUTPUT THE ERROR 

INCREMENT THE ORDINAL COUNTER 

PICKUP THE NEXT ADDRESS TO CHECK IN THE 

*Y ORDINAL TABLE 

SKIP IF THERE WERE NO *T STATEMENTS 
PICKUP THE ORDINAL OF THIS *L STATEMENT 
COMPARE IT TO THE NEXT ENTRY IN THE 
* Y ORDINAL TABLE 

SKIP IF THIS ORDINAL IS IN THE TABLE 


ORDINAL OF CURRENT *L STATEMENT 
INCREMENT POINTER FOR ORDINAL TABLE 
INCREMENT COUNTER OF CORE RESIDENT ORDINALS 
LENGTH OF SYSTEM DIRECTORY ENTRY TIMES 
COUNTER OF CORE RESIDENT ORDINALS EQUALS 
THE INDEX TO THE SYSTEM DIRECTORY ENTRY 
DECREMENT INDEX TO WORDQ OF ENTRY 
PICKUP RELOCATION BASE FOR PROGRAM BEING 
LOADED AMD STORE IN WORD 2 OF THE SYSTEM 
DIRECTORY ENTRY 


CHECK FOR *L OR *LP TO DETERMINE 
REQUEST CODE FOR SYSTEM DIRECTORY ENTRY 

->LP REQUEST CODE NEEDS D-BIT SET = 4200 


*L REQUEST CODE = 0200 

DECREMENT POINTER TO START OF ENTRY 
STORE REQUEST CODE IN WORD 0 OF ENTRY 

IS THIS A *LP STATEMENT 
NO, 

YES, IS THIS THE FIRST *LP 
NO, GO TO LOAD 

YES, GO TO SETUP AUTOLOAD PARAMETERS 
SETUP A RELOCATABLE LOAD FUNCTION 
LOAD THE PROGRAM 


PICKUP THE INDEX FOR THIS SYSTEM DIRECTORY 
ENTRY 

FETCH THE INITIAL EXECUTION ADDRESS FOR THIS 
BLOCK OF PROGRAMS AND COMPARE IT TO THE 
RELOCATION BASE FOR DATA STORAGE 
IF THEY ARE EQUAL RESET THE FIRST EXECUTABLE 
ADDRESS TO THE END OF THE DATA BLOCK 


IS THIS A *LP 

NO, GO TO GET NEXT STATEMENT 


01700623 
0170 0 624 
01700625 
01700626 
01700627 
01700628 
01700629 
01700630 
01700 631 
01700 632 
01700633 
01700634 
01700 635 
01700 636 
01700637 
01700638 
0170 0639 
0170 0640 
01700641 
01700 642 
01700 643 
01700 644 
01700 645 
0170 0 646 
01700647 
0170 0 648 
01700649 
01700650 

01700551 

01700652 

01700653 
0 17 Q Q 654 
0170 0 65 5 
01700656 
01700657 
0170 0 658 
01700 659 
0170 0660 
01700661 
0170 0 662 

01700 663 
0170 0664 
01700665 
01700666 
01700 667 
01700668 
0170 0 669 
01700670 
0170 0671 
0170 0 672 


n 


CONTRL 


DATE* 08/19/99 


PO ICE 
P01CF 
P01D0 
P 0 ID 1 
P01D2 
PO 1D3 
P01D4 
PO ID 5 
PO ID 6 


D 8 0 8 
1800 
FEFC 
0 00 0 
0 0 00 
0 0 00 
0 0 0 0 
0 0 00 
0 0 0 0 


PQ IDT OBOO 
P 0 ID 8 C103 
P01D9 0842 
P01DA 3000 
P01DB 0060 
P01OC 8800 
P01DD 0357 
PO 10 E 68 00 
PO IDF 0064 
P01E0 48 0 0 
P01E1 0066 
P01E2 0852 
P01E3 FI 03 
P01E4 4300 
P01E5 0068 
P01E6 IGF 0 


00 60 
8800 
0357 
68 00 
0 0 64 
48 0 0 
0 0 66 
0852 
F 1 0 3 
4300 
0 0 68 
IGF 0 


LSTM9E 

PARDEF 

CRPFLG 

YPOINT 

ENDQV4 

YCNTER 

FP.STLP 

LPBNDY 


RAO* FRSTLP 
JMP CM65 


NOP 0 

LDA- PROBAS, I 
CLR Q 
D VI = N9 6 

ADO LSSEGT 

STA PART 1C 

STQ PART1L 

tco a 

ADQ- PROBAS, I 
STQ PARTI A 

JHP* (LPBNQf) 


YES, SET FLAG SAYING LP PROCESSED 

GO TO PROCESS THE NEXT CONTROL STATEMENT 

FLAG SAYING IF PARTITIONS WERE DEFINED 

FLAG INDICATING IF CREP1 OR CREP IS USED 

TEMPOTARY HOLDER FOR ORDINAL 

ENDING ADDRESS OF PART 0 

COUNTER OF ORDINAL PROGRAMS 

FLAG INDICATING IF LP HAS BEEN PROCESSED 


PICKUP PROGRAM BASE FOR FIRST LP 

DEVIDE BY SECTOR LENGTH 

ADO STARTING SECTOR OF CORE IMAGE 

SAVE STARTING SECTOR OF PARTI CORE IMAGE 

SAVE INCREMENTAL PART OF FART 1 IMAGE 


SAVE MODIFIED CORE ADDRESS OF PARTI 


01700673 

01700674 

01700675 
01700676 
01700677 
01700678 
0 170 D 67 9 
01700630 

01700 682 
01700683 
0170 0684 
0 1700685 

01700686 

01700687 

01700688 

0170 0689 
01700690 
01700691 

0170 0 692 


I 


0694 


0696 

0697 

069 8 

0699 

0700 
07 0 1 

0702 

070 3 

0704 

0705 

07Q 6 

070 7 
070 3 

070 9 

0710 

0711 

0712 


0713 

0714 

071 5 
0716 
0 717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

072 6 

0727 

0728 

0729 

0730 

0731 

0732 

0733 


CONTRL 
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DATE'S 08/19/99 


•ROUTINE TO PROCESS 


* L F STATEMENT 


01700694 


P01E7 

0 9 FC 


STARLP 

INA 

-3 

P01E8 

0107 



SAZ 

LP2-*-i 

P01E9 

0 9 FE 



INA 

-1 

P01EA 

0103 



SAZ 

LPl-*-l 

P01EB 

0 A 13 



ENA 

$13 

PQ1EC 

1800 


LPO 

JMP 

LSTM4 

P01ED 

F F 73 





PQ1EE 

1800 


LP1 

JMP 

LSTM40 

P01EF 

F F 68 





P01FQ 

0 8 42 


LP2 

CL R 

Q 

P01F1 

0 A01 



ENA 

1 

P01F2 

5800 

X 


RIJ 

ILOAD 

P01F3 

0 1C 4 

X 




P01F4 

56 0 0 

X 


RTJ 

WRFOUT 

P01F5 

7FFF 

X 




P01F6 

Cl 7B 



LDA- 

CSOCTR, I 

P01F7 

6800 



STA 

LENQG 

P01F8 

0 6 63 





P01F9 

C 1 0 4 



LOA- 

COMLIM, I 

P01FA 

6800 



STA 

COMMD 

P01FB 

065F 





P01FC 

5804 



RTJ* 

LP3 

P01FD 

50 41 



ALF 

3, PARTBL 

P01FE 

5254 





P01FF 

42 4'C 





P020Q 

OBOO 


LP3 

NOP 

0 

PO 201 

C8FE 



LDA* 

LP3 

P 0 2 0 2 

61 OF 



STA- 

INPCTR, I 

P 0 203 

5128 



RTJ- 

TABSCH, I 

P020 4 

E 1 1C 



LDQ- 

SWo , I 

PO 20 5 

0161 



SQP 

L'P4-*-i 

P0 20 6 

18 OD 



JMP* 

LP6 

P 0 20 7 

6856 


LP4 

STAM- 

PARTBL 

PO 20 8 

D 9 FE 



INA 

-1 

PO 20 9 

0 8 22 



TRA 

Q 

P02QA 

C2 0 1 



LOA- 

1,0 

P020B 

0125 



SAP 

LP5-*-i 

P0 2GC 

0 90 0 



INA 

0 

pozon 

0113 



SAN 

LP5-*-i 

P020E 

QAOO 



ENA 

0 

P 0 20 F 

68C 1 



STA* 

PARDEF 

P 0 21 0 

1803 



JMP* 

LP6 

PO 21 1 

0 AO 1 


LP5 

FNA 

1 

P0212 

68 BE 



STA* 

PARDEF 

P 0 213 

58 04 


LP6 

RTJ* 

LP7 

PO 21 4 

4C 53 



ALF 

3, LSTLOC 

P0215 

544C 





P0216 

4F43 






WAS THE LAST STATEMENT *L 
YES 

NO* WAS THE LAST STATEMENT *LP 

YES, GO TO PROCESS THIS *LP 

NO, ERROR 13 CONTROL STATEMENT OUT OF ORDER 

OUTPUT THE ERROR 


ISSUE A PATCH ENTRY POINTS FUNCTION TO 
LINK TOGETHER THE PART 0 ENTRY POINTS 


WRITE OUT ALL PAGES THAT HAVE SEEN USED 

SAVE THE LENGTH OF PART 0 FOR USE AS A 
BOUND OF UNPROTECTED 

SAVE THE TOP OF SYSTEM COMMON AS BOUND 
OF UNPROTECTED 

FIND THE STARTING ADDRESS OF THE PARTITIONED 
CORE TABLE 


01700696 
0170069 7 
01700698 
01700699 
01700700 
01700 701 

01700702 

01700 703 
01700 704 
01700705 

01700706 

01700707 

01700708 

01700709 

01700710 

01700711 
0170 0 712 


PUT ADDRESS OF THE ENTRY POINT NAME 

INTO THE POINTER FOR THE ENTRY SEARCH ROUTINE 

SEARCH FOR THE NAME 

IS PARTBL DEFINED 

YES, GO GET THE ADDRESS OF THE FIRST PARTITIO 
NO, IS LSTLOC DEFINED 

SAVE THE STARTING ADDRESS OF THE TABLE 

PICKUP THE FIRST WORD OF THE 

PARTITIONED CORE TABLE 

SKIP IF ADDRESS LESS THAN $8000 

SKIP IF ADDRESS NOT EGUAL SFFFF 

CLEAR THE PARTITIONED CORE FLAG INDICATING 

NO PARTITIONS 

SET THE PARDEF FLAG SAYING THAT PARTITIONED 
CORF EXISTS IN THIS SYSTEM 

FIND THE LAST LOCATION OF PARTITIONED CORE fri 


0 17 Q 0 71 3 
01700714 
01700715 
01700 716 
0170071 7 
NO 1 7 0 0 7 1 8 
01700719 
01700720 
01700721 
017 0 0 722 
01700723 
01700724 
01700725 
01700726 
0 17 Q 0 72 7 
01700728 
01700729 
01700730 
01700731 
01700732 
01700733 


CONTRL 
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23 


DATE: 08/19/99 


073 4 

P0217 

0B00 


LP7 

NOP 0 

0735 

P 0 218 

C8FE 



LDA* LP7 

0736 

P0219 

61 0 F 



STA- INPGTR, I 

0737 

PQ21A 

5128 



RTJ- TASSC H , I 

073 B 

P021B 

El 1C 



LDQ- SW6 , I 

073 9 

P021C 

01 62 



SQP LP8 1 

0740 

P021D 

C8B6 



LOA* ENDQV4 

0741 

P021E 

1808 



JMP* LP9 

0742 

P021F 

683F 


LP8 

STA* LSTLOC 

0743 

P 0 220 

09FE 



INA -1 

0744 

PO 221 

0822 



TRA Q 

0745 

P0222 

C201 



LD A- i,Q 

0746 

P 0 22 3 

0122 



SAP LP9-*-l 

0747 

PO 224 

0 9 G 0 



INA 0 

0748 

P 0 22 5 

010 2 



SAZ LPtO-*-l 

G74 9 

PO 22 6 

6103 


LP9 

STA- PROBA S , I 

075 0 

PO 227 

18 08 



JMP* L PI 2 A 

0751 

PQ228 

C8A8 


LP10 

LOA* PARDEF 

0732 

PO 229 

0102 



SAZ LPil-*-l 

0753 

P 0 22 A 

a A 22 



ENA $22 

0754 

P 0 22 B 

18 CO 



JMP* LPO 

0755 

P022C 

C 1 04 


LP1 1 

LOA- COMLI M , I 

0756 

P022D 

0901 



INA 1 

0757 

PC22E 

61 03 



STA- PROBAS, I 

075 8 

P022F 

6106 


LP12A 

STA- CSQLIM, I 

0759 

P0230 

5802 



RTJ* LP11A 

0760 

P0231 

1810 



JMP* LP14A 

0761 

P 0 23 2 

0B00 


LP11A 

NOP 0 

0762 

P 0 233 

5804 


LP1 2 

RTJ* LP1 3 

0763 

PO 234 

4053 



ALF 3 ,MSIZV4 


P 0 23 5 

495 A 





PO 236 

5634 




0764 

PO 2-37 

3 B 00 


LP13 

NOP 0 

0765 

PG233 

C 8 F £ 



LOA* LP13 

0766 

PO 239 

61 OF 



STA- INPCTR, I 

0767 

P 0 23 A 

5128 



RTJ- TABSCHtI 

0768 

PO 23 B 

E 1 1C 



LDQ- SW6 , I 

0769 

P023C 

01 63 



SQP LP1 4-*- 1 

0770 

PG 2-3 D 

0 A21 



ENA $21 

0771 

P023E 

1800 



JMP QTYPE 


P023F 

02 38 




0772 

PO 24 9 

1 CF1 


LP1 4 

JMP* (LP1 1 A } 

0773 

P02h1 

6 8 IE 


LP14A 

STA* HSIZV4 

0774 

PO 2 42 

68 Q 0 

X 


STA I2MZV4 


PO 243 

7FFF 

X 



0775 

P 0 244 

6 1 6C 



STA- TOP , I 

D776 

P Q 2 4 5 

0 A 0 0 



ENA 0 

0777 

PO 246 

61 7B 



STA- CSQCTR, I 

0778 

PO 247 

0 A 01 



ENA 1 

0779 

P0248 

6389 



STA* CRPFLG 

078 0 

PO 2 49 

6157 



STA- ARIT15, I 

0 781 

PO 24A 

0 A04 



ENA A 

0782 

P024B 

61 4E 



STA- CSNAME, I 


STORE RUN TIME ADDRESS OF ENTRY POINT NAME 
INTO POINTER FOR ENTRY SEARCH ROUTINE 
SEARCH FOR NAME 
IS LSTLOC DEFINED 

YES, CHECK IT FOR USE AS THE START OF *LP 
NO, USE ENOOV4 FOR *LP RELOCATION BASE 

SAVE THE ADDRESS OF LSTLOC 

PICKUP LSTLOC TO SEE WHERE TO BEGIN 

THE *LP LOADING 

SKIP IF LSTLOC LESS THAN $8000 


SKIP IF LSTLOC =$FFFF 
USE LSTLOC AS THE PART 
GO TO PROCESS THE 
IS LSTLOC = $FFFF 


i RELOCATION BASE 
CONTROL STATEMENT 
AND DO PARTITIONS EXIST 


ERROR 22, ATTEMPT TC LOAD PART 1 CORE 

RESIDENT INTO NON-EXISTANT MEMORY 

IF THERE ARE NO PARTITIONS AND LSTLOC = FFFF 

THEN USE END 0 V4+ 1 AS RELOCATION BASE FOR 

PART 1 CORE RESIDENT 

SAVE NEW COMMAND SEQUENCE LIMIT 


TEST TO DETERMINE IF MSTZV4 IS DEFINED 


PICKUP THE RUN-TIME ADDRESS OF THE NAME 

SEARCH FOR THE NAME MSIZV4 

IS MSIZV4 DEFINED 

YES, SETUP NEW TOP OF CORF 

NO, ERROR 21 MSI ZV 4 NOT DEFINED 


017Q 
0170 
0170 
0170 
0170 
LOA DO 17 0 
0170 
0170 
017 0 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0 170 
0170 


0170 
0170 
0170 
0170 
0170 
0170 
0 17 Q 
0170 


0170 

SAVE THE TOP OF CORE 0170 

PASS 'MSIZV4* TO IDRIV FOR AUTOLOAD CLEAR PAR. 0170 


SETUP THE NEW TOP OF CORE FOR THE LOADER 

CLEAR LENGTH OF PARTI CORE RESIDENT TO ZERO 

SET FLAG SAYING USE PARTI ENTRY POINT TABLE 
SET THE ARITHMETIC TYPE FLAG TO 16 BIT 
SET CSNAME = 4 SAYING THAT A *LP IS 
BEING PROCESSED 


017 0 
0178 
0170 
0170 
0170 
0170 
0170 
0170 


0 734 

0735 

0736 
0 737 
0 738 
0739 
0 740 

0741 

0742 

0743 

0744 

0745 
0 746 
0 747 

0748 

0749 
0 750 
0 751 
0 75 2 
0 753 
Q 754 
D 75 5 
8 756 
0 75 7 
0 758 
0759 
0 76 0 
0 761 
0 762 
0763 


0764 
0 765 
0 76 6 

0767 

0768 
0 769 
0 77 0 
0 771 

0 77 2 

0773 

0774 

0 775 
0 776 
0777 
0 77 8 
0 779 
0 788 

0781 

0782 


CON'TRL 


PAGE 


07 ft 3 

0784 

0785 

0786 

0787 

0788 

0789 

0790 
079 1 

0792 

0793 

0794 

0795 

0796 

0797 
079 8 
0799 
03 00 
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DATES 08/19/99 


PQ24C 

C 1 03 


LDA- 

PROBAS 

PO 240 

68 00 


STA 

LPENDC 

PG24E 

0 6 0E 




P024F 

5803 


RTJ* 

LP1 5 

PO 250 

1800 


JMP 

LSTM40 

P 0 251 

FF 06 




PO 252 

OBOG 

LP1 5 

NOP 

0 

P 0 2 5 3 

C12C 


LD A- 

MAXENT 

PO 254 

61 8B 


STA- 

ECREP, 

P 0 2 5 5 

0 8 42 


CLR 

Q 

PO 256 

31 8 A 


D'VI- 

SECTOR 

P0257 

0914 


I N A 

20 

PO 258 

2 1 8 A 


MUI- 

SECTOR 

P 0 259 

6174 


STA- 

ENTST1 

PO 25 A 

61 6B 


STA- 

ENTPGS 

P025B 

61 2 C 


STA- 

MAXENT 

P025C 

1CF5 


UMP* 

ILP15) 

P0 25Q 

0000 

PARTBL 

NUM 

0 

P025E 

00 00 

LSTLOC 

NUM 

0 

P025F 

0 0 00 

MSI ZV 4 

NUM 

0 


SAVE PROGRAM RELOCATION BASE 01700 

01700 

GO TO END CREP TABLE 0170 0 

GO TO PROCESS THE CONTROL STATEMENT 01700 

END THE CREP TABLE 01700 

SAVE THE ENDING ADDRESS OF THE CREP TABLE 01700 

FOR LATER USE IN PATCHING EXTERNALS 01700 

COMPUTE THE STARTING ADDRESS FOR THE 01700 

CREP1 TABLE SO THAT THE TABLE BEGINS 01700 

ON A SECTOR BOUNDARY STILL LEAVING 01700 

ROOM FOR FURTHER CREP ENTRIES 01700 

SAVE THE STARTING ADDRESS OF CREP1 0170 0 

SETUP THE NEW STARTING SECTOR OF ENTRY TABLE 0170 Q 
SETUP THE NEW MAXIMUM VALUE IN ENTRY TABLE 01700 

01700 

ADDRESS OF PARTITIONED CORE TABLE 01700 

ADDRESS OF WORD CONTAINING LWA + 1 OF P ART IT I ON SO 17 B 0 
LAST WORD ADDRESS OF MEMORY 01700 


783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 


0 


( 



CONTRL 


^ AGE 25 

\ 

0802 




* R O 

U T 

I N E TO 

o 

0 8 0 L 

P0260 

0 9 FC 


STARM 

INA 

-3 


0805 

P0261 

0101 



SAZ 

M0-*-i 

o 

0806 

P0 262 

1312 



JNP* 

M2 

0807 

P 0 263 

0 8 42 


M0 

CL R 

Q 


03 08 

PO 264 

0 A01 



ENA 

1 


0309 

P0 265 

5800 

X 


RTJ 

ILOAD 

o 


P0 26 6 

0 1 F 3 

X 




0310 

PD 267 

Cl 78 



LDA- 

CSQCTR, I 


0811 

P0 2 68 

6300 



STA 

LENDC 



P 0 269 

05F2 




o 

0812 

P 0 26 A 

C 1 0 4 



L OA- 

COMLIM, I 

0813 

P0 26 B 

6800 



ST A 

COMM0 



P0 26C 

0 SEE 






0814 

P026D 

5800 



RTJ 

FMXSEC 

o 


PQ26E 

0 1 A 2 





0 815 

P026F 

58E2 



RTJ* 

•LP15 


0816 

P0 27 0 

5 8 1 A 



RTJ* 

ENQET1 


0817 

P 0 27 1 

5800 

X 

Ml 

RTJ 

CON MS 

o 


PD272 

7FFF 

X 




0818 

P0 273 

1830 



JMP* 

M7 


0819 

P0 27 4 

0 9 FE 


M2 

INA 

-1 


0820 

P0 275 

0 101 



SAZ 

M3-*-l 

O ; 

0321 

P Q 276 

1633 



JMP* 

M5 

0822 

P0 27 7 

C8QG 

X 

M3 

LDA 

PAR TIL 



P 0 2 7 8 

0 1 El 

X 





0823 

P 0 279 

817B 



ADD- 

CSQCTR, I 

O 

0824 

P027A 

6 8 0 0 

X 


STA 

PARTI L 


P0 27 B 

0278 

X 





0325 

PG27C 

Cl 73 



LQA- 

CSQCTR, I 


0826 

P 0 2 ?n 

88 00 



ADD 

LPENDC 

O 


PQ27E 

0 5OE 





0827 

P027F 

6800 



STA 

’LPENQC 



P0 28 0 

0 5 DC 






0823 

P 0 281 

61 7B 



STA- 

CSQCTR, I 

O 

0829 

P0 282 

58 08 



RTJ* 

ENBET1 

0830 

P0 283 

5800 



RTJ 

LCREP 



P0 28 4 

0 1 AC 






083 1 

P0285 

58 00 



RTJ 

FMXSEC 

O 


P0 28 6 

01 6A 





0832 

P0 28 7 

58 0 0 



RTJ 

LCREP 1 



P0 288 

0 1 AE 






0833 

P 0 289 

1 8 1 B 



JMP* 

M3 A 

O 

0834 

P028A 

ABO 0 


ENDET1 

NOP 

0 

083 5 

PQ28B 

C16B 



L OA- 

ENTPGS, I 


0836 

P028C 

61 74 



ST A- 

ENTST1, I 


0837 

P028D 

C12C 



LBA- 

MAXENf , I 

O 

0838 

P028E 

61. 8C 



STA- 

EC RE Pi, I 

0839 

P028F 

0 8 42 



CLR 

Q 


0840 

PQ 290 

31 8 A 



DVI- 

SECTOR, I 


o 


DATE I 08/19/99 


PROCESS * M STATEMENTS 


WAS THE LAST STATEMENT *L 

YES, COMPLETE IT 

NO, TEST FOR *LP AS LAST ENTRY 

THE ENTRY POINTERS POINT TO THE CREP 

TABLE SO ISSUE A PATCH EXTERNAL FUNCTION TO 

LINK ALL OF CORE RESIDENT 

SAVE THE LENGTH OF PART 0 F OR USE AS A 
BOUND OF UNPROTECTED 

SAVE THE TOP OF SYSTEM COMMON AS BOUND 
OF UNPROTECTED 

MAKE SURE ENTRY SECTOR IS DEFINED 
GO TO END THE CREP TABLE 

SETUP VALUES FOR TEMPORARY ENT/EXT TABLES 
GO TO SETUP THE NEW PAGES 

GO TO PROCESS THE *M 

WAS THE LAST STATEMENT *LP 

YES, COMPLETE *LP PROCESSING 

NO, GO TO CHECK FOR *K AS LAST STATEMENT 

UPDATE THE LENGTH OF PART 1 

IN THE AUTOLOAD PROGRAM 


SAVE THE LENGTH OF PARTI FOR USE AS THE 
LOWER BOUND QF UNPROTECTED CORE 


UPDATE CSQCTR SO THE *M SECTORS ARE CORRECT 
CLOSE OFF CREPT TABLE AND SAVE ITS ADDRESS 
SETUP P GUNTERS TO CREP TABLE 

MAKE SURE ENTRY SECTOR IS DEFINED 

RESET POINTERS BACK TO CREPi TABLE 

CONTINUE FINISHING *LP 

ROUTINE TO FIND BOUNDS FOR TEMPORARY ENT/EXT 

TABLES USED FOR AND *MP PROCESSING 

SAVE THE STARTING ADDRESS OF THE ENTRY TABLE 

SAVE THE ENDING ADDRESS OF THE CREP OR CREPi 

TABLE FOR LATER USE 

.COMPUTE THE STARTING VALUE FOR THE 


■ 

O 

01700802 

□ 


o 

0170 0 80 4 
01700805 
0170 0806 
0170 0 80 7 
01700808 
0170 0 309 

o 

01700310 

01700811 

o 

0170 0 812 
01700313 

o 

01700314 


0170 0 81 5 
01700 816 
01700817 

o 

0170 0 318 
01700819 
01700820 

o 

01700821 
0170 0822 

o 

O 17 G 0 82 3 
01700 824 

o 

01700825 

01700826 


0170082 7 

o 

01730828 

01700829 

01700830 

o 

01700831 


01700 832 

o 

0170 0 833 
0170 0 834 
0 170 0 83 5 
01700836 
01700837 

o 

0170 0 838 
0170 0339 

o 

01700840 

o 


o 


o 





CONTRL 


PAGE 

26 

C) 

0841 

P0291 

0901 



INA 

1 



0842 

P0292 

21 BA 



MUI- 

SECTOR, 

I 

r-, 

0843 

P0293 

6300 



STA* 

ENTTMP 



0844 

PC 2 94 

61 6fl 



STA- 

ENTPGS, 

I 


0845 

P0295 

612C 



STA- 

MAXENT , 

I 


0846 

P0296 

C 1 76 



LD A~ 

EXTSTR, 

I 

o 

0847 

P0 297 

6 8 OA 



STA* 

STRTEX 


0848 

P0298 

Cl 07 



LDA- 

EXTCTR, 

I 


0849 

P0299 

68 0 A 



STA* 

ENDEXT 



085 0 

P029A 

0842 



CL R 

Q 


o 

0851 

P029B 

31 8 A 



DVI- 

SECTOR, 

I 

0 85 2 

PQ29C 

0901 



IN A 

1 



0853 

P029D 

2 1 8 A 



MUI- 

SECTOR, 

I 


08 5 4 

P029E 

63 04 



STA* 

TEMPEX 


o 

0855 

P029F 

1CEA 



JMP* 

l ENDET 1 

5 

0 856 

P02A0 

0 000 


ENT TM P 

NUM 

0 



0857 

P0 2A1 

0 00 0 


ST RTF X 

NUM 

0 



0858 

P0 2A2 

0000 


TEMPEX 

NUM 

0 


o 

0859 

P02A3 

00 0 0 


ENDEXT 

NUM 

0 


0860 

PG2A4 

0 8 42 


M3 A 

CL'R 

Q 



086 1 

P02A5 

0 A 0 1 



ENA 

1 



0852 

P02A6 

58 0 0 

X 


RTJ 

ILOAD 


o 

0853 

PD2A7 

0 2 66 

X 

* 





■OB 6 4 

P02A8 

18C8 


M4 

JMP* 

Ml 



0 865 

P0 2A9 

0 9FE 


M5 

INA 

-1 


o 

0866 

P02AA 

0 103 



SAZ 

M6A-*-l 


0867 

P02AB 

0 A13 



ENA 

$13 



086 8 

P02AG 

18 0 0 


M6 

JMP 

QTYPE 




P0 2AD 

0 1C A 






o 

0859 

P02AE 

5800 

X 

M6A 

RTJ 

WRTOUT 



P02AF 

01F5 

X 






0870 

P 0 2B0 

C0G0 


M7 

LD A 

= N$FFFF 




P02B1 

FFFF 





o 

0871 

P0 262 

61 6C 



STA- 

TOP, I 


0872 

P02B3 

5802 



RT J* 

M7A 



0873 

P02B4 

1813 



JMP* 

M10 A 



0874 

P0 2B5 

0 B 0 0 


M7 A 

NOP 

0 


o 

0875 

P02B6 

C17B 



LDA- 

CSOCTR, 

I 

08 7 6 

P02B7 

5800 



RTJ 

NXTSEC 




P02B8 

C22F 







0877 

P02B9 

Cl 82 



L DA — 

NOPAGE, 

I 

o 

0878 

P02BA 

6119 



STA- 

COUNT 1 , 

I 

0879 

PG2BB 

5800 

X 


RTJ 

C0NMS1 




P02BC 

FFFF 

X 






0880 

P02BD 

El 77 



LDQ- 

CORA0R, 

I 

o 

0881 

P0 2BE 

0 8 44 


M9 

CLR 

A 


0882 

P02BF 

6201 



STA- 

1,0 



0883 

P0 2CQ 

ODOl 



INQ 

1 



088 4 

P02C1 

0814 



TRQ 

A 


o 

0885 

P02C2 

9191 



SUB- 

FLGBSE, 

I 

088 6 

P02C3 

0101 



SAZ 

HlG-*-l 



0887 

P0 204 

18F9 



JMP* 

M9 



DATE.: 08/19/99 

TEMPORARY ENTRY POINT T ABIE SO THAT THE 01700841 

TABLE BEGINS ON A SECTOR BOUNDARY, 01700 842 

SAVE THIS STARTING VALUE 0170084-3 

SETUP THE NEW STARTING SECTOR OF ENTRY TABLE 01700844 
SETUP THE NEW MAXIMUM VALUE OF ENTRY TABLE 01700845 
PICKUP THE START OF THE SYSTEM EXTERNAL 01700846 

TABLE AND SAVE IT LOCALLY 01700847 

PICKUP THE END OF THE SYSTEM EXTERNAL 01700348 

TABLE AND SAVE IT LOCALLY 01700849 

01700850 

COMPUTE THE STARTING VALUE FOR THE TEMPORARY 01700851 
EXTERNAL TABLE SO THAT THE TABLE BEGINS 01700352 

ON A NEW PAGE. 01700853 

SAVE THIS VALUE FOR SETTING UP THE 01700854 

EXTERNAL TABLE BEFORE BEGINNING LOADING 01700855 

STARTING VALUE OF TEMPORARY ENTRY POINT TABLE 01700856 
STARTING ADDRESS OF SYSTEM EXTERNAL TABLE 01700857 

STARTING ADDRESS OF TEMPORARY EXTERNAL TABLE 01700858 
END ADDRESS OF SYSTEM EXTERNAL TABLE 0170 0 859 

ISSUE A PATCH EXTERNALS FUNCTION TO LINK 01700860 

THE PART 1 CORE RESIDENT 01700861 

01700862 


5 CAROS DELETED 
GO TO PROCESS THE 
WAS THE LAST STATEMENT *M 
YES, HANDLE THIS '*M 

ERROR 13, OUT OF ORDER CONTROL STATEMENT 
OUTPUT THE ERROR 


132*5127******** 
01700868 
01700 869 
01700870 
0170 0 871 
01700872 


OUTPUT THE *N OR *MP PROGRAMS AND ENTRIES 

LARGEST SIZE ALLOWED FOR *M AND *MP 

LOADS WILL BE $FFFF 
UPDATE IS SECT AND PAGES 

UPDATE LSSECT SO THAT THE NEXT *M OR *MP 
LOAD WILL BEGIN ON A NEW SECTOR 

PICKUP THE NUMBER OF PAGES IN CORE 

SETUP THE COUNTER FOR THE PAGE BUILD ROUTINE 

GO TO RESET THE PAGE FLAGS 

PICKUP THE STARTING ADDRESS OF THE PAGING 
AREA IN CORE 

CLEAR A WORD OF THE PAGING AREA 

HAS THE ENTIRE PAGING AREA BEEN CLEARED 

YES , CONTINUE *M PROCESSING 

NO, GO BACK TO CLEAR THE NEXT WQRC 


0170 0 87 3 
0170 8 874 


0170 

0170 

0170 

0170 

0170 

0170 


0 875 
G 876 
0 877 
0 878 
0 87 9 
0880 


01700881 

01700882 

01703883 


0170 

0170 

0170 

0170 

0170 

0170 

0170 

0170 


0 8 84 

0885 

0886 

0887 

0888 
0 889 

0890 

0891 


O 


O 
O 
O 
O 
' O 
O 
O 

o 

o 

: ° 

• o 

o 

o 

o 

• o 


O 


O 


l ) 



CONTRL 


PAGE 

o 

0888 

P02C5 

61 7B 


Ml 0 

STA- CSOCTR, I 


0889 

P02C6 

1 CEE 



JMP* I M7 A ) 

o 

0890 

P02C7 

0 A05 


Ml 0 A 

ENA 5 

0891 

P02C8 

614E 



STA- CSNAME, I 


089 2 

P02C9 

C 8 0 0 

X 


LD A DATBS0 



P02CA 

0 0 9C 

X 



o 

0893 

P02CB 

6102 



STA- DATBA S, I 

G89u 

P02CC 

C8 0 0 

X 


LD A DATLM0 



P02CD 

0 09E 

X 




0895 

PQ2CE 

61 05 



STA- D ATLI M , I 

o 

0896 

P02CF 

5800 



RTJ COMMA 


P02D0 

F£ 52 



JMP* Mil 


0897 

P02D1 

18 02 




0898 

P02D2 

1308 



JMP* M 13 

o 

0899 

P0 203 

5800 


Mil 

RTJ VALID 


p 0 2D4 

0 2 0 B 





090 0 

P02D5 

01 42 



SQZ M12 -*-1 


0901 

P0 2D 6 

18 0 0 


MTRMER 

JMP LSTM42 



P02D7 

FE 8E 



STQ- PRO BAS, I 


090 2 

P02D8 

4103 


M12 


0903 

P0 209 

18 4F 



JMP- M20 A 


0904 

PQ2DA 

0 AOS 


Ml 3 

ENA a 

o 

090 5 

P02DB 

6116 



STA- SCANSW, I 

0906 

P0 2DC 

0 8 44 



CLP. A 


090 7 

P02DD 

514B 



RTJ- SCAN, I 


0908 

P02DF 

Cl 13 



LDA- SYMSTR, I 

o 

0909 

P02OF 

011A 



SAN M15-*-i 

0910 

P02EG 

C800 



LDA END 0V 4 



P02E1 

FEF2 





091 1 

P02E2 

91 49 



SU8- SON IN P , I 

o 

0912 

P02E3 

0123 



SAP M14-*-l 

0913 

P02E4 

0 A 0 9 



ENA 9 


091 4 

P02E5 

1800 


M ERROR 

JMP QTYPE 



P02E6 

01 91 




o 

0915 

P02E7 

C 1 49 


Ml 4 

LQA- SC NINE, I 

0916 

PG2E8 

6103 



STA- PRO BAS, I 


0917 

P 0 2E9 

1827 



JMP* M19 


0918 

P02EA 

C113 


Ml 5 

LDA- SYMSTR, I 

o 

0919 

P02EB 

9112 



SUB- BLANKS, I 

0920 

P0 2EC 

0112 



SAN M15A-*-i 


0921 

P02ED 

6103 



STA- PR08AS , I 
JMP* Ml 9 


0922 

P22FE 

1822 



o 

0923 

P02EF 

C 148 


M15 A 

LOA- SCNTRM, I 

0924 

P0 2F0 

A0 0 0 



AND =N$7F 



P02F1 

0 07F 



INA -$2B 


0925 

P02F2 

0904 



o 

0926 

PQ 2F3 

0101 



SAZ M 16 - *- 1 

0927 

P02F4 

1 8 El 



JMP* MTRMER 


0928 

PQ2F5 

C0FF 


M16 

LDA- I 


0929 

P02F6 

0913 



INA SYMSTR 

o 

0930 

P02F7 

6 1 0 F 



STA- INPCTR, I 

0931 

P02F8 

5128 



RTJ- TABSCH, I 


0932 

PQ2F9 

El 1C 



LDQ- SW6 , I 

o 








27 


DATE: 08/19/99 


CLEAR PROGRAM LENGTH TO ZERO 

SET CSNAME = 5 TO SAY THAT A *M IS 
CURRENTLY BEING PROCESSED 
GET DATA BASE FOR PART 0 LOAD 


GET DATA LIMIT FOR PART D LOAD 


IS FIELD TERMINATOR A COMMA 

NO, CHECK FOR END OF STATEMENT 
YES, PICKUP NEXT FIELD 

IS FIELD TERMINATOR BLANK OR CARRIAGE RETURN 

YFS , FINISH PROCESSING STATEMENT 

NO, ERROR E - INVALID FIELD TERMINATOR 

ABSOLUTIZE THE PROGRAM TO LOCATION 0 
GO TO LOAD THE PROGRAMS 

SFT BIT 3 OF SCAN SWITCH SAYING PICKUP AN 
ASCII FIELD. SAVE THE ASCII CHARACTER CODES 
IN THE SYMSTR BLOCK AND IF THE FIELD IS 
NUMERIC, CONVERT THE NUMBER TO BINARY. 

IS THE FIELD NUMERIC 

NO, DETERMINE THE SECTOR ADDRESS 

YES, IS IT A VALID PROGRAM BASE 


PROGRAM BASE IS LESS THAN END0V4 

ERROR 9, ILLEGAL HEX CORE RELOCATION BASE 

OUTPUT ERROR MESSAGE 

UPDATE THE PROGRAM RELOCATION BASE TO THE 
VALUE SPECIFIED ON THE CONTROL STATEMENT 
GO TO CHECK IF A SECTOR ADDRESS IS SPECIFIED 
PICKUP THE FIELD TO SEE IF IT IS EMPTY 

SKIP IF FIELD IS NOT EMPTY 

FIELD IS EMPTY - ABSOLUTIZE PROGRAM TO ZERO 
CHECK NEXT FIELD 

IS THE ENTRY POINT NAME FOLLOWED 
BY A PLUS SIGN I ASCII CODE = $280 


YFS, FIND THE SECTOR VALUE 

NO, ERROR 14 ILLEGAL FIELD TERMINATOR 


SETUP THE POINTER FOR THE LOADER TO SEARCH 
FOR THE NAME ON THE CONTROL STATEMENT. 

IS THE NAME DEFINED 


01700 892 
01700893 
01700894 
01700895 
01700 896 

0170 0897 
0170 0898 

01700899 

01700900 

0 170 0 90 1 
01700902 
01700903 

0170 0 90 4 
01700905 

01700906 
0170090 7 
01700908 
0170 0 90 9 
0170 0910 
0170 0911 
01700912 
01700913 
01700914 

01700915 

01700916 

01700917 

01700918 

01700919 
01700920 
01700921 
01700922 
01700923 
0170 0 92 4 
01700925 
01700926 
0170 0927 
01700928 

01700929 
01700930 
01700931 
01700932 
01700933 
01700934 
01700935 
017 C 0 93 6 


u 

o 

o 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


CONTRL 
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DATE: 08/19/99 


0933 

P02FA 

0162 


SQP 

M17-*-l 

0934 

P02FB 

0 A23 


ENA 

$23 

0935 

PQ2FC 

18E8 


JMP* 

MERROR 

0936 

P02FD 

5300 

M17 

RTJ 

GETHEX 

P02FE 

FE IE 



SYMSTR, I 

0937 

P02FF 

C 113 


LDA- 

0938 

P 030 0 

0 102 


SAZ 

M18-*-l 

0939 

P0301 

0 A 08 

Ml 7 A 

ENA 

3 

0940 

P0302 

1 8 E2 


J HP* 

MERROR 

0941 

P03G3 

C10D 

M18 

LOA- 

ENTPNT , I 

0942 

P030 4 

81 49 


AOD- 

SEN IN P, I 

0943 

PG305 

6800 


STA 

SEC VAL 


P0306 

0129 



CHKSE.C 

0944 

P0307 

5800 


RTJ 


P 03 08 

QUA 



SECVAL 

0945 

PO 309 

C 8 0 0 


LDA 

P03QA 

0125 



LSSECT 

0946 

P030B 

68 00 


STA 


P030C 

0228 


ENA 


0947 

PO 30 D 

0 AO 0 


0 

0948 

PO 30 E 

61 03 


STA- 

PR08AS, I 

0949 

P030F 

18 0 E 


JMP* 

M19 A 

09 5 G 

PO 310 

5800 

Ml 9 

RTJ 

COMMA 


PO 311 

FE11 




0951 

PO 312 

1808 


JMP* 

M19A 

0952 

P0313 

5 830 


RTJ 

GETHEX 


PO 31 4 

F E 0 8 



SYMSTR, I 

0953 

PO 31 5 

Cl 13 


LDA- 

0954 

P0316 

0107 


SAZ 

M20-*-l 

0955 

P 031 7 

9112 


SUB- 

BLANKS, I 

0956 

PO 31 8 

aioE 


SAZ 

M2 0 A-'*- 1 

0957 

PO 319 

18E7 


JMP* 

M17 A 

0958 

P031A 

5 8 0 Q 

Ml 9 A 

RTJ 

VALID 


P031B 

0 1C4 



M20 A-*- 1 

0959 

P031C 

014A 


SQZ 

0960 

P031D 

1 8B6 


JMP* 

MTRMER 

0961 

P031E 

Cl 49 

M2 0 

LD A- 

SCNINP, I 

0962 

P 03 IF 

68 0 Q 


STA 

SECVAL 


PO 32 0 

010F 



CHKSEC 

0963 

P0321 

5800 


RTJ 


P0322 

0100 



SECVAL 

0964 

PO 323 

C8 0 0 


LDA 


PQ324 

Q10B 



LSSECT 

0965 

P0325 

6800 


STA 


PO 326 

02 OE 



ENTTMP 

0966 

P 0 327 

C800 

M2 0 A 

LDA 


P0328 

FF 77 



ENTPGS, I 

0967 

PG 329 

61 68 


STA- 

0968 

P032A 

61 2 C 


STA- 

MAXENT, I 

0969 

P032B 

G 8 0 0 


L D A 

TEMPEX 

P032C 

FF 75 


STA- 

EXTSTR, I 

097 0 

PO 32D 

6176 


097 1 

P0 32E 

6107 


STA- 

EXTCTR, I 


YES, COMPUTE THE SECTOR ADDRESS 

ERROR 23, NAME USED IN CONTROL STATEMENT 

IS NOT A DEFINED ENTRY POINT 

GET THE SPECIFIED SECTOR INCREMENT 


IS THE FIELD NUMERIC 

YES, CONTINUE PROCESSING „ 

NO, ERROR 8 NAME APPEARS IN NUMBER FIELD 

PICKUP THE ENTRY POINT VALUE 
ADD THE SPECIFIED INCREMENT 
SAVE THE SECTOR VALUE TEMPORARILY 


GO TO VERIFY THAT THE SECTOR IS VALID 
UPDATE LSSECT TO THE NEW SECTOR VALUE 
GIVEN ON THE CONTROL STATEMENT 

RESET THE PROGRAM BASE TO ZERO 

GO TO LOAD THE PROGRAM 

IS THE FIELD DELIMETER A COMMA 


NO, TEST FOR END OF STATEMENT 
YES, GO TO PICKUP THE SECTOR VALUE 


IS THE FIELD NUMERIC 
YES, CHECK ITS VALIDITY 
IS THE FIELD EMPTY 
YES, GO TO LOAD PROGRAMS 

NO* ERROR. - NAME APPEARS IN NUMBER FIELD 
IS TERMINATOR BLANK OR CARRIAGE RETURN 


YES, GO TO PERFORM LOAD 
NO, ERROR E - ILLEGAL TERMINATOR 
PICKUP THE VALUE GIVEN FOR THE PROGRAM 
ADDRESS ON MASS STORAGE- 


CHECK IF THE VALUE IS LEGAL 
UPDATE LSSECT TO THE VALUE GIVEN ON 


THE CONTROL STATEMENT 

PICKUP THE ADDRESS OF THE TEMPORARY ENTRY 


POINT TABLE AND USE IT AS THE START AND 
END OF THE LOADER ENTRY POINT TABLE. 

OTP^HP TMF flnn»F<?9 OF THF TEMPORARY EXTERNAL 


TABLE AND USE IT AS THE START AND END OF 
THE LOADER EXTERNAL TABLE. 


01700937 
0170 0 93 8 
01700939 
01700940 

01700941 
01700942 
01700943 
0170 0944 
01700945 
01700946 
01700947 

01700948 

01700949 

0 170 Q 95 0 

0170 0951 
01700952 
017QG953 
01700954 

01700955 

01700956 

01700957 

01700958 

01700959 

01700960 

01700961 

01700962 

01700963 

01700964 

01700965 

01700966 

0170 0 967 

01700968 

01700969 

01700970 

01700971 

01700972 

01700973 

01700974 

01700975 


o 










CONTRL 


PAGE ; 

o 

0972 

P032F 

0 8 46 


M2 0B 

CL R A ,Q 


0973 

P 0 33 0 

6157 



STA- ARIT15* I 

o 

0974 

P 0 331 

580 0 

X 


RTJ ILOAD 


P 0 33 2 

02A7 

X 




0975 

P0333 

0 A01 



ENA 1 


0976 

P 0334 

5800 

X 


RTJ ILOAD 

o 


P0335 

0 332 

X 



0977 




* 



0 97 8 

P0336 

01 43 


M2 2 

SQZ M23-*-l 


G97P 

P0337 

0 A 0 2 



ENA 2 

o 

098 0 

P0 338 

58 00 

X 


RTJ ILOAD 


P0339 

0335 

X 


RAO* Y MORON 


0981 

P033A 

D825 


M2 3 


0982 

P033B 

El 9 4 



LDQ- MONTAB, I 

o 

0983 

P033C 

01 51 



SQN M23A-*- 1 

0984 

P033D 

181D 



JMP* M26 


0985 

PQ33E 

C821 


M23 A 

L DA* Y MORON 


0986 

P 033 F 

9201 



SU3- 1 , Q 

o 

0987 

P0 340 

0101 



SAZ M25-*- 1 

0988 

P0 341 

1819 


M2 4 

JMP* M26 


0989 

P0 342 

D 1 94 


M2 5 

RAO- MONTAB, I 


0990 

P0343 

D 8 1 B 



RAO* YMCNTR 

o 

0991 

P0 344 

0A 07 



ENA 7 

0992 

P0 345 

2819 



HU I* YMCNTR 


0993 

P0 346 

80 E7 



ADD- $E7 


0994 

P0347 

0 9 F E 



INA -1 

o 

0995 

PD348 

0 822 



TRA Q 

0996 

PQ 349 

C800 



LDA LSSECT 



P034A 

0 1EA 





0997 

P03 4B 

6 6 £ B 



STA- ISE8l,a 

o 

0998 

P034C 

0DFD 



INQ -2 

0999 

P034D 

C17B 



LDA- CSQCTR* I 


10 00 

P034E 

66 EB 



STA- <1 $ £ 8 } ,Q 


1001 

PG34F 

Cl 4£ 



LDA- CSNAME, I 

o 

1002 

P0350 

0 9 F A 



INA -5 

10 0 3 

P 0 3 5 1 

0108 



SAZ M26-*-l 


100 4 

P0352 

0DFC 



INQ -3 


100 5 

PQ 3 53 

C 8 0 0 

X 


LDA PARSTR 

o 


PQ354 

7FFF 

X 



100 6 

P 0 35 5 

66EB 



STA- ( $EB) , Q 


1007 

P0356 

GOOD 



LDA -NJ4000 



P0357 

40 00 




o 

1008 

P0 35 3 

QDFE 



INQ -1 

1009 

P0 359 

66EB 



STA- I $E8 ) , Q 


O 

1011 

P035A 
PQ 35 B 

5 800 
0 0D5 

M2 6 

RTJ 

LCREP 

1012 

P035C 

P035D 

1800 

FD5F 


JMP 

CM65 


1013 

P0 35 E 

0 0 0 0 

YMCNTR 

NUM 

0 

O 

O 

1014 

P035F 

0 0 00 

YMORDN 

NUM 

0 


DATE 2 08/19/99 


SETUP THE ADDRESS ARITHMETIC FLAG TO TELL 
THE LOADER TO USE 15 EIT ARITHMETIC. 

ISSUE RBD LOAD FUNCTION 

SETUP AND ISSUE A PATCH EXTERNALS FUNCTION 
TO LINK ALL THE *M PROGRAMS 

8 CARDS DELETED 132*512 

SKIP IF ALL EXTERNALS HAVE BEEN PATCHED 

ISSUE PRINT UNPATCHED EXTERNAL FUNCTION 

INCREMENT THE *Y/*YM PROGRAM COUNTER 

WERE THERE ANY *YM STATEMENTS 

YES, HAKE DIRECTORY ENTRY 

NO, SKIP DIRECTORY BUILD 

IS THIS LOAD TO BE PUT IN DIRECTORY 

SUBTRACT THE YH ORDINAL IN MONTAB 

SKIP IF DIRECTORY ENTRY TO BE MADE- 

GO TO GET NEXT CONTROL STATEMENT 

BUMP COUNTER FOR MASS STORAGE ORDINAL TABLE 

BUMP THE ORDINAL COUNTER 

COMPUTE AN INDEX TO THE SYSTEM DIRECTORY 
TO USE FOR BUILDING THIS ENTRY. 


STORE THE PROGRAM SECTOR ADDRESS IN 

WORD SEVEN OF THE DIRECTORY ENTRY 

STORE THE PROGRAM LENGTH OF THE LOAD 
IN WORD FIVE OF THE DIRECTORY ENTRY 

IS THIS A *M LOAD 

YES, GO TO GET NEXT STATEMENT PROCESSED 
NO, PUT PROGRAM BASE IN WORD 2 OF DIRECTORY 
USING START OF PARTITION ADDRESS 


SET D-BIT IN DIRECTORY 

SETUP THE POINTERS SO THE NEXT ENTRY POINT 
PROCESSED GOES INTO CREP IN CASE A *S FOLLOWS 


YM ORDINAL COUNTER 
M/MP PROGRAM COUNTER 


01700976 
0170 0977 
01700978 

01700979 

01700980 

* * ¥¥ 3 - 

01700989 

01700990 

01700991 

01700992 
01700993 
01700994 
01700995 
01700996 
01700997 
01700998 
01700999 
01701000 
01701001 
01701002 
0170 10 0 3 
01701004 
0170 100 5 
01701006 
01701007 

0170100 8 
01701009 
01701010 
01701011 
01701012 
01701013 
01701014 
01701015 
0170 1016 

01701017 

01701018 

01701019 
0 170 1 02 0 
01701021 
0170 1022 

01701023 

01701024 

01701025 


o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


1016 


CONTRL PAGE 30 

^ROUTINE TO 


DATES 08/19/99 

PROCESS * M F STATEMENTS 01701027 


1018 

1019 

1020 
1021 
1022 
1023 

IDEA 

1025 

1026 
1027 

102 3 

1029 

1C 3 0 

1031 

1032 

1033 

1034 

1035 


PO 360 
PG361 
P 0 36 2 
P0363 
P 0 3 64 
P0365 
P 0366 
P0367 
PQ368 
PO 369 
P 036 A 
P0368 
PO 36C 
P036D 
P036F 
P036F 
PO 37 0 
PO 371 
P0372 
P 0373 
PO 374 
P 0 3 7 5 
P 0 3 7 6 
PO 37 7 
PO 378 


09 FC 
Q 1 0 1 
1812 
0 842 
0 A01 
5800 
0339 
C17B 
630 0 
0 4F2 
Q 1 0 4 
6800 
0 4 'EE 
5800 
0 0 A2 
5800 
FF 1 9 
5800 
0 2 72 
1610 
09 FE 
0101 
1,8 OB 
58 0 C 
0 0 98 


ST ARM P 


MPO 


MPi 


MP2 


MP2A 


103 6 

PO 379 

C17B 



1037 

P 0 3 7 A 

68 0 0 




PO 37B 

0 4 E 1 



1038 

P037C 

8 8 42 



1039 

P037D 

0 A01 



104 0 

P037F 

58 00 

X 



P037F 

03 66 

X 


1041 




* 

1042 

P 03 80 

18 EE 


MP3 

1044 





1045 




3F- 

1046 

PO 381 

5800 

X 

MP3 A 


PO 382 

02AF 

X 


1047 

P 0 38 3 

5800 


MP4 


P0384 

FF3Q 



1048 

PO 38 5 

58 00 




P0386 

FO 96 



1049 

PO 38 7 

Cl 13 



1050 

PO 388 

0103 



1051 

P 0389 

0 A 0 8 


MP4 A 


INA 
SAZ 
JMP* HP 2 
CLP Q 
ENA 
RTJ 


-3 

MPG-*-i 


1 

ILOAD 


LD A- CSQCTR, I 
STA LENDC 

LQA- COMLIM, I 
STA COM MO 


RTJ 

RTJ 

RTJ 


FNXSEC 
ENOET 1 
CONNS 


JMP* MP4 
INA -1 
SAZ HP2A-*-l 
JMP* MP3 A 
RTJ F MX SEC 

LDA- CSQCTR, I 
STA LPENOC 

CLP Q 
ENA 1 
RTJ ILOAD 


JMP* MPI 

COME HERE AFTER 
FALL THROUGH TO 
RTJ WRTOUT 

RTJ M7A 

RTJ GET HEX 

LOA- SYMSTR, I 
SAZ MP5-*-l 
ENA 8 


WAS THE LAST STATEMENT *L 

YES, COMPLETE IT 

NO, CONTINUE CHECKING 

ISSUE A PATCH EXTERNAL FUNCTION TO LINK 
TOGETHER ALL OF CORE RESIDENT. 1 IF *L WAS 
LAST THEN CORE RESIDENT IS PART 0 ONLY) 

SAVE THE LENGTH OF PART 1 FOR USE AS A 
BOUND OF UNPROTECTED 


SAVE THE TOP OF SYSTEM 
OF UNPROTECTED 


COMMON AS BOUND 


MAKE SURE ENTRY SECTOR IS DEFINED 

COMPUTE START VALUES FOR TEMP ENT/E XT TABLES 

REALLOCATE CORE FOR NEW PAGES 

GO TO PROCESS THE *MP CONTROL STATEMENT 

WAS THE LAST STATEMENT *LP 

YES, COMPLETE THE *LP 

NO, COMPLETE THE *M OR *MP 

MAKE SURE ENTRY 


SAVE THE LENGTH OF PART 
BOUND OF UNPROTECTED 


1 FOR USE AS A 


YES, ISSUE A PATCH EXTERNALS FUNCTION 
TO LINK TOGETHER THE PARTI CORE RESIDENT 


01701029 

01701030 

01701031 

01701032 

01701033 

01701034 

01701035 
0170 1 036 

01701037 

01701038 

0 170 1 G39 

01701040 

01701041 

0170 1042 
01701043 
017Q1Q44 
01701045 
01701046 

01701047 

01701048 

01701 049 
01701050 
01701051 


4 CARDS DELETED 

GO TO PROCESS THIS *MP 


132*5127******** 

01701056 


rOMPl FTTNG *1 OR *LP 

HERE IF THE LAST STATEMENT WAS *M OR *MP 

OUTPUT THE * M OR *MP PROGRAMS AND ENTRIES 

GO TO ALLOCATE TEMPORARY PAGES 

PICKUP THE STARTING PARTITION NUMBER 

IS the FIELD NUMERIC 

YES, ANALYZE THE PARAMETER 

ERROR 8, NAME APPEARS IN NUMBER FIELD 


01701058 

01701059 

01701060 

01701 061 

01701062 

01701063 
01701064 
0170 1 065 


GONTRL 


PAGE 


3i 


OATEi 08/19/99 


1052 

P038A 

1300 

MPERR 

JMP 

QTYPE 



P033B 

0 OFC 





1053 

P038C 

Cl 49 

MP5 

LDA- 

SCNINP, 

I 

1054 

P038D 

6 8 0 0 


STA 

PP 



P03 8E 

00 7A 





1055 

PG38F 

0132 


SAM 

MP6-*-i 


1056 

P 0 390 

0 9 EF 


INA 

-16 


1057 

PQ 391 

0 132 


SAM 

MP7-*-i 


1 G 5 8 

P 0 39 2 

0 A 25 

MP6 

ENA 

$25 


1059 

PG 393 

18F6 


JMP* 

MPERR 


1060 

PQ394 

5800 

HP 7 

RTJ 

COMMA 



P0395 

FD8D 





1061 

PQ 396 

1820 


JMP* 

MPTERM 


1062 

P0397 

5300 


RTJ 

GEiTHEX 



PO 398 

F D 8 4 





1063 

P0399 

C 1 13 


LDA- 

SYMSTR, 

I 

106 4 

P039A 

0101 


SAZ 

MP8-*-l 


1C6 5 

P039B 

18ED 


JMP* 

MP4 A 


1066 

P039C 

Cl 49 

MP8 

LDA- 

SCNINP, 

I 

1067 

PG39D 

636C 


STA* 

NN 


1068 

P039E 

0133 


SAM 

MP9-* -1 


1069 

P039F 

8869 


ADD* 

PP 


1070 

P03AO 

0 9 EE 


INA 

-17 


1071 

P 0 3 A 1 

0131 


SAM 

MP1 Q-*- 

1 

1072 

P0 3A2 

18EF 

MP9 

JMP* 

MP6 


1073 

P03A3 

5300 

MP10 

RTJ 

COMMA 



P03A4 

FD7E 





1074 

P03A5 

1 8 0 E 


JMP* 

MP12 


1075 

P 0 3 A 6 

5800 


RTJ 

GETHEX 



P03A7 

F D 75 





1076 

P03A8 

C 1 13 


LDA- 

SYMSTR, 

I 

1077 

PQ3A9 

0101 


SAZ 

MP1 1-*- 

1 

1078 

PD3AA 

1 8DE 


JMP* 

MP4 A 


1079 

P03AB 

Cl 49 

MP11 

L PA- 

SCNINP, 

I 

1080 

P03AC 

6800 


STA 

SEC VAL 



P03AD 

0 0 82 



CHKSEC 


1081 

P03AE 

5874 


RTJ* 


1082 

P03AF 

C 80 0 


LDA 

SEC VAL 



PQ3B0 

0 07F 





1083 

P0 3B1 

6800 


STA 

LSSECT 



P03B2 

0182 



VALID 


108 4 

P 0 363 

5800 

MP12 

RTJ 



P0384 

012B 





1085 

P03B5 

0142 


SQZ 

MP13-*- 

1 

108 6 

P03B6 

OAOE 

MPTFPM 

ENA 

$E 


1087 

PQ387 

1 8D2 


JMP* 

MPERR 


1088 

P03B8 

C 8 0 0 

MP13 

LDA 

PARTBL 



P03B9 

FEA3 



MP15A-* 


1089 

P03BA 

01 IF 


SAN 

— 

1090 

P03BB 

58 04 


RTJ* 

MP1 Mf 


1091 

PQ3BC 

50 41 


ALF 

3 , PARTBL 


P03BD 

52 54 






P03BE 

42 4C 






01701066 


SAVE THE STARTING PARTITION NUMBER 


SKIP IF PARTITION NUMBER IS NEGATIVE 
IS THE PARTITION NUMBER LESS THAN 16 
YES, THE NUMBER IS VALID 10-15) 

NO, ILLEGAL PARTITION NUMBER 
OUTPUT ERROR 9 

IS THE FIELD TERMINATOR A COMMA 

NO, OUTPUT ERROR E 

YES, GET THE NEXT PARAMETER 


IS THE FIELD NUMERIC 
YES, CHECK THE PARAMETER 
NO, ERROR 8 - NAME APPEARS IN 
SAVE THE NUMBER OF PARTITIONS 


NUMEER FIELD 


SKIP IF NUMBER IS NEGATIVE - ILLEGAL 

ADO THE STARTING PARTITION TO NUMBER OF 

PARTITIONS AND CHECK FOR PARTITION OVERFLOW 

SKIP IF NUMBER IS VALID 

ERROR 25, ILLEGAL PARTITION NUMBER 

IS THE TERMINATOR A COMMA 

NO-, CHECK FOR BLANK OR CARRIAGE RETURN 
YES, PICKUP THE SECTOR NUMBER 

IS THE FIELD NUMERIC 
YES, CHECK IT FOR VALIDITY 
NO, ERROR 8 - NAME APPEARS IN 
PICKUP THE SECTOR NUMBER FROM 
STATEMENT AND SAVE IT 


NUMBER FIELD 
THE CONTROL 


MAKE SURE THAT THE SECTOR NUMBER IS LEGAL 


IS TERMINATOR BLANK OR CARRIAGE RETURN 

YES, CONTINUE PROCESSING THE *MP 

NO, ERROR E - INVALID FIELD TERMINATOR 

HAS PARTBL BEEN DEFINED FOR THE INITIALIZER 

YES, FIND THE BOUNDS FOR THIS LOAD 
NO, SEE IF PARTBL IS DEFINED AS AN 
ENTRY POINT IN SYSDAT 


0170 1 067 
01701058 

ILLEGAL01701069 

01701070 

01701071 

01701072 

01701073 

01701074 


01701075 

01701076 

01701077 
01701078 
01701079 
0 17 Q 1 0 80 
01701081 
01701082 
01701083 
01701084 
0170 1085 
01701086 
01701 087 

01701088 
0 170 1 089 

01701090 

01701091 

01701Q92 

01701093 

01701094 

01701095 

01701096 

01701097 

017Q1Q98 

01701099 

01701100 

01701101 

01701102 

01701103 

01701104 

01701105 


CONTRL 


PAGE 


32 


□ ATE-. 08/19/99 


1092 

P03BF 

OBOO 


HP 14 

NOP 0 

1093 

P03C0 

C3FE 



LDA* MP14 

10 94 

P03C1 

61 OF 



STA- I NPCT R , I 

1095 

P03C2 

586E 



RTJ* LCREP 

109 6 

PQ3C3 

5128 



RTJ- TABSCH , I 

1097 

P03C4 

El 1C 



LDQ- S W6 , 1 

1098 

PQ3C5 

0162 



SQP MP15-*-l 

1099 

P03C6 

0 A26 



ENA $26 

1100 

P03C7 

18C2 



JMP* MPERR 

1101 

P03C8 

6800 


MP1 5 

STA PARTBL 


PQ3C9 

F E 93 




1102 

P03.CA 

E8 3E 


MP15A 

LDQ* PP 

1103 

P03CB 

CEOO 



LOA IPARTBL ) ,0 


PQ3CC 

F E 90 



STA- PROBAS, I 

1104 

P03CD 

6103 



1105 

PQ3CE 

68 00 

X 


STA PARS! R 

P03CF 

0 3 54 

X 


LDA =N$ FFFE 

110 6 

PQ3D0 

CO 0 0 




P03D1 

FFFE 




1107 

P03D2 

61 6C 



STA- TOP, I 

110 8 

P03D3 

F 8 36 



A DQ* NN 

1109 

P03D4 

CEOO 



LDA (PARTBL? ,Q 

P03D5 

FE87 



STA- G OMLI M, I 

1110 

P03D6 

6104 



1111 

P03D7 

0 A06 



ENA 6 

1112 

P03D8 

61 4E 



STA- CSNAME,! 

1113 

P 0 309 

C 8 0 0 

X 


LOA OATBS1 


P03DA 

0 0 A 0 

X 


STA- DATBAS, I 

111 4 

PQ3DB 

6102 



1115 

PD3DC 

C8 00 

X 


LDA 0ATLM1 


P 0300 

0 0 A 2 

X 


STA- DATLIM, I 

1116 

P03DE 

61 05 



1117 

P03DF 

C8GG 



LDA ENTTMP 


P0 3E0 

FEBF 




1118 

P 0 3 El 

61 6R 



STA- ENTPGS , I 

1119 

P03E2 

612C 



STA- MAXENT , I 

1120 

P0 3E3 

C 8 0 0 



LDA TEMPEX 


P03E4 

FEBD 



STA- EXTSTR, I 

1121 

P03E5 

61 76 



1122 

P03E6 

6107 



STA- E XTGTR, I 

1123 

P03E7 

0 A 0 1 



ENA 1 

1124 

P03E8 

6157 



STA- ARIT15, I 

1125 

P0 3E9 

GOOD 



LDA =X$1400 


D 0 3EA 

1 4 Q Q 




1126 

P0 3EB 

680 0 



STA VALUE1 


P03EC 

0 021 



LDA- PROBAS, I 

1127 

P0 3ED 

C103 



1128 

P03EE 

6183 



STA- PARBAS, I 

1129 

P03EF 

5 81B 



RTJ* STORE 

113 0 

P03F0 

COOO 



LDA =X($7FFF) 


P03F1 

FFFE 




1131 

P03F2 

6800 



STA VALUE1 


P03F3 

0 0 1 A 





PICKUP RUNTIME ADDRESS OF 
FCR TABLE SEARCH POINTER 
SETUP THE POINTERS TO USE 
SEARCH CREP FOR PARTBL 
WAS IT DEFINED 
YES, SAVE ITS VALUE 
NO, OUTPUT ERROR $26 - NO 


ENTRY POINT NAME 
THE CREP TABLE 


PARTBL IN SYSDAT 


0170 
0170 
0170 
0170 
0170 
0170 
0 17 G 
0170 
0173 


1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 


SAVE THE ADDRESS OF THE PARTITIONED CORE TABLE01701115 

PICKUP THE STARTING ADDRESS FOR THE LOAD 01701116 

0170 1117 

SAVE THE PROGRAM RELOCATION BASE FOR THIS LOAD01701118 
SAVE FOR CHECK ON NAME PRINT IN ILOAD 01701119 


SET UPPER BOUND FOR THIS LOAD 


117*4319******** 


AND SAVE IT IN LOCATION TOP 01701121 
ADD NO* PARTITIONS TO START PARTITION 117*4336******** 
PICK UP START OF NEXT PARTITION 117*4336******** 


SETUP UPPER BOUND OF COMMON FOR PARTITION 

SETUP CSNAME = 6 SAYING THAT A 

*MP IS BEING PROCESSED 

GET DATA BASE FOR PART 1 LOAD 


GET DATA LIMIT FOR PART 1 LOAD 


01701122 
01701123 
01701124 
0170112 5 

01701126 

01701127 


0170 1128 

PICKUP THE STARTING ADDRESS FOR THE TEMPORARY 01701129 

ENTRY POINT TABLE AND SAVE AS THE START AND 01701130 
END OF THE TABLE FOR THIS LOAD* 01701131 

PICK UP START OF TEMP. EXTERNAL 117*4337******** 


TABLE AND USE AS THE START AND END OF THE 
EXTERNAL TABLE FOR THIS LOAD 
SETUP THE ADDRESS ARITHMETIC FLAG TO TELL 
THE LOADER TO USE 16 BIT ARITHMETIC 
STORE JUMP INSTRUCTION AS FIRST TWO 

CSO VALUES 


SAVE BASE ADDRESS 


01701133 
01701134 
01701135 
01 70 1 13 6 
0.1701137 

01701138 

01701139 
017G1140 
0170 1141 
01701142 


TEMPORARILY SET SECOND WORD $FFFF 


01701143 


CQNTRL 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

v.-'' 
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1132 

P03F4 

0103 



RAO- 

PR0BAS-* 

1133 

P03F5 

C 1 0 3 



LDA- 

PRO BAS, 

1134 

PG3F6 

5814 



RTJ* 

STORE 

1135 

P03F7 

D103 



RA0- 

PROBAS, 

1136 

P03F8 

C17B 



LDA- 

CSQCTR, 

1137 

P03F9 

0902 



I N A 

2 

113 8 

P03FA 

61 7B 



STA- 

CSQCTR, 

1139 

P03FB 

D 1 31 



RAO- 

NOJUMP, 

1140 




-* 



1141 

P03FC 

0 8 46 



CLR 

A»Q 

1142 

P03FD 

5800 

X 

MP1 6 

RTJ 

IL0AD 


P0 3FE 

03 7F 

X 




1143 

P03FF 

0 A 0 1 



ENA 

1 

1144 

P0400 

5800 

X 


RTJ 

ILQA0 


P 0 40 1 

0 3FE 

X 




1145 




V- 



11 46 

P0 402 

01 43 


MP1 8 

SQ7 

MP19-*- 

1147 

P 0 4 0 3 

fl A 0 2 



ENA 

2 

1148 

PG4Q4 

5800 

X 


RTJ 

ILOAD 


P0405 

0401 

X 




1149 

P 0 40 6 

18 00 


MP1 9 

JMP 

M23 


P 0 407 

FF32 





1150 

P 0 40 8 

GOOD 


PP 

NUM 

0 

1151 

P0409 

0000 


NN 

NUM 

0 


DATE? 08/19/99 


INCREMENT BASE COUNT 


INCREMENT BASE COUNT 


INCREMENT LENGTH TO INCLUDE 2 WORD JMP 
SET NOJUMP TO FLAG TRANSFER ADDRESS 
NEEDED FOR JUMP INSTRUCTION 

ISSUE RBD LOAD FUNCTION 

ISSUE PATCH EXTERNAL FUNCTION TO LINK THE 
PROGRAMS OF THIS LOAD TOGETHER 


01701144 

01701145 

01701146 

01701147 

01701143 

01701149 

01701150 

01701151 

01701152 

01701153 

01701154 

01701155 

01701156 


8 CARDS DELETED 1.32*5127**** **** 
SKIP IF NO UNPATCHEO EXTERNALS EXIST 01701165 
ISSUE PRINT UNPATCHEO EXTERNALS FUNCTION 01701166 
BEFORE COMPLETING LOAD 01701167 


GO TO TERMINATE THIS LOAD 

STARTING PARTITION NUMBER 
NUMBER OF PARTITIONS TO USE 


01701168 

01701169 

01701170 


1153 

PQ4GA 

0 03 0 


STORE 

NUM 

0 

1154 

P040B 

5800 

X 


RTJ 

DISKWR 

PO 40C 

7FFF 

X 




1155 

PG4GD 

0 B 0 0 


VALUE 1 

NUM 

Q 

1156 

P 0 4 0 E 

0 0 00 



NUM 

0 

1157 

P04QF 

1CFA 



JMP* 

(STORE) 


SECTION TO STORE A WORD IN CSQ 


01701172 

01701173 

01701174 

01701175 

01701176 


o 
o 
o 
o 
' o 
o 
o 
o 
• o 
o 

: o 
o 
o 
o 
o 

■ o 
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1159 

* 

R 

0 

U 

T 

I 

N 

E 

T 

0 

V 

E 

1161 


G 

I 

V 

E 

N 


V A 

L 

U ! E 


I 

1163 

* 

L 

S 

s 

E 

C 

T 

A 

N 

D 

L 

E 

1165 


V 

A 

L 

U 

E 


0 F 


E N 

T 

R 


R 

I 

F Y 


T 

H 

A 

T 


A 




01701178 

S 


G R 

E 

A 

T 

E 

R 


T 

H 

A 

N 

01701180 

S 

S 

T 

H 

A 

N 


T 

H 

E 




01701182 

Y 


P 0 

I 

N 

T 


S 

E 

C 

T 

0 

R . 

01701184 


1167 

PO^IO 

0800 

F MX SEC 

NOP 

0 


1168 

P0411 

E 8 ID 


LOG* 

MAXSEC 


1169 

PO^+12 

0141 


SQZ 

CKSEC 1 


1170 

PO 413 

1CFC 


JMP* 

IFMXSEC5 

1171 

PQ 414 

5804 

CKSEC1 

RT J v 

CKSEC 2 


1172 

P 0 41 5 

53 45 


ALF 

3 ,SEC TO 

R 


PO 41 6 

4354 






PO 417 

4F52 





1173 

PO 418 

0800 

CKSEC2 

NOP 

0 


1174 

PO 41 9 

C8FE 


LDA* 

CKSEC 2 


1175 

PO 41 A 

61 0 F 


STA- 

I NPCTR, 

I 

1176 

P041B 

5128 


RTJ- 

TA8SGH, 

I 

1177 

P041C 

E 1 1C 


LDQ- 

S W o , I 


1178 

PG41D 

B 1 62 


3 QP 

CKSEC 3- 

* 

1179 

P041E 

Q A 24 


ENA 

$24 


1180 

P041F 

1858 

CKSERR 

JMP* 

QTYPE 


1181 

PO 420 

680E 

CKSEC3 

ST A* 

MAXSEC 


1182 

PO 421 

1C EE 


JMP* 

1FMXSEC 

) 

1183 

PO 42 2 

0800 

CHKSEC 

NOP 

0 


1184 

P 0 423 

C8 0D 

CKSEC 

LDA* 

SECVAL 


1185 

PO 42 4 

9800 


SUB 

LSSEGT 



P 0425 

G10F 





118 6 

PO 426 

0122 


SAP 

CKSEC 5- 

* 

1187 

PO 427 

0 A 0 A 

CKSEC4 

ENA 

$ A 


1188 

PO 428 

1 8F6 


JMP* 

CKSERR 


1189 

PO 42 9 

C ‘8 0 5 

CKSEC 5 

LDA* 

MAXSEC 


119 0 

PO 42 A 

9805 


SUB* 

SECVAL 


1191 

PO 42 B 

0121 


SAP 

C KSEG6- 


119 2 

P042C 

18FA 


JMP* 

CKSEC4 


1193 

P042D 

1CF4 

CKSEC6 

JMP* 

(CHKSEC 

‘) 

1194 

P0 42F 

00 00 

MAXSEC 

NUM 

0 


1195 

P042F 

0 0 0 0 

SECVAL 

NUM 

0 


1196 








HAS SECTOR BEEN DEFINED IN CONTRL 

NO, SEE IF IT HAS BEEN OPERATOR DEFINED 

YES, RETURN TO CALLER 


01701186 

01701187 

01701188 

01701189 

01701190 

01701191 


PICKUP THE RUN TIME ADDRESS OF THE ENTRY 

POINT NAME FOR THE TABLE SEARCH ROUTINE 

SEARCH TO SEE IF SECTOR HAS BEEN DEFINED 

IS SECTOR DEFINED 

YES, SAVE ITS VALUE 

NO, ERROR SECTOR IS NOT DEFINED 

SAVE THE VALUE OF SECTOR 


IS THE NEW SECTOR VALUE GREATER THAN OR 
EQUAL TO THE CURRENT 'VALUE OF LSSEDT 


YES, CHECK FOR HASS STORAGE OVERFLOW 
ERROR A, ILLEGAL SECTOR SPECIFIED ON 
INITIALIZER CONTROL STATEMENT 
IS THE NEW SECTOR VALUE LESS THAN OR 
EQUAL TO THE MAXIMUM SECTOR ALLOWABLE 
YES, RETURN TO CALLER 
NO, OUTPUT THE ERROR TO THE USER 
RETURN TO CALLER 

MAXIMUM SYSTEM SECTOR SPECIFIED BY THE 
SECTOR VALUE SPECIFIED ON *M OR *MP 
CONTROL STATEMENT 


USER 


01701192 
01701193 
01701194 
01701195 
01701196 
01701197 
01701198 
017G1199 
01701200 
01701201 
0170123 2 
01701203 
01701204 

01701205 
0170120 b 
01701207 
01701208 
0170120 9 
01701210 
01701211 
01701212 
01731213 
017 01214 
01701215 
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1196 
1199 
120 0 

1202 P0430 0 BO Q 

1203 PG431 Cl 73 
120 4 PO 432 61 6B 
12Q 5 P 0 433 C18B 
1206 PO 43 4 612C 
120 7 P 0 435 1C FA 


* **************** *************** *** ****** *************** ***** *0 17 0 1 2 1 7 

* ROUTINE TO SETUP POINTERS FOR A LINK TO THE CREP TABLE 01701218 

* ********************** ************ ******* *************************** Q170 1219 


LCREP 


NOP 

LDA- 

STA- 

LDA- 

STA- 

JMP* 


0 

ENTST O i I 
ENTPG S. I 
ECREP , 1 
MAXENT, I 
(LCREP) 


SET THE START OF THE ENTRY POINT TABLE 
TO POINT TO THE START OF THE CREP TABLE, 
SET THE END OF THE ENTRY POINT TABLE 
TO POINT TO THE END OF THE CREP TABLE 


01701221 

01701222 

01701223 

017D1224 

01701225 

01701226 


1209 

1210 
1211 

1213 PQ436 OBOO 

1214 PO 43 7 C 1 74 

1215 PO 43 8 616B 

1216 P 0 439 C18C 

1217 P043A 61 2C 

1218 PQ43B 1C FA 


* ************* *******************************************************0170 1228 

* ROUTINE TO SETUP POINTERS FOR A LINK TO THE CREP1 TABLE 01701229 

* **************** ******* ******************* *** **** ****************** *o 17 0 1230 


LCREP 1 NOP 
LDA- 
STA- 
LDA- 


STA- 

JMP* 


0 

ENTST It I 
ENTPGS, I 
ECREP1, I 
MAXENT, I 
( LC RE PI ) 


SET THE START OF THE ENTRY POINT TABLE TO 
POINT TO THE START OF THE CREP1 TABLE. 

SET THE END OF THE ENTRY POINT TABLE TO 
POINT TO THE END OF THE CREPi TABLE. 


01701232 

01701233 

01701234 

01701235 

01701236 

01701237 
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DATE; 08/19.799 


t ) 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


122 0 
1221 


* ** »* * * ? * »#■** *-* 

* ROUTINE FOR BACKGROUNDING INPUT BUFFER 

* + *** *****¥¥¥ »?->*¥¥»¥?» ** 

A DDR FROM WHENCE WE CAME 
RESTORE INDEX I 

A DDR OF INPUT BUFFER 

TO INDEX I 

SET A TO ALL ONES 
ALE ONES TO INPUT BUFFER 

MINUS IMPLIES BUFFER BACKGROUNDED 

RESTORE INDEX I 

ONE OF CONTAB 
RETURN 


1223 

P0 430 

00 00 


BACKGR 

ADC 

0 

1224 

P043D 

E8 ao 

X 


LDO. 

ISAV 

P0 43E 

7FFF 

X 




1225 

P043F 

C239 



LDA- 

INPADRt Q 

1226 

P0 440 

0 9 FE 



IN A 

-1 

1227 

P0 441 

60 FF 



STA- 

I 

1228 

P 0 44 2 

0C3B 



ENQ 

59 

1229 

PD 443 

0 804 



SET 

A 

1230 

PO 444 

6301 


BG1 0 

STA- 

1,8 

1231 

PO 445 

0 DFE 



INQ 

-1 

1232 

P 0 446 

0171 



SQM 

BG20-'*-l 

1233 

P0 447 

18FC 



JMP* 

BG10 

1234 

P0 448 

C 80 0 

X 

BG20 

LDA 

ISAV 


P0 449 

0 43E 

X 




1235 

P044A 

6 OFF 



STA- 

I 

1236 

P044B 

1CF0 



JMP* 

I BACKGR) 


s***3.**Q±7Q 1239 
017G124Q 
*******017GI241 
0170 1 242 
017012^3 

01701244 

01701245 

01701246 

01701247 

01701248 

01701249 

01701250 

01701251 

01701252 

01701253 

01701254 

01701255 


O 

O 


O 

O 


o 

n 


G 

o 

o 

o 

o 

o 

o 

o 

o 


u 


o 

o 

o 

o 


o 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1238 

1239 

1240 

1241 


♦ 

* 

* 

* 


********************************************** *******Q17[) 125 / 

OUTPUTTING THE MESSAGE 01701258 

ERROR XX 01701259 

*************** * **************************************************** g 179 i 25 q 


*************** 
ROUTINE FOR 


1242 

P044C 

0 0 0 0 


TYPEQ 

ADC 

1243 

P044D 

18 23 



JMP* 

1244 

P044E 

00 00 


TYPEQl 

ADC 

1245 

P044F 

01 41 



SQZ 

1246 

P 0 45 0 

1815 



JMP* 

1247 

P0 45 i 

E800 

X 

QERR 

LDQ 


P0 452 

0 4 49 

X 



1248 

P0453 

4 0 FF 



STQ- 

1249 

PO 454 

5 1 5 A 



RTJ- 

1250 

P0 45 5 

E 1 39 



LDQ- 

1251 

P0 45 6 

C 1 34 



LDA- 

1252 

P0457 

OF 48 



ARS 

1253 

P0 458 

0 9CF 



INA 

1254 

P0 459 

0114 



SAN 

1255 

P0 45 A 

C 1 34 



LDA- 

1256 

P0 45 B 

9000 



SUB 


P045C 

10 00 




1257 

P045D 

1802 



JMP* 

1258 

PQ45E 

C 1 3*+ 


TYPEQ2 

LDA- 

1259 

P0 45F 

6817 


TYPEQ3 

STA* 

1260 

P0 460 

C 8 ED 



LDA* 

1261 

P0461 

0 901 



INA 

1262 

P0 462 

0 C 0 5 



ENQ 

1263 

P 0 46 3 

5800 

X 


RTJ 


P0464 

0 0 4B 

X 




0 

TYPEQ9 

0 

QERR-*-: 
QOUT 
IS AV 


CONVRT , 
INPAD R, 
BINASC* 
3 

-S3 0 
TYPEQ2- 
BINASC* 
-N$10 00 


I 

I 

1,1 


1,1 


TYPEQ3 

BINASC*1,I 

ERNBR 

TYPEQl 

TELOUT 


A = ERROR NBR ON ENTRY 
Q = 0 IF ERROR, 1 OTHERWISE 


RESTORE INDEX I 


CONVERT NBR IN A REG 
ADDR OF INPUT BUFFER 

CONVERSION RESULTANT 
TEST LEFT HALF CHARACTER 
FOR A ZERO 
NON-ZERO IF NUMBER 
CHANGE ZERO TO A BLANK 


CONVERSION RESULTANT 
STORE IN OUTPUT BUFFER 
ADDRESS OF QBUFR 
ADDRESS OF EBUFR 
5 WORDS OUT 

OUTPUT MESSAGE TO TELETYPE 


01701261 

01701262 

017Q1263 

01701264 

017G1265 

01701266 


0170 
017 0 
0170 
0170 
0170 
0170 
0170 
0170 
0170 


1267 

1268 
1269 
1 27 0 

1271 

1272 

1273 

1274 

1275 


01701276 
01701277 
01701278 
017 0 1 27 9 
017G1280 
01701261 
01701282 


1265 

1266 
1267 
12 6 8 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 
128 0 


* ************************************************* *******************0 1701 284 

* ROUTINE FOR OUTPUTTING Q TO THE COMMENT DEVICE 01701285 

* 01701286 

* ******************************* ************************************ *0170 1287 


PO 465 
P0 466 
P0 467 
PO 468 
P 0469 
P0 46 A 
P0 468 
P0 46 C 
P046D 
PQ46E 
P046F 
Pfl 470 
P 0471 
P0 472 
P 0 473 
P 0 474 


C8E8 
E80 0 
0452 

4 0 FF 
0C01 
53 0 0 
0464 

5 8 CF 
C 1 39 
18 0 0 
FC 42 
580D 
DA 51 
OA 45 
52 52 
4F52 


QOUT 


LDA* TYPEQ i 
LOQ ISAV 

STO- I 
END 1 
RTJ TELOUT 

RTJ* BACKGR 
LDA- INPA0R, I 
JMP CM45 


TYPEQ9 

QBUFR 

EBUFR 


RTJ* 

NUM 

NUM 

ALF 


TYPEQl 
$0 A 51 
$0 A 45 
3 » RROR 


ADDRESS OF QBUFR 
RESTORE INDEX I 


OUTPUT MESSAGE TO TELETYPE 


ADDR OF INPUT BUFFER 


LINE FEED AND CHARACTER 
LINE FEED AND CHAR E 
ERROR MESSAGE 


01701288 

01701239 

01701290 

01701291 

01701292 

01701293 

01701294 

01701295 

01701296 

01701297 

01701298 

01701299 


□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


u 


DATE: 08/19799 


o 

o 

o 
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P0 475 2 D 2 0 

1281 P0 476 0000 ERNBR ADC 0 

1232 P0477 08 42 QTYPE CL R Q 

1283 P0 478 5-800 RTJ TYPEQ 

P0479 FF 02 


ASCII ERROR NBR 

ERROR IF Q = 0 

TYPE ERROR AND Q, COMM MED 



o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 


01701300 
0170 1 301 
01701302 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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□ ATE: 08/19/99 


1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 
130 0 
130 1 
1302 


* 


* 

PROCESS *1, *0, AND *C CONTROL 

STATEMENTS 

0 170 1 3D 5 




017 0130 6 


ACCEPTABLE LU ASSIGNMENTS 

0170 130 7 

* 

INPUT. . ........... 

...LU 

01701308 


PAPER TAPE 

1 

01701309 

* 

CARD 

2 **MSOS 

4.1**01701310 


MAG TAPE 

3 **MSOS 

4. 1**0 17 o 1 31 1 

* 



01701312 


OUTPUT ....... 

. . .LU 

01701313 

* 

MASS MEMORY 

4 

0170 1 314 

9 

UNUSED IRESERVED3 

5 

01701 315 

& 



01701316 


LIST,. .. .... ....... 

► -m • LU 

01701317 

* 

TELETYPE 

6 

01701318 


PRINTER 

7 

01701319 

# 

DUMMY 

8 

01701320 


******* ******** ******* ******************* ******* ******* **Q 17 G 1 32 1 


130 h 
1305 

PO 47 A 
P0 4 7B 

0 A G 0 
1804 

STAR I 

ENA 

JMP* 

0 

SETIO 

PROCESS STATEMENT OF FORM 

*I,LU, EQUIP 

01701323 

01701324 

1307 

1308 

P047C 
P0 47D 

0 A 0 1 
1802 

STARO 

ENA 

JMP* 

1 

SETIO 

PROCESS STATEMENT OF FORM 

* 0, L U, EQUIP 

017 Q 1 326 
0170 1 32 7 

1310 

P047E 

DA 02 

ST ARC 

ENA 

2 

PROCESS STATEMENT OF FORM 

*C,LU, EQUIP 

01731329 

1312 

1313 

P 0 47F 
P 0 4’8 0 

6843 

5800 

SET 13 

S T A* 
RTJ 

SWTHIO 

COMMA 

G = INPUT, 1=0 UTPUT , 2=LIST 
IS DELIMETER A COMMA 


01701331 

017G1332 


131 4 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

132 7 

1328 

1329 


PQ 481 
P0482 
P0 483 
P 0 46 4 
P 0 485 
PC 48 6 
PO 487 
P0488 
PO 489 
PQ48A 
P046E 
P048C 
PQ 48 D 
PG48E 
P0 48F 
P 0 490 
PO 491 
PC 492 
PO 493 
PO 494 


FCA1 
1 8 3 E 
0 A 08 
6116 
0 8 44 
51 46 
0113 
0 102 
0 A08 
1806 
E 1 49 
F 8 0 0 
7FFF 
0173 
0 A 12 
13 0 0 
FFE5 
E50 0 
GO 49 
5 8 01 


NQKNB 

0KN8 


STIOER 

QTYPEX 


JMP* 

ENA 

STA- 

CLR 

RT J- 

LDA- 

SAZ 

ENA 

JMP* 

LOQ- 

AOQ 

SQM 

ENA 

JMP 


ILDEL 

8 

SCANS W, I 
A 

SCAN, I 
SYMSTRf I 
OKNB-*~l 

s 

QTYPEX 
SONIN P, I 
TABLE 

LUOK-*-i 

$12 

QTYPE 


NO, TYPE ERROR E, Q 

YES, PICKUP LOGICAL UNIT NUMBER 

SETTING BIT 3 OF SCANSW SAYS FETCH A NAME 

OR DECIMAL NUMBER 

IF SYMSTR EQUALS ZERO THE FIELD WAS NUMERIC 

NAME APPEARS IN NUMBER FIELD 

TYPE ERROR 8, Q 

PICKUP BINARY VALUE OF NUMBER 

IS THE NUMBER VALID I TABL'E= -HAXLU-i T 

YES 

NO, TYPE ERROR 12, Q 


LUOK LDQ SCN INP , I 
RTJ* ABS 


0 170 1 333 
01701 334 
01701335 
01701336 
017 01337 
0170133 8 
01701339 
0170 1 340 
01701341 
01701342 
01701343 

01701344 

01701345 

01701346 

01701347 


**MSQS 4. 1* *01701 348 


CALCULATE THE ABSOLUTE ADDRESS 


o 

COMTRL PAGE 40 



1330 

P0 49 5 

0 0 0 0 


ABS 

NUM 

0 


1331 

P 0 4 9 6 

C8FE 



LD A * 

ABS 

o 

1332 

P0 497 

8 8 OC 



ADD* 

REL 

1333 

P 0 498 

8 8 0 A 



ADD* 

ATABLE 


1334 

P0 499 

0 8 34 



A AO 

A 


1335 

P0 49 A 

E A 00 

X 


LDQ 

TABLE, Q 

O ; 


PO 49B 

0480 

X 


1336 

P049C 

0 8 32 



A AQ 

O 


1337 

P049D 

CEO 7 



LDA* 

(ZERO’) , Q 


1338 

P049E 

01 06 



SAZ 

DEVQEF 

O 

1339 

P049F 

0900 



INA 

0 

1340 

P 04 A 0 

0114 



SAN 

DEVDEF-*-! 


1341 

P0 LA 1 

18 ED 



JMP* 

STIOER 


1342 

PO 4A 2 

049R 

X 

AT ABLE 

ADC 

TABLE 

O 

1343 

P0 4A3 

GOOD 


R EL 

ADC 

ATABLE-ABS 

1344 

P04A4 

0 0 00 


ZERO 

NUM 

0 


1345 

PO 4A5 

C500 


DEVQEF 

LDA 

SCNINP, I 



P04A6 

0 0 49 





° 

1346 

P 0 4 A 7 

E800 



LDQ 

SWTHIO 


P04A8 

0 0 1 A 






1347 

P04A9 

6A1A 



ST A * 

I N, Q 


1343 

P04AA 

5835 



RTJ* 

VALID 

o 

1349 

PG^AB 

0151 



SON 

0KN81-*- 1 

1350 

P04AC 

1831 



JMP* 

CM44EX 


1351 

P04AO 

58 00 


OKNBl 

RTJ 

COMMA 



P 0 4AE 

FC74 





O ; 

1352 

P04AF 

1 811 



JMP* 

ILDEL 

1353 

PC4BG 

5800 



RTJ 

GET HEX 



PO 481 

FC 68 






1354 

P0 4B2 

Cl 13 



LDA- 

SYMSTR, I 

O 

1355 

P0 4B3 

0101 



SAZ 

0KNB2-*- 1 

1356 

PQ4B4 

18D4 



JMP* 

NOKNB 


1357 

P04P5 

58 2 A 


0KNB2 

RTJ* 

VALID 


1358 

P04B6 

01 41 



SQ7 

QKNB3-* - 1 

O ; 

1359 

P04B7 

1809 



JMP* 

IL0EL 

1360 

P04B8 

Cl 49 


OKNB3 

LDA- 

SCNINP, I 


1361 

P04E9 

E8 09 



LOQ* 

SWTHIO 


1362 

P048A 

E A 09 



LDQ* 

IN, 0 

O- • 

1363 

P0 4BR 

4807 



ST Q* 

SWTHIO 

1364 

P04BC 

0FA1 



QLS 

1 


1365 

P0 4BD 

F8Q5 



ADQ* 

SWTHIO 


1366 

P04BF 

1A 05 



JMP* 

IN , Q 

o 

1367 

PC4BF 

00 00 


DUMMY 

NUM 

0 

1368 

P04CQ 

0 A 0 E 


ILDEL 

ENA 

14 


1369 

P0 4C1 

18 85 


TYPIO 

JMP* 

QTYPE 


1370 

P0 4C2 

0 0 0 0 


SWT HI O 

NUM 

0 

o 

1371 

P04C3 

00 00 


IN 

NUM 

0 

1372 

P04C4 

0 00 0 


OU 

NUM 

0 


1373 

P04C5 

0 000 


CO 

NUM 

0 


1374 

P04C6 

63G0 

X 


STA 

EPTAPE 

o 


P04C7 

7FFF 

X 




1375 

P04C8 

1315 



JMP* 

GM44EX 


1376 

PO 4C9 

6300 

X 


STA 

ECARD 



P04CA 

7FFF 

X 





O 


n 


DATES 08/19799 


o 


ADDRESS OF THIS L.U. ENTRY 
REL. ADDRESS OF THIS L.U. DRIVER 


IS THE REQUIRED MODULE LOADED 
YES 

YES 

NO, OUTPUT ERROR 12? , Q 


**MSOS 

**HSOS 

**MSOS 

**MSOS 

**MSOS 

**MSOS 

**MSOS 

**MSQS 

**MSOS 

**MSOS 


**MSQS 

**HSOS 

**MSOS 

**MSOS 


4. 1**0 170 1 349 
4.1**01701 350 
4. 1**0 170 1 35 1 
4. 1**0170 1352 
4.1**01701353 
4.1**01701354 

4.1**01701355 
4,1**01701356 
4. 1**01701357 
4.1**01701358 
01701359 
01701 360 
4.1**01701361 
4.1**01701362 
4. 1**01701363 
4,1**01701364 


STORE ADDRESS OF DRIVER IN UNIT WORD 
IS DELIMITER BLANK OR CARRIAGE RETURN 
NO, CHECK FOR COMMA 

YES, TYPE Q AND INTERROGATE COMMENT MEDIUM 
IS DELIMETER A COMMA 

NO, OUTPUT ERROR E, Q 
YES, GET EQUIPMENT CODE 


01701365 

01701366 

01701367 

01701368 

01701369 

01701370 

01701371 

01701372 


IS FIELD NUMERIC 
YES 

NO .OUTPUT ERROR 8, Q 

IS DELIMETER BLANK OR CARRIAGE RETURN 
Y'ES 

NO, OUTPUT ERROR E, Q 
PICKUP FOUR DIGIT EQUIPMENT CODE 
PICKUP INDEX TO CONTROL STATEMENT TYPE 
PICKUP LOGICAL UNIT BEING SETUP BY STATEMENT 
SAVE LOGICAL UNIT 

MULTIPLY LOGICAL UNIT BY THREE TO 
FORM INDEX TO UNIT TABLE 

STORE EQUIP CODE THEN GET NEXT STATEMENT 

SLOT FOR DUMMY DEVICES 

ERROR £ , ILLEGAL FIELD DELIMETER 

OUTPUT ERROR XX, Q 

SWITCH DEFINING I/O DEVICE TYPE 

INPUT UNIT 

OUTPUT UNIT 

COMMENT UNIT 

SAVE EQUIPMENT FOR PAPER TAPE **MSOS 4.1 


0170 
0170 
0 17Q 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
**017 0 


1373 

1374 

1375 

1376 

1377 
137 8 
1379 
1 380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 
1 391 

1392 

1393 


SAVE EQUIPMENT FOR CARD READER 


01701394 
**MS0S 4.1**01701395 


o 
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o 

1377 

P0 4CB 

1812 


JMP* CM44EX 





01701396 

o 


1378 

P0 4CC 

68 0 0 

X 

STA EMTAPE 

SAVE EQUIPMENT 

FOR HAG TAPE 

**MSOS 

4, 

1**01701397 


o 


P0 4CD 

7FFF 

X 






o 

1379 

P0 4CF 

1 8 OF 


JMP* CHi+4EX 





01701398 


1380 

P0 4CF 

6800 

X 

STA EHASS 

SAVE EQUIPMENT 

FOR HASS MEMORY 



01701399 




P04DO 

7FFF 

X 







o 

1381 

PO 401 

18 OC 


JHP- CM44EX 





0170 1 40 0 

o 

1382 

PO 4D2 

Q BO 0 


NOP 0 

MO EQUIPMENT— 

UNUS ED IRESERVEDJ 



01701 401 


1383 

P04D3 

GBOO 


NOP 0 





01701402 



1384 

P04D4 

1809 


JMP* CH44EX 





01701403 


o 

1385 

P04D5 

6800 

X 

STA EGOM 

SAVE EQUIPMENT 

FOR COMMENT 

**MS0S 

4. 

1**01701404 

o 


PQ4D6 

7FFF 

X 






1386 

P D 407 

18 0 6 


JMP* GM44EX 





0170 140 5 



1367 

P04D8 

6800 

X 

STA EPRINT 

SAVE EQUIPMENT 

FOR PRINTER 

**M SO S 

4, 

1**01701406 


o 


P 0 409 

7FFF 

X 






o 

138 8 

PG4DA 

18 03 


JMP* CM44EX 





0170140 7 


138 9 

P04DB 

6800 


STA DUMMY 

SLOT FOR DUMMY 

DEVICE 

L. U. 

8 

017 01408 




P04DC 

FFE2 








o 

1390 

P04DD 

PG4DE 

1800 

FBDO 

GM44EX 

JMP CM44 

NO, PROCESS NEXT CONTROL ST ATEM£N7**MSO S 

4, 

1**01731 409 

o 

o 











o 

o 











o 

o 











o 

o 











' o 

o 











o 

o 











o 

o 











o 

o 











o 

o 











o 

o 











o 

— 

— 


— 

— 

__ 

— .. — 








(...) 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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1392 

1393 

1394 

139 & 

1396 

1397 

1398 

1399 

140 0 
1401 


140 3 
140 4 

1405 

1406 
140 7 

1408 

1409 

1410 

1411 

1412 

1413 


* 

* 


***** **************************** ****************-*******-************0 170 1 4l 1 

TEST FOR BLANK OR CARRIAGE RETURN AS FIELD TERM 01701412 

* *W********* *****2i ****t**S ************************************* 0 170 1413 


P040F 

0000 


VALID 

ADC 

0 

P04E0 

5300 

X 


RTJ 

0ETERM 

PO 4F1 

0125 

X 




P04E2 

0DFE 



INQ 

-1 

P04E3 

01 51 



SQN 

VALID-* 

P04E4 

1CFA 



JMP* 

(VALID? 

P0 4E5 

QDFD 


VAL10 

INQ 

-2 

P04E6 

1CF8 



JMP* 

(VALID? 


TEST FOR BLANK OR CARR RET 
FETCH TERMINATOR 

TEST CONST FOR CARR RETURN 

CARRIAGE RETURN 
TEST CONST FOR BLANK 
RETURN 


01701414 

01701415 

0170 1 416 
01701417 
01701418 
01701419 
0170142 0 


v 

* 


fc ** JMMMF - » * IMF * *** * *** ** ***-**********-*0 17 0 1 ^2 Z 

COMPUTE NEXT MASS STORAGE SECTOR NUMBER 


PG4E7 

0000 

NXTSEC 

ADC 

0 

PG4E8 

0 842 


CLR 

Q 

P04E9 

300 0 


DVI 

= N9 6 

P04EA 
P0 4EB 

0 060 
0141 


SQZ 

NXTifl-*-! 

P04EC 

0 901 


INA 

1 

P04ED 

8800 

NX? 10 

ADD 

LSSECT 

P0 4EE 
PQ4EF 

00 46 
6800 


STA 

LSSECT 

P04F0 

P04F1 

0 0 44 
1CF5 


JMP* 

(NXTSEC ) 


96 WORDS PER SECTOR 
ZERO IMPLIES NO REMAINDER 
LSI OF MASS ST G SECT NBR 
LSB OF MASS STG SECT NBR 


01701425 
0170142 6 
017 01427 

01701428 
0170142 9 
0170 143 0 

01701431 

01701432 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 


o • 
o 
o 
o 


o 


o 

o 

o 

o 

o 

o 


o 


o 

o 

o 


1415 

1417 


1419 

1420 

1421 

1422 

1423 

1424 
142 5 

1426 

1427 

142 8 

1429 

1430 

1431 

143 2 

1433 

1434 

143 5 

1436 

1437 
143 3 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 
145 7 

1458 

1459 

1460 


* ROUTINE 

* CONTROL 


TO PROCESS 
STATEMENT 


*S,NAME,HHHH 0170143 4 

01701 436 


P0 4F2 
P0 4F3 
PG4F4 
P0 4F5 
P04F6 
P04F7 
P04F8 
P04F9 
P04FA 
P04FB 
P0 4FC 
P04FD 
P04FF 
P04FF 
P0500 
P0501 
P0 502 
P 0 5 0 3 
PO 504 
PQ50 5 
P05Q6 
P 0 50 7 
PQ 508 
P0509 
P050C 
P 050D 
P0 50 E 
P0 50 F 
P0510 
P 051 1 
P0 512 
P0 51 3 
PO 51 4 
P 0 515 
P0516 
P0 51 7 


5800 
FC2F 
1 8CB 
0A 0 8 
6116 
0844 
514B 
58 0 0 
FC 28 
1 8 F 8 
C 113 
0102 
9112 
0112 

0 A 0 2 

1 8 BF 
Cl 13 
68 06 
Cl 14 
6805 
C 1 1 5 
68 04 
5805 
00 03 
0000 
OBOD 
5800 
FC 0D 
58 CE 
0141 
1 8 A D 
C 1 1 3 
0113 
Cl 49 
68F5 
1 8 0C 


* 

»■ 

♦ 

* 


STATEMENT *S,NAME,H H H H WHERE NAME IS A ONE TO SIX 
CHARACTER NAME THAT WILL BF FNTERED INTO THF LOADER TABLE 
WITH A VALUE OF H H H H, IF THE *S STATEMENT IS ENTERED BEFORE 
THE FIRST *LP STATEMENT, THEN THE NAME AND ENTRY POINT WILL 
RESIDE IN THE 3 REP TABLE AT TERMINATION OF INITIALIZATION. 

IF THE *S STATEMENT FOLLOWS THE FIRST *LP STATEMENT, THEN 
THE NAME ANQ VALUE WILL RESIDE IN THE CREPi TABLE AFTER 
INITIALIZATION IS COMPLETED. 


STARS RTJ COMMA 

SERR1 JMP* ILDEL 
ENA 8 

STA- SCANSW, I 
CL R A 
RTJ- SCAN, I 
RTJ COMMA 

JMP* SERR1 
LDA- SYMSTR, I 
SAZ SERR2-*-l 
SUB- BLANKS, I 
SAN SOKl-*-l 
SERR2 ENA 2 

JMP* TYPIQ 

SOK 1 LOA- SYMSTR, I 

STA* ENTRY 
LDA- SYMSTR #• 1,1 
STA* ENTRY *1 
LDA- SYMSTR *-2 , I 
ST A* ENTRY *2 
RTJ* LOCENT 
8ZS ENTRY t 3 ) 
VALUE ADC 0 
LOCENT NOP 0 

RTJ GETHEX 

RTJ* VALID 
SQZ S0K2- *- 1 
JMP* ILDEL 

S0K2 LDA- SYMSTR,! 

SAN TEST AL - * -1 
LDA- SCNINP, I 
VALU STA* VALUE 
JMP* LDRTAB 


IS DELIMETER COMMA 
NO, TYPE ERROR E, Q. 

SET BIT 3 OF SCAN SWITCH SAYING PICKUP AN 
ASCII FIELD, SAVE THE ASCII CHARACTER CODES 
IN THE SYMSTR BLOCK, AND IF THE FIELD IS 
NUMERIC CONVERT THE NUMBER TO BINARY. 

IS FIELD DELIMETER A COMMA 

NO, TYPE ERROR E, Q 

YES, CHECK FOR NAME AND SAVE IT 

SYMSTR=0 IF A NUMERIC OPERAND WAS PROCESSED 

CHECK TO SEE IF NAME FIELD WAS BLANK 

NOT BLANK 

OUTPUT ERROR 2 - NUMBER APPEARS IN NAME FIELD 
OP NAME FIELD IS BLANK 
NAME OCCURRED SO SAVE IT 


RETURN JUMP TO THE NEXT EXECUTABLE STATEMENT 
SO THE ADDRESS OF THE CODES FOR THIS NAME 
CAN BE PASSED TO THE LOADER 

ADDRESS OF ENTRY NAME IS STORED HERE BY RTJ 
PICKUP HEX FIELD 

WAS DEL IMF TER CARRIAGE RETURN OR BLANK 
■y ES 

NO, OUTPUT ERROR E, Q 
WAS FIELD NUMERIC 
NO 

YES, PICKUP THE VALUE 
AND SAVE IT 

MAKE ENTRY TO LOADER TABLE 


01701438 
01701 439 
01701440 
01701441 
01701442 
01701 443 
01701444 
01701445 
01701446 
01701447 

01701448 

01701449 

017G1450 

01701451 

01701452 

01701453 

01701454 
01701 455 
01701 456 
01701457 
01701458 
0170145 9 
017 0 1 460 
01701 461 
01701462 
01701463 
01701464 
01701465 
0170 1466 
01701467 
01701468 
0170146 9 
01701470 
01701 471 

01701472 
01701473 
01701474 
01701 475 
01701476 
01701477 
017Q1 478 
01701 479 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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1461 

P0518 

OF 48 

TESTAL 

ARS 8 


1462 

P 0 5 19 

0 9 AF 


INA -$5 0 


1463 

P 0 51 A 

0112 


SAN NOT P- 

1 

1464 

P0 51B 

Cl 0 3 


LDA- PROBAS, 

I 

1465 

P051C 

1 8F9 


JHP* VALU 


1466 

P 05 10 

0 9 FC 

NOTP 

INA -3 


1467 

P051E 

0101 


SAZ S0K3-*- 

1 

1468 

P051F 

1 8 EO 


JMP* SERR2 


1469 

PO 520 

C 8 00 

SOK3 

LDA LSSECT 



PQ 521 

0013 


JMP* VALU 


1470 

PO 522 

1 8F3 



1471 

PO 523 

61 OD 

LDRTAB 

STA- ENTPNT, 

I 

1472 

PO 52 4 

C8E8 


LDA* LOCENT 


1473 

PD525 

6 1 0 F 


STA- INPCTR, 

I 

1474 

PO 526 

512 8 


RTJ- TA9SCH, 

I 

1475 

P 0 527 

£1 1C 


LDQ- S Wo , I 


1476 

P 0 52 8 

0171 


SQM NIN-*-l 


1477 

P 0529 

1809 


JMP* CM20EX 


1478 

P052A 

0 A 04 

NIN 

ENA 4 


147 9 

PO 52 B 

9 1 4£ 


SUB- CSNAME, 

I 

148 0 

PQ52C 

0123 


SAP NIN i-*— 

1 

1481 

P052D 

C18B 


LDA- E CREP, I 


1482 

P0 52E 

09 04 


INA 4 


1483 

P052F 

61 8B 


STA- ECREP , I 


1484 

P 0 53 0 

5800 

X NIN1 

RTJ ENTSTR 


PO 531 

7FFF 

X 

JMP CM2 0 


1485 

P0532 

1800 

CM20EX 



P 0 533 

F875 


NUM 0 


148 6 

PO 534 

0000 

LSSECT 



COME HERE IF FIELD 2 IS NOT NUMERIC 
IS THE FIELD P 
NO 

IF FIELD CONTAINED P AS FIRST CHARACTER, THEN 
SFT THE ENTRY POINT TO THE PROGRAM BASE 
IS THE FIELD S 
NO, 

ILLEGAL STATEMENT FORMAT 

YES, PICKUP THE LSB OF CURRENT MASS STORAGE 

SECTOR AS VALUE FOR ENTRY POINT 
VALUE ASSOCIATED WITH ENTRY POINT NAME 

ADDRESS OF ENTRY POINT NAME 

IS THIS NAME ALREADY IN THE LOADER TABLE 

NO, GO DOWN AND PUT IT INTO THE TABLE 
YES, IGNORE THIS *S STATEMENT 

IS THIS AN *M OR -HP LOAD 

NO, STORE ENTRY 

YES, BUMP END OF CREP TABLE 

PUT NEW ENTRY POINT INTO TABLE 
GET NEXT CONTROL STATEMENT 
STARTING COMMAND SEQUENCE SECTOR 


017 0148 D 
01701481 
01701482 
01701 483 
01701484 
01701485 
01701 486 
017G1 487 
0 1701488 

0170 1 489 
01701 490 
0170 1491 
01701492 
01701 493 
01701494 
01701495 
01701496 
01701 497 
01701498 
017Q1499 
01701500 
01701501 
0170150 2 
01701503 

01701504 

01701505 
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P 0 53 5 
P0 536 
PG537 
PO 538 
P 0 53 9 
P053A 


58A9 
015A 
0 8 44 
6150 
18 0 0 
FB74 


P0538 
P053C 
P 0 530 
P053E 
P053F 
P 0 540 
P05P1 


58 A3 
0154 
0 A 0 1 
6150 
1800 
F B 68 
18B2 


PO 542 58 9C 


P G 543 
PO 544 
PC 545 
PO 546 
PO 547 
P 0 548 
PO 549 
PG54A 
PG54B 
PG54C 


0141 
1 8FC 
0 AOO 
6102 
6105 
0 8 46 
5800 
04 05 
18 00 
FB70 


* ************* *********** »♦»»*■»***•»» *»*»***»*¥** 
* 

* PROCESS *U STATEMENT 
•* 

* ** ******¥**************¥*¥** ***** ******** ******* ******* ******* 

STARU RTJ* VALID IS DELIMETER CR OR BLANK 

SQN ILDEL2-*-! 

CLR A YES, SET FOR INITIALIZER TO INTERROGATE 

STA- INMEDtl COMMENT MEDIUM. 

JNP CM44 * U • • TYPE Q, INTERROGATE COMMENT MEDIUM 

* 

* * **.***¥*** ****** ****** *** ******* 

* 

* PROCESS *V STATEMENT 

* 

STARV RTJ* VALID IS DELIMETER CR OP. BLANK 

SQN ILQEL2-*-i 

FNA 1 YES, SET FOR INITIALIZER TO INTERROGATE 

STA- INMED.I INPUT MEDIUM. 

JMP CM2 0 BACKGROUND BUFFER, GET NEXT INPUT 

ILDEL2 JMP* SERR1 TYPE ERROR £, Q 

* 

***¥¥****¥*******************¥¥¥***¥*************************** 

* * 

* PROCESS * D STATEMENT * 

* * 
***** ¥**¥***¥*******¥****¥*¥**¥*¥¥¥¥***¥***¥¥**¥¥*****¥******** 


STARS RTJ-* VALID 
*■ 

SQZ CONT 
JMP* ILDEL2 
CONT ENA 0 

STA- DAT BAS , I 
STA- DAT LIM, I 
CLR A, Q 
R7J I LOAD 

JMP CM65 


IS DELIMITER CARRIAGE RETURN 
OR A BLANK 


ZERO TO RELOCATION 
EASE FOR DATA STORAGE 
HIGHEST AODR, DATA STG+l 

LOAD THE PROGRAM 

GO PROCESS NEXT CONTROL STATEMENT 


01701 50 8 
*******01.701509 
01701510 
01701511 
01701512 
*******01701513 
01701514 
01701515 
01701516 
01701517 
01701518 

0170 1 519 
*******01701520 
01701521 
01701522 
01701 523 
*******01701 524 
01701525 
01701526 
01701527 
01701528 
01701529 

01731530 
01701531 
0170 1 53 2 
01701533 
01701534 
017C1 535 
01701536 
01701537 
01701538 
01701 539 
0170 1 540 
01701 541 
017 01542 
01701543 
01701 544 
01701545 
01701546 

0170154 7 


O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

O 

o 

o 

o 
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153 0 





*-®017Ql 549 

1531 




* 




*01701550 

1532 




* 



PROCESS *G STATEMENT 

*0170 1551 

1533 




* 




*01701552 

153 4 




***** *************** *****************************************-********* 

**01701553 

1536 

P054D 

58 91 


STARG 

RTJ* 

VALID 

CHECK VALID DELIMITER 

01701 555 

153? 

P054E 

0141 



SQZ 

VALOK 


01701 556 

153 8 

P054F 

1 8 FI 



JMP* 

IL3EL2 

ERROR * AND REQUEST WITH Q 

0170 1 557 

1539 

P 0 55 0 

E8 OG 

X 

VALOK 

LDQ 

EMASS 

GET DISK STATUS ADDRESS 

01701558 


P0551 

0 4 DO 

X 





1540 

P0552 

0 2 30 



INP 

ERDISK-* 

TAKE STATUS TO DETERMINE ACTIVE DISK 

01701 559 

1541 

PO 553 

5811 



RTJ* 

WAT 

GET ADDRESS 

01701550 

1542 

P 0 55 4 

5 4 £ 



ALF 

15, ENABLE ADDRESS WRITE — THEN CR 

01701561 


P0555 

41 v2 








P 0 556 

*+C 45 








P 0 5 5 7 

20 41 








PG558 

4444 








P 0559 

5245 








P 3 55 A 

53 53 








PO 55 R 

20 57 








P055C 

5249 








P055D 

5445 








P0 55E 

2020 








P055F 

5 448 








P 0 560 

454E 








P0561 

2 0 43 








P 0 562 

5220 







1543 

P 0 563 

0 D 0 A 



NUM 

$ODO A 

€R,LF 

01701 562 

1544 

PO 564 

0 0 00 


WAT 

NUM 

0 


017 01563 

1545 

PQ565 

0C10 



ENQ 

16 

WRITE 16 WORDS 

01701564 

154 6 

PO 566 

C8FQ 



IDA* 

WAT 

OUTPUT BUFFER ADDRESS 

01701 565 

1547 

PQ 5 67 

58 0 0 

X 


RT J 

TEL OUT 

WRITE MESSAGE 

01701566 


PO 568 

Q 46B 

X 






1543 

P0569 

0842 



CLR 

Q 

READ CR ENTRY 

01701567 

1549 

PO 56 A 

C 139 



LDA- 

IN»ADR, I 


01701 568 

1550 

P0 56B 
PC56C 
P056D 

5800 
0 G CO 
0804 

X 

v 


RTJ 

QCOM 


01701 569 

1551 

A 


SET 

A 

SET FLAG FOR ADDRESS WRITE 

01701 570 

1552 

P0 56F 

5 800 

X 


RT J 

QHASS 

WRITE TAGS 

01701 571 


P056F 

7FFF 

X 






1553 

P0570 

0102 



SAZ 

DKERR 

■t A ) = Q INDICATES ERROR 

01701572 

1554 

P 0 571 

1800 



JMP 

CM20 

NO ERROR — PRINT Q 

01701573 


PO 572 

FB36 






01701 574 

1555 

P0 573 

5808 


DKERR- 

RT J* 

OSKER 

PRINT ERROR 

1556 

PO 574 

4449 



ALF 

06, DISK ERROR 


01701 575 


PO 575 

534B 








P0576 

2045 








PO 57 7 

5252 








P0573 

4F52 








PG579 

20 20 






01701576 

1557 

P057A 

ODCA 



NUM 

$0D0 A 



G ON TRI- 


PAGE 


47 


DATE': 08/19/99 


1558 

P057B 

0 0 00 


DSKER 

NUM 

0 




1559 

P057C 

0 CO 7 



END 

7 

PRINT 

ERROR 

MESSAGE 

1560 

P057D 

C8FD 



LDA* 

DSKER 




1561 

P057E 

58 00 

X 


RTJ 

TELOUT 





P057F 

0568 

X 







1562 

P0580 

I860 



JMP 

CM2 0 

GO TO 

PRINT 

Q 


P0581 

FB27 








1563 

P0 582 

OBOO 


ERDISK 

NOP 

0 

REJECT PATH 


1564 

PO 583 

5808 



RTJ* 

DISKER 




1565 

P 0 5 8 4 

4449 



ALF 

6,0 1 SK REJECT 





P0585 

534B 









PO 586 

2052 









P 0 587 

454A 









PO 588 

4543 









PO 5 89 

5420 








1566 

P058A 

OD 0 A 



NUM 

SOD 0 A 




1567 

P0588 

flOOO 


DICKER 

NUM 

0 




1568 

P 0 5 80 

0 C 0 7 



ENQ 

7 

PRINT 

REJECT 

MESSAGE 

1569 

P 0 580 

C8FD 



LD A* 

DICKER 




1570 

PQ58F 

53 00 

X 


RTJ 

TELOUT 





PO 58F 

0 5 7F 

X 







1571 

PO 590 

1800 



JMP 

CM2 0 

GO TO 

PRINT 

Q 


PO 591 

F B 1 7 









01701 577 
01701578 
01701579 
0170 1 58 G 

01701581 

0170158 2 
01701 583 
01701584 


01701585 
01701 586 
01701587 
017 01588 
01701589 

01701590 


CONTRL 


PAGE 43 


OATES 08/19/99 


1573 




1574 




1575 




1576 




1577 




1579 

PO 

592 

5800 


PO 

593 

FB8F 

1580 

PO 

594 

18 AC 

1581 

PO 

595 

5800 


PO 

596 

FB 86 

1582 

P 0597 

0113 

1583 

PO 

598 

9102 

1584 

PQ 

599 

1800 


PO 

59 A 

FEEE 

1585 

P059B 

Cl 49 

1586 

PO 

59C 

6860 


PO 

59D 

0121 

1587 

PQ 

59E 

5800 


PO 

59F 

FF3F 

1588 

P05A0 

0141 

1589 

PO 

5A1 

18 9F 

1590 

PO 

5A2 

0804 

1591 

PG5A3 

6826 

1592 

PO 

5A4 

COFF 

1593 

PO 

5A5 

683F 

1594 

PO 

5A6 

581 A 

1595 

P05A7 

0 8 04 

1596 

PO 

5A3 

683B 

1597 

PO 

5A9 

5821 

1598 

PG 

5A A 

5838 

1599 

PO 

5AB 

C 0 0 0 


PO 

SAC 

5555 

1600 

PO 

5AD 

6 81 C 

1601 

PO 

5AE 

0 8 44 

1602 

P05AF 

6 834 

15 0 3 

PO 

5B0 

5810 

1604 

PO 

5B1 

5819 

1605 

PO 

5B2 

5833 

1606 

PQ 

5B3 

COOO 


PO 

5B4 

A A A A 

160 7 

PO 

5B5 

6814 

15 Q 3 

PO 

58 6 

5 8 0 A 

1509 

PO 

507 

5813 

1610 

PO 

5B8 

5820 

1611 

PO 

5 69 

0 844 

1612 

PO 

5 BA 

68 0 F 

1613 

P05BB 

5805 

1614 

PO 

5BG 

5 8 OE 

1615 

PO 

5BD 

5828 

1616 

PO 

5BE 

1800 


PO 

5BF 

FAE9 


***.3l***v* »*********************************■**-***********■**»»*****■***** *»0 170 159 2 

* *01701 593 

* PROCESS *H STATEMENT *01701594 

* *0170 1 595 


STARH 

RTJ 

COMMA 


JMF 1 * 

ILDEL2 


RTJ 

GETHEX 


LDA- 

SYMSTR, 


SAZ 

OKNH 


JMP 

N0KN8 

OKNH 

LDA- 

SCNINP, 


STA 

TSECT 


RTJ 

VALID 


SQZ 

TERMH 


JMP* 

ILDEL2 

TERMH 

SET 

A 


STA* 

PTN 


L OA- 

I 


ST A* 

PTNI 


RTJ* 

SET PIN 


SET 

A 


STA* 

PTNI 


RTJ* 

WPTN 


RTJ* 

RPf N 


LDA 

= N$ 5555 


STA* 

PTN 


CL R 

A 


STA* 

PTNI 


RTJ* 

SETPTN 


RTJ* 

WPTN 


RTJ* 

RPf N 


LDA 

=N$ AA A A 


STA* 

PTN 


RTJ* 

SET PTN 


RTJ* 

WPTN 


RTJ* 

RPTN 


CL R 

A 


STA* 

PTN 


RTJ* 

SET PTN 


RTJ* 

WPTN 


RTJ* 

RPTN 


JMP 

CM2 0 


IS DELIMITER A COMMA 

NO, ERROR E 
GET STOP SECTOR 

CHECK NUMERIC FIELD 

NO, ERROR 8 

SAVE STOP SECTOR NUMBER 
CHECK FOR CR OR BLANK 
NO, ERROR E 

FIRST PATTERN - ALL ONES 
SAVE TABLE POINTER 


PATTERN $5555 


PATTERN $A A A A 


PATTERN 


0 


0170 

1598 

0170 

1599 

0170 

1600 

0170 

1601 

0170 

1602 

01.70 

160 3 

017G 

1604 

0170 

1605 

0170 

1606 

0170 

1607 

0170 

1608 

017 0 

1609 

0170 

1610 

0170 

1611 

0170 

1612 

0170 

1613 

0170 

1614 

0170 

1615 

0170 

1616 

0170 

1617 

0170 

1618 

0170 

1619 

0170 

1620 

0170 

1621 

017G 

1 62 2 

0170 

162 3 

0 17G 

1624 

0170 

162 5 

01701626 

01701627 

0170 

162 8 

017(3 

1629 

0170 

163 0 

017 0 

1631 

0170 

163 2 

0170 

1633 

0170 

1634 

0170 

1635 


COMPLETED 


CONTRL 
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DATE: 08/19/99 



o 

o 

o 

o 


1618 PG5CQ COOO 

1619 P05C1 QC5F 
152 0 P05C2 C 8 07 
1521 PQ5C3 6 A 0 0 

P0 5C4 0 0 9A 

1622 P05C5 0 DFE 

1623 P05C6 0171 

1624 PG5C7 1 8 FB 

1625 PQ5C8 1CF7 

1626 P05C9 0000 


SET PTN NUM 0 
ENQ 95 
LDA* PTN 

PTNSET STA PJNBUF* Q 

INQ -1 
SQM RTNPTN 
JMP* PTNSET 
RTNPTN JMP* *SETPTN> 
PIN NUM 0 


SET BUFFER TO PATTERN 
GET DATA PATTERN 


o 

o 

o 

o 

o 

o 

o 


16? 8 

P05CA 

0 0 0 0 

WPTN 

NUM 

0 

1629 

PG5CB 

OCOO 


ENQ 

0 

1630 

P05CC 

40 FF 


STQ- 

I 

1631 

P0 5CD 

58 01 

LWPTN 

RT J* 

FWA 

1532 

P05CE 

00 00 

FWA 

NUM 

0 

163 3 

F05CF 

C8FE 


LQA* 

FWA 

1634 

P05D0 

8 0 0 0 


ADD 

= XPTN B 1 


P05D1 

G 0 90 




1635 

P0 502 

0 C9F 


ENQ 

-95 

1636 

P05O3 

5800 

X 

RTJ 

QMASS 


PC 504 

056F 

X 



1637 

P05D5 

0136 


SAM 

GOD V 

1638 

PD5D6 

0814 


TRQ 

A 

1639 

P05O7 

09F8 


INA 

-7 

1640 

P05D8 

0112 


SAN 

BADERR 

1641 

P0509 

C8QA 


LDA* 

PTN 1 

1642 

P05DA 

0131 


SAM 

GOO? 

1643 

PQ SDR 

18 69 

BAD ERR 

JMP* 

PTN ERR 

1644 

PQ5DC 

DOFF 

GOD V 

RAO- 

I 

1645 

P 0 5 DO 

COFF 


LDA- 

I 

1646 



* 



1647 

P05DE 

9800 


SUB 

TSECT 


P05DF 

QODF 




1648 

P05EO 

0101 


SAZ 

WDONE 

1649 

P05E1 

1 8 ED 


JMP* 

LWPTN 

1650 

P05E2 

1CE7 

WOONE 

JMP* 

{ WPTN) 

1551 

PG5E3 

0 0 00 

PTN 1 

NUM 

0 

1652 

P0 5E4 

0 0 00 

PTN I 

NUM 

0 

1653 







WRITE DATA 

SET ZERO SECTOR ADDRESS 
SECTOR ADDRESS 


COMPUTE BUFFER ADDRESS 


WRITE SECTOR 
SKIP* NO ERROR 


SKIP NO COMPARE ERROR 

FIRST WRITE— COMPARE OK 
PRINT ERROR 
CHECK LIMITS 

1 CARD DELETED 


SKIP IF ALL WRITTEN 
DO MORE 


1 CARO DELETED 


O 

O 

O 


1655 P05E5 0000 RPTN NUM 0 

1656 P05E6 QC0D ENQ 0 


READ DATA 

SET ZERO SECTOR ADDRESS 


017 01637 
017 01638 
01701639 
01701640 

01701641 
01701642 
017 01643 
01701644 
01701645 


01701647 
01701 648 
017 01649 
01701650 
01701651 
01701652 
01701653 

01701654 

01701655 

01701656 
01701657 
01701 658 
0170165 9 
01701660 
01701661 
01701662 
01701663 
01701664 
01701 665 
01701 666 

017D1667 

01701668 

01701669 

01701670 

01701671 

01701672 


01701 674 
01701 675 


O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

C) 


o 


o 



165 7 

P05E7 

P05.E8 

o 

165 8 

P05E9 

1659 

P05EA 


1660 

P0 5EB 


1661 

P0 5EC 

o 

1662 

P05ED 
P0 5EE 


1663 

P0 5EF 

o 

1664 

P05F0 

P05F1 

1665 

P05F2 


1666 

P05F3 


1667 

P0 5F4 

o 

1668 

P05F5 

1669 

P05F6 


1670 

P05F7 


1671 

P05F8 

o 

1672 

P0 5F9 

1673 

P05FA 


1674 

P05FB 


1675 

P05FC 

o 

1676 

P05FD 

1677 

P05FE 

P05FF 


o 

1678 

1679 

P 06 60 

1680 

P 06 01 


168 1 

P0 602 


1682 

P 0 6 0 3 

o 

1683 

P0 60 4 

1684 

P0 605 


1685 

P0 60 6 


1686 

P06G7 

o 

1687 

P06C8 

1688 

P 0 6 09 


1689 

P 0 60 A 


1690 

P060 R 

o 

1691 

P06DC 

1592 

P060D 


1693 

P060E 


1694 

P060F 

o 

169 5 

P061D 

1596 

P 0 611 


16 9 7 

P0 612 


1698 

P 0 61 3 

o 

1699 

P0614 

1700 

P 0 6 1 5 


1701 

P0616 


1702 

P 0 61 7 

o 

1703 

P0618 
PG619 
P 0 6 1 A 
P061B 


o 



o 




CONTRL 


4800 



STQ 

0 0 D 7 




4 0 F F 


LRPTN 

STQ- 

5801 



RTJ* 

0 000 


RFHA 

NUM 

G8FE 



IDA* 

80 00 



ADD 

0 0 73 




QC 60 



ENQ 

58 0 0 

X 


RTJ 

0 5D4 

X 



0131 



SAM 

1851 



JMP* 

0C5F 


RGODV 

ENQ 

Cft 69 


RGODY A 

LDA* 

B 8 02 



FOR'* 

0114 



SAN 

0 DFE 



INQ 

0171 



SQM 

1 8 F A 



JMP* 

18 3 F 


SECNX r 

JMP* 

C8E7 


NOMTGH 

LD A* 

6 0 FF 



STA- 

C8 00 



LDA 

0 0 CO 






» 


51 5 A 



RTJ- 

Cl 33 



LOA- 

68 23 



STA* 

C134 



10A- 

6822 



ST A* 

0814 



TRQ 

515A 



R'TJ- 

Cl 33 



LDA- 

6822 



ST A* 

C 1 34 



LDA- 

6821 



STA* 

CA 53 



LDA* 

51 5A 



RF J- 

Cl 33 



LOA- 

6820 



STA* 

Cl 34 



LBA- 

6 8 1 F 



ST A* 

C 8 B7 



LDA* 

51 5A 



R TO- 

Cl 33 



LD A - 

6 8 1 E 



STA* 

C134 



LDA- 

68 ID 



STA* 

58 IE 



RTJ* 

4449 


C0M8JF 

ALF 

534 B 




2 0 43 




4F4D 
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CURSCT 


01701 676 

I 


01701677 

RFW A 


01701 678 

0 

READ DATA SUBROUTINE 

01701 679 

RFWA 


01701680 

= XPTNBU F-RFWA 

COMPUTE BUFFER ADDRESS 

01701681 

96 


01701682 

QMASS 

READ SECTOR OF DATA 

01701 683 

RGODY 


017 01684 

PTNERR 

DISK ERROR - PRINT MESSAGE AND 

EXIT 0170168 5 

95 

LOOP TO CHECK PATTERN 

01701 686 

PTNBUFtQ 


01701687 

PTN 


01701 688 

NOMTCH 

ZERO INDICATES GOOD MATCH 

01701689 

-1 

SEE IF SECTOR DONE 

01701690 

SECNX'T 


01701691 

RGODY A 

MORE THIS SECTOR 

01701692 

BMP SO T 

GO TO NEXT SECTOR 

01701693 

PFNI 

FAILED SECTOR, RESTORE TABLE POINTER 01701694 

x 


01701695 

CURSCT 


01701696 


1 CARD REMOVED FOR PSR 90*2673 

01701697 

CON VR’T , I 

CONVERT TO ASCII 

0170 1698 

BINASC, I 

STORE IN MESSAGE BUFFER 

01701 699 

C0MBUF+-13 


01701700 

SINASC^l , I 


01701 70 1 

CQMBUFH4 


01701702 

A 

FAILED WORD 

01701703 

CONVRT, I 


01701704 

8INAS C , I 


0170 1 70 5 

COM BU F* 1 8 


017 G 1706 

BINASCHtl 


0170 170 7 

G0MBUFH9 


01701708 

PTNBUF, Q 

BAD PATTERN READ 

01701709 

CONVRT, I 


0 170 1710 

BIN ASC, I 


01701711 

COM BU Fi- 2 2 


01701712 

8INASC*- 1 » 1 


01701713 

COM BU F*- 23 


01701714 

PTN 

EXPECTED PATTERN 

01701715 

CON VRT, I 


01701716 

3INASC, I 


01701 717 

C0MBUF426 


01701718 

BINASCH ,1 


0170 1719 

COMBUFf- 27 


01701720 

COMMSG 

PRINT MESSAGE 

01701 721 

28, DISK COMPARE ERROR SECT XXXX WORD XXXX 

IS XXXX SB XXXX 01701722 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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P061C 

5941 








P061D 

5245 








P061E 

2 0 45 








P061F 

5252 








P062Q 

4F52 








P 0 62 1 

2020 






\ r\ 


P0622 

20 53 






D 


P0623 

4543 








P0 624 

5420 








P0625 

5858 






O 


P0626 

5858 








P0627 

20 57 








P0628 

4F52 








PO 629 

4420 






r\ 


P062A 

5858 






w 


P 0628 

5858 








P062C 

20 49 








P0 620 

5320 








P0 62E 

5858 








P062F 

5858 








P0630 

20 53 








P0631 

4220 








P 0 632 

5858 






v/ 


P0633 

5858 







170 A 

P0634 

0 D 0 A 



NUM $000 A 


01701 723 


1705 

P0635 

0 Q0Q 


COHNS G 

NUN 0 


01701724 

r~\ 

170 6 

P0636 

€8 FE 



LDA* COMMSG 


0 170 1 72 5 


1707 

P0 637 

0D ID 



ENQ 29 


01701726 


170 8 

P 0 63 8 

5800 

X 


RTJ TELOUT 


01701727 



P0 639 

0 5 8F 

X 





r\ 

1709 

P0 63 A 

E 8 0 0 


BHPSGT 

LDQ CURS CT 

LOOK AT NEXT SECTOR-ONE ERROR PER SECT 

01701728 

LJ 


P0 63B 

0 0 84 







1710 

P0 63C 

DD01 



INQ 1 

HAVE ALL SECTORS BEEN READ 

01701729 


1711 

P0 63 D 

48 0 0 



ST Q CURSCT 


01701730 



P0 63E 

'00 81 






1 O 

1712 

P0 63F 

0 814 



IRQ A 


01701731 


1713 




* 


1 CARD DELETED 

01701732 


1714 

P D 640 

9 8 7E 



SUB* TSECT 


01701733 


1 71 5 

PC 641 

0 101 



SAZ RDONE 

ZERO INDICATES ALL DONE 

01701 73 4 

o 

1716 

P0642 

1 8A6 



JMP* LRPTN 

GO TO NEXT SECTOR 

□ 17 01 73 5 


1717 

P0 6 43 

1CA1 


RDONE 

JMP* t RP IN ) 

RETURN - ALL READS DONE 

01701 736 

o 










1719 

P0 644 

C89F 


PFNE'RR 

LDA* PIN I 

DISK FAILURE ERROR; 

01701738 


1720 

P0 645 

6 0 FF 



STA- I 


0170 1739 

u 

1721 

P0646 

0 814 



IRQ A 


017Q174Q 


1722 

P0 647 

515A 



RTJ- CON VRT * I 

CONVERT ERROR TO ASCII 

017Q1741 


172 3 

PO 648 

C 1 33 



LDA- BINASC, I 

STORE IN MESSAGE 

01701742 

o 

1724 

P0 649 

680B 



ST A * DFAIL*7 


01701 743 


1725 

PO 64A 

Cl 34 



LDA- 3INASCH,! 


01701744 


17? 6 

P0 648 

68 0 A 



STA* DFAIL+8 


01701 745 


o 


o 


C'i 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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OATE? o 8/ 1 9/9 9 


1727 

PO 64C 

58 0 B 



RTJ* 

FALMSG PRINT MESSAGE 

1728 

P064D 

4«+ 49 


□ FAIL 

ALF 

09, DISK FAILURE XXXX 


P064E 

534B 






P064F 

2046 






PO 650 

4149 






P D 651 

4055 






PO 652 

5245 






P 0653 

2020 






PO 654 

5858 






PO 655 

5853 





172 9 

P0656 

ODQA 



NUM 

$09 OA 

1730 

PO 657 

00 00 


FALMSG 

NUM 

0 

1731 

PO 658 

C8FE 



LQA* 

FALMSG 

1732 

PO 659 

OCOA 



ENQ 

10 

1733 

PO 65 A 

5800 

X 


RTJ 

TELOUT 

1734 

PD65B 

P065C 

0639 

1800 

X 


JMP 

CM20 FATAL ERROR, EXIT TO GET NEXT STATEMEN 


P065D 

F A 48 





1735 

P065E 

00 60 


PiTNBUF 

BZS 

PTNBUF I 9 6') 

1736 

P06BE 

00 0 0 


TSECir 

NUM 

0 

1737 

PO 66F 

0 0 00 


CURSCT 

NUM 

0 


01701746 
017G1 747 


0170 

0170 

0170 

0170 

0170 

0170 

0 17Q 
0170 
0170 


1743 
1 749 
175 0 

1751 

1752 

1753 


1754 

1755 

1756 


o 


o 


o 
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ROUTINE 



1741 

PC6C0 

5800 

X 

START 

RT J 

WRT OUT 

u 

P06C1 

2382 

X 



M7A 


1742 

PO 6C2 

5800 



RTJ 



P0 6C3 

FBF1 




0 


1743 

P0 6C4 

0 A0 0 



ENA 


1744 

P06C5 

614E 



STA- 

CSNAME, 


1745 

PQ6C6 

6177 



STA- 

C0RADR, 


1746 

P06C7 

Cl 95 



LO A- 

FLGBS1, 

o 

17*+ 7 

P06C8 

61 91 



STA- 

FLGBSE, 

1748 

P06C9 

C 1 66 



LDA- 

SYSPGE, 


1749 

PQ6CA 

6182 



STA- 

N0PAGE, 


1750 

P06CB 

C8 0 0 

X 


LDA 

LENSDT 



P06CC 

0184 

X 




U 

175 1 

P06CD 

0864 



TC A 

A 


1752 

P0 6CE 

6863 



STA* 

PCOUNT 


1753 

P06CF 

E 1 91 



IDQ- 

FLGBSE, 


1754 

P 060 0 

0 A 01 


TO 

ENA 

1 

o 

1755 

P06D1 

6203 



STA- 

MODIFY, 


1756 

P06D2 

085F 



RAO* 

PCOUNT 


1757 

P0 6D3 

C8 5E 



LD A* 

PCOUNT 


175 8 

P06D4 

0102 



SAZ 

T QA - 1 

u 

1759 

PB 6D5 

0 D03 



INQ 

3 


1750 

P06D6 

18F9 



JMP* 

TO 


1761 

P06D7 

C8 0 0 


TOA 

LDA 

LSSECT 

o 


P06D8 

FE5B 





1762 

P 0 609 

68 5 A 



STA* 

TMPSEC 


1763 

PQ6DA 

0 A 0 5 



ENA 

5 


1764 

P0 6DR 

6 8 0 0 



STA 

LSSECT 

o 


P06DC 

F E 57 




LENSDT 

176 5 

P0 6DD 

C 80 0 

X 


LDA 



P0 60E 

0 6CC 

X 



FLGLGN, 


1766 

P 06DF 

2132 



MU I- 


1767 

P06EO 

8191 



ADD- 

FLGBSE, 

u 

1768 

P06E1 

684F 



STA* 

BLDADD 


176 9 

P0 6F2 

C 8 0 0 

X 


LDA 

.LENSDT 



P 0 6F3 

06DE 

X 



N0PAGE, 


177 0 

P0 6E4 

91 82 



SUB- 


1771 

PD6E5 

6 84C 



ST A* 

PCOUNT 


1772 

P0 6E6 

C8Q0 

X 


LDA 

LENSDT 



P0 6E7 

0 6E3 

X 





1773 

P06E8 

217A 



MU I— 

PAGE, I 

u 

1774 

P06E9 

6849 



STA* 

PAGADD 


177 5 

P06EA 

E846 


T 1 

LDQ* 

BLDADD 


1776 

P06EB 

C201 



LD A - 

PGENUM, 


1777 

P06EC 

5800 

X 


RTJ 

F NO SEC 

D 


P06ED 

7FFF 

X 



PAGADD 


1778 

P06EE 

C8 44 



LDA* 


T 0 


DATES 0 d/19/99 


’PROCESS * T 


WRITE OUT THE RESULT OF THE LAST *M OR *MP 
UPDATE LSSECT AND PAGES 

CLEAR CONTROL STATEMENT INDICATOR 

RFSET THE START OF THE PAGING AREA TO ZERO 

RESET THE BASE OF THE FLAG TABLE TO 

THE FLAGS FOR SYSTEM PAGES 

REBUILD THOSE PAGES WRITTEN OUT TO 

MAKE ROOM FOR *M AND *MP LOADS 

SETUP COUNTER EQUAL TO THE COMPLINE NT 6 6 *1455 

OF THE NUMBER OF PAGES CLENSDTT 

PICKUP THE START OF THE FLAG TABLE 

SET THE MODIFIED FLAG FOR THIS PAGE 
INCREMENT THE PAGE COUNTER 

HAS THE FLAG BEEN SET FOR ALL LENSDT PAGES 
YES 

NO, INCREMENT POINTER TO THE NEXT SET OF FLAGS 
LOOP BACK TO SET NEXT FLAG 
TEMPORARILY SAVE LSSECT 


RESTORE LSSECT SO IT WILL POINT TO 
THE START OF CORE IMAGE 

NUMBER OF CORE RESIDENT PAGES 


01701 758 


01701760 

01701761 

0 17 0 1 76 2 
01701763 
0170 1 764 
01701765 
01701766 
01701757 
01701768 
01701769 

01701770 
01701771 
01701772 
0 1701 773 
01701 774 
01701775 
0 170 1 77 6 
01701 777 
01701776 
01701779 
0170178,0 

01701781 

01701782 

01701783 


66*1455 0170 1784 


MULTIPLY BY THE NUMBER OF FLAGS/PAGE AND 01701785 
ADD ON THE BASE OF THE FLAG TABLE TO 01701786 
FIND THE START OF THE PAGES TO REBUILD 01701787 
NUMBER OF CORE RESIDENT PAGES 66*1A55 01701,788 

COMPUTE A COUNTER FOR THE PAGES TO BE 01701789 
READ IN FROM MASS STORAGE , ^ 01701790 
COMPUTE ADDRESS OF THE PAGE TO - 66*1455 01701791 

BE READ IN 017Q1792 

01701793 

PICKUP THE BASE FLAG ADDRESS FOR REBUILD 01701794 
READ THE PAGE BACK INTO CORE 01701795 
CONVERT PAGE NUMBER TO SECTOR ADDRESS 01701796 

PICKUP ADDRESS TO READ INTO 01701797 


0 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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n 

^,.- 4 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1779 P06EF 5800 X 
P06F0 7 FFF X 

1780 P06F1 E 8 00 X 
P06F2 0467 X 

1781 P06F3 40 FF 

1782 P06F4 0111 
1733 P06F5 1824 

1784 PG6F6 D83B 

1785 P06F7 C 8 3 A 

1786 P06F8 0107 
178 7 P0 6F9 F 8 3 7 

1788 P06FA 0003 

1789 P06FB 4835 

1790 P06FG CS 36 

1791 P06FD 817A 

1792 P06FE 68.34 

1793 P06FF 1 8 FA 

1794 PQ700 0800 
P0701 FB9F 

1795 P0702 61 76 

1796 P 0 70 3 C 80 0 
P0704 FB 9'E 

1797 P 0 7 0 5 6107 

1798 P0706 5800 
P 0 70 7 FD 2 8 

1799 P07G8 5804 
18 0 0 P 07 0 9 5354 

P070A 4D53 
P070B 5634 

1801 P070C 0800 

1802 P070D C8F'E 
180.3 P07GE 61 OF 
18 G 4 P070F 5128 
180 5 P071Q El 1C 

1806 P0711 0177 

1807 P0712 5800 X 
P 0 7 1 3 0030 X 

1808 PQ714 F8SG X 
P0 715 S 6 F 2 X 

1809 P 0 71 6 4 0 FF 

1810 P0717 0101 

1811 P0718 1604 

1812 P0719 0 A 1 6 

1813 P071A 1800 
P071B F05B 

1814 P071C C1Q1 

1815 P 07 ID 0C10 

1816 P071E 66E9 

1817 P071F 0C0A 

1818 P 07 20 € 6 F: 9 

1819 P0721 0151 

1820 PG 722 1 8 2 B 

1821 P0 723 C 8 0 0 
P0 724 FB3A 


RTJ MDRIV 

LDQ ISA V 

STQ- I 
SAN T2-*-l 

IMP» T?1 

T2 RAO* 1 PCOUNT 

LDA* PCOUNT 
SA7 T2A-*-i 
LDQ* BLQAOD 
INQ 3 
ST Q* BLOADD 
LOA* PAG AOO 
ADD- PAGE, I 
STA* PAGADD 
JMP* T 1 

T2A LDA STRTEX 

STA- EXTSTR, I 
LDA ENDEXT 

STA- EXTCTR.il 
RTJ LCREP 

RTJ* 1 T20 
ALF 3 ,STMSV4 


NOP 
LDA'* 
STA- 
RT J- 
LDQ- 
-SQN 
RTJ 


3 

T 20 

INPCTR, I 
TA9SCH, I 
SW6 1 1 
T21-*-l 
12 

ISA V 


LD A- 

ENQ 

STA- 

ENQ 

LDQ- 

SQN 

JMP* 

LOA 


T21-*-l 

T3 

$16 

QTYPE 

COMBAS, I 
16- 

1$&9» ,0. 
ID 

f$E9 J i Q 
T3A-*-l 
T10 
MSIZV4 


T3A 


DATES 08/19/99 


READ THE PAGE INTO CORE 


01701798 


01701 799 


RESTORE THE I-REG ISTER 
SKIP IF NO ERROR 

IRRECOVERABLE MASS STORAGE ERROR 

INCREMENT THE PAGE COUNTER 

HAVE ALL PAGES BEEN READ BACK IN 

YES, GO ON TO LINK STAGE 

UPDATE THE POINTER TO THE FLAGS FOR THE 

NEXT PAGE TO REBUILD 

INCREMENT THE ADDRESS COUNTER TO THE 
CORE ADDRESS FOR THE NEXT PAGE 

GO TO GET NEXT PAGE 

RESTORE THE EXTERNAL POINTER TO THE START 


0170 130 0 
0170 1801 
01701802 
01701803 
01701804 
01701805 
0 170 1806 
0170 1807 
0170 1808 
0 170 1 80 9 
01701810 
01701811 
01701812 
01701813 


OF THE SYSTEM EXTERNAL TABLE 

RESTORE THE EXTERNAL POINTER TO THE END 


O 170 1 81 4 
01701815 


O 

o 

o 

o 

o 

o 

o 


OF THE SYSTEM EXTERNAL TABLE 
SETUP POINTERS FOR A LINK TO CREP 


01701816 

01701817 


01701818 

01701819 


FIND THE ENTRY POINT STMSV4 

SKIP IF ST MS V 4 NOT DEFINED 
WRITE OUT THE AUTOLOAD SECTOR 


01701820 

01701821 

01701822 

01701823 

01701-824 

0170.1825 


01701826 


o 

o 

o 

o 


017G1827 


RESTORE THE I -REGISTER 
SKIP IF ERROR. 

IRRECOVERABLE MASS STORAGE ERROR 


01701828 
01701 829 
01701830 
01701831 
01701832 


SET START OF SYSTEM COMMON 
INTO THE EXTENDED CORE TABLE. 


PICK UP UNPROTECTED FLAG FROM WORE 
10 OF EXTENDED CORE TABLE 
SKIP IF UNPROTECTED IN PARTI 
GO TO HANDLE UNPROTECTED IN PART 0 


01701333 
01701834 
01701835 
01701836 
01701837 
01701 83 8 
01701839 
01701340 


O 

O 

O 

o 


O 


o 


CONTRL 
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DATE: 08/19/99 


1822 

PQ725 

0 102 


SAZ 

T5-*-l 

1823 

PO 726 

6D F6 

T 4 

STA- 

SF6 

1324 

PO 727 

1804 


JMP* 

T 6 

182 5 

P 07 2 8 

5800 

T5 

RTJ 

LPUA 


PO 729 

F R 0 8 




182 o 

PO 72 A 

1 8FB 


JMP* 

T 4 

1827 

PO 72 B 

C3 0 0 

Tb 

LOA 

LPFNDC 


P 0 720 

3 13 0 




1328 

PQ72D 

Cl G6 


SAZ 

T 8 - * - 1 

1829 

PO 7? F 

6 0 F 7 

17 

STA- 

'i> F 7 

18 3 0 

PQ72F 

1 8 2E 


JHP* 

Til 

1331 

P 0 73 J 

0 0 3 0 

OLD ADD 

NUH 

0 

15 3 2 

P 0 7 3 1 

QOCO 

PC 0 UN T ■ 

NUN 

0 

1 83 3 

o 0 7 3 2 

u 0 0 0 

PA GAO D 

NUN 

3 

18 3 - 

^0 733 

0 0 0 0 

T itPSFC 

HUN 

0 

1 ° 3 c 

v 0 ~3 * 

C 3 0 0 

T 3 

LOA 

LSTLOC 


P073 5 

F B 28 




i 8 3 r 

PO 73 6 

0 1 0 1 


S A 7 

T 8 A - * ~ 1 

183 7 

P £3 7 3 7 

1 8 F 6 


J M P * 

T7 

1 8 3 8 

P 0 7 3 8 

5 8 C 0 

T8A 

D T J 

LCRFP 


PO 739 

FCF6 




18 3 9 

P 0 7 3 A 

5 8 0 4 


RTJ* 

T8B 

13 4 0 

FQ7 3B 

4C53 


ALF 

3, LSTLOC 


P 0 7 3 C 

5 * hC 





P 0 7 3 D 

4F43 





1841 

P 0 7 ,3 c 

0 9 0 0 

TB B 

NOP 

0 

1342 

P 0 7 3 F 

C8F E 


L D A * 

t 8 e 

1843 

P 07 4 0 

6 1 0 F 


STA- 

INPCTR, I 

184 4 

P 0 7 41 

5128 


RTJ- 

TA8SCH, I 

1845 

PQ 742 

El 1C 


LOO- 

SW6, 1 

18 4 6 

P0743 

01 61 


SQP 

T8C-*-i 

184 7 

PO 744 

1806 


JMP* 

T9 

1848 

PO 745 

0 9 FE 

T8C 

INA 

-1 

1849 

PO 746 

0 822 


TRA 

Q 

185 0 

P07 47 

C 2 0 1 


LD A - 

i,Q 

1851 

P 0 74 8 

0 9 FE 


INA 

-1 

1852 

PO 749 

18F4 


JMP* 

T7 

1853 

P074A 

C800 

T9 

LOA 

END 0 V 4 


P074B 

F A 88 



T7 

1854 

P074C 

1 8F1 


JMP* 

1855 

PG74D 

Cl Cl 

T 1 0 

LDA- 

COM BA S , I 

185 6 

P0 74F 

0112 


SAN 

2 

1857 

P074F 

C8C0 


LD A 

COMMO 


PG75G 

Q1GA 



JF o 

1858 

P 0 751 

60F6 


STA- 

18 59 

PO ?52 

9 8 0 0 


RT J 

LCRFP 


o n 7 c -< 

Fcnc 




18 6 0 

P 9 7 5 4 

5 8 04 


PTJ* 

TAG 0 0 1 

1861 

P 0 7 9' 5 

*152 


ALF 

3, ARE AC 


P Q 7 6 b 

4 5*1 





PD757 


C 


1862 P 0 75 8 OOCu TAG 00 1 A HO 0 
1857 PQ 759 0 8 FE IDA* TAG 0 01 


SKIP IF MSIZV4 HAS NOT BEEN USED BY SI 
SET F 6 TO HSIZV4 (END OF PARTI) 

GO TO GET MSIZV4 


01701 841 
0170 1842 
01701843 
01701 844 


WERE THERE ANY *L P LGADS 


01701845 
0 17 3184b 


NO, USE LSTLOC FOR E N C OF PARTI 

YFS, fJSE -NO OF HP LOADS FOP END OF PARTI 


HAS LSTLOC r-F.cN n -FINER 


0 170 1 8*7 
01701 8*8 
017318^9 
0170 1 85 0 
01701 851 
01701852 
017-31353 
0173 1 354 


NO, SEE IF IT EXISTS 
YFS, USE LSTLOC FOR F7 
POINT TO CREP TO FIND LSTLOC 


017 C 1 85 5 
0 17 G 135 6 
0 17 C 1857 


01701858 
017 Cl 85 9 


k LSTLOC DEFINED 

YES, USE IT AS f HE START OF UNPROTECTED 
NO, USE END GV4 AS THE START OF UNPROTECTED 


PICKUP THE VALUE OF LSTLOC 
DECREMENT TO THE END OF PROTECTED 

USE ENDQV4 FOR F7 


01701360 
01701861 
01701362 
01701853 
01701 864 
01701865 
01701866 
01701867 
01701368 
0170186 9 
01701870 
0170 1871 
01701872 


SET F 6 = START OF SYSTEM COMMON 


01701873 
61*1287 01701874 

61*1287 01701875 

61*1287 01701876 


S r I E N T R Y TABL P T 0 C R ~ P G 


01701377 

01701878 


0170 1 87 9 
01701 881 


01701381 
0170 1 382 


CONTPL PACT 58 OAT?: 0 8 / 19/99 


1 8 6 -r 

PQ 75 A 

6 1 0 F 



STA- 

INPGTR, 

I 




0171 1 833 

1 8 b 5 

P075& 

5128 



RT J- 

TABSCH, 

T 

PTCKUP ADDRESS OF APtAG 



0170 1 83% 

1 « 6 c 

P 0 7 5 C 

60 F7 



STA- 

$F7 





01701335 

18 6 7 

PG 750 

CuFfe 


Til 

Loa- 

$F6 


S r TUP THE TEMPORARY BOUNDS 

OF UNPROTECTED 

0170 1 336 

18 6 8 

P0 75F 

60 EC 



STA- 

TEC 





01701887 

I860 

P0 75 F 

OO F7 



LDA- 

$F7 





0173 1 888 

187 Q 

P076C 

6QFD 



STA- 

$EO 





01701389 

IP 71 

PO 761 

5 8 61 



PTJ* 

T13 





017G 1 89 G 

1872 

PQ 762 

0 0 60 



BZS 

0 HS ( 9 6 ) 





017G 1 391 

18 7,3 

PD7C2 

OBDO 


T13 

NOP 

0 


ADDRESS OF 96 WORD BUFFER 

FOR I/O 

USE 

0 17 G 1 89 2 

1874 

PQ7C3 

C 8 0 0 



LDA 

TMPSEC 





01701893 


P07C4 

FF&E 









01701894 

1875 

PC7C5 

6800 



STA 

LSSECT 


RESTORE NEXT AVAILABLE SECTOR 



P07C6 

FD6D 









01701895 

1876 



* 




3 CARDS DELETED 



1877 

P07C7 

6004 



STA- 

$C4 





01701896 

1878 

P07C8 

0C9F 



ENQ 

-95 





01701897 

1879 

P07C9 

48 OA 



STQ* 

T13 A 





01701898 

188 0 

P07CA 

E8F7 



LDQ*- 

T13 


PICKUP ADDRESS OF 95 WORD 

BUFFER 


01701899 

18 81 

PQ 7C8 

0D5C 



INQ 

94 





01701900 

1882 

P 0 7C0 

0 8 t.4 


T13C 

CLP 

A 





0 170 19 G 1 

188 3 

PQ7CD 

6201 



STA- 

1»Q 


CLEAR A WORD OF THE BUFFER 



01701902 

1 8 8 ^ 

PQ7CF 

0 8 05 



RA 0 

T1 3 A 





0170 1903 

188 5 

PU7CF 

0 OFF 



INQ 

-1 





01701 9 G4 

18 6 6 

PQ PD 0 

0 3 0 3 



L D A “• 

T13A 





01701905 

188 7 

P 070 1 

.110 2 



SAZ 

T13R-*- 

1 




01701906 

18 8 8 

P 0 7 n 2 

1 8F9 



JMP* 

T13C 





0170 190 7 

18 8 9 

PQ703 

0 G G 0 


T13A 

NUM 

0 





0170 19G 8 

1 8 9 C 

P0 7U4 

C 8 ED 


T 1 3 P 

LDA-' 

T13 





017 0 19 C 9 

13 91 

PQ7D5 

F 3 0 0 



L. DO 

LSSECT 





01701910 


PO 706 

FO 5 0 









01701911 

189 2 

PQ7D7 

4 0 F F 



ST Q- 

I 





1393 

P 0 7 n 8 

0C9F 



ENO 

-96 


W C ITE THE FIRST S r -'CTCR OF 

PROGRAM 

LIBRARY 

01701912 

189'- 

PQ7D9 

5 8 0 0 

X 


RT'J 

MORIV 


DIRECTORY FOR LI BLOT 



0 17 G 1913 


PC 7 DA 

0 6 FO 

X 








0170191-r 

IP 9? 

P 0 7 D R 

0112 



SAM 

T13D-*- 

1 

SKIP IF NO ERROR 



1896 

PG 700 

18 0 0 



JM D 

T21 


IRRECOVERABLE MASS STORAGE 

ERROR 


0170 1915 


PQTnn 

FF 30 









0 17 u 1916 

189 7 

P 0 70 E 

C8 no 

X 

TITO 

LDA 

ISA V 






PG70F 

0715 

X 








01701917 

1893 

PQ 7 F 0 

bOFF 



STA- 

I 


RESTORE THE I-REGISTER 



189 9 

P 0 7 F 1 

58 0 5 



PT J* 

T 1 4 A 





0170 1 91.8 

190 P 

p n 7£? 

U if U 1 



ALF 

3 , DA T8A S 




01701919 


P 0 7 F 3 

5 u 42 











P 0 7 F 4 

41 53 









0170 1920 

190 1 

PQ 7f q 

0 Q Q 0 


T 1 4 

NUM 

0 


ADDRESS OF SYSTEM DATA 



19 0 2 

PQ7E6 

OBOO 


T 1 -4 A 

NOP 

0 





01701921 

19 0 3 

PQ7F7 

G 1 0 2 



LDA- 

OAT BAS, 

I 




0170 1922 

1 QQ a 

P0 7F3 

6 3FC 



STA* 

T1 4 





01701923 

19 0 5 

P 0 7 F 9 

6 1 0 D 



STA- 

ENTPNT, 

I 

SAVE THE ADDRESS ASSOCIATE 

D WITH 

THE NAME 

01701924 

19 0 6 

PQ7EA 

G8FB 



LOA * 

T1 4 A 





0171*1925 

190 7 

PG7FR 

61 OF 



STA- 

INPGTR, 

I 




0170192 6 

1 9 G 3 

P0 7FC 

58 0 0 

X 


PT J 

EMTSTR 


SAVE DATFAS IN THE CREP TABLE 


01701927 

PQ7EQ 

0 531 

X 










1909 

1910 

1911 

1912 

1913 

191 4 

1915 

1916 


191 7 

1918 

1919 
19? 0 

1921 

1922 

1923 

192 4 
1 9 ? 5 
1926 
192 7 

19?8 

192 9 

193 0 

1 9 3 1 

12 3 2 
1 9 3 3 

1 q 5 u 

19 3 5 
i q 6 
i q 3 7 
1 9 3 6 
19 3 9 
19 M 

19^1 

1 9 U 7 
1 9 4 3 

194 4 

1945 

19 4 6 
1 9 4 7 
19 4 8 
1949 


COMTRL 
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DATE! 08/19/99 


PQ7EE 

CIO* 


P07FF 

0 C 1 9 


P07F0 

66 F9 


P07F1 

D 8 0 0 


P07F2 

FQ 4 I 


P07F3 

C 8 Q 0 


PG 7F4 

F03F 


PG7F5 

68 05 


P07F6 

58 05 


P0 7F7 

5357 


P 0 7 F 8 

41 50 


P07F9 

41 52 


P07FA 

0 00 0 


P07FB 

OBQO 


PG7FC 

C8FD 


P07FD 

6100 


P07FF 

C8FC 


P Q 7 F F 

61 0 F 


P08 0 0 

5 80 0 

X 

P08Q1 

0 7 ED 

X 

P 0 8 0 2 

Cl BB 


P 0 8 03 

0 9 0 8 


P 0 8 0 4 

6186 


P 0 8 0 5 

58 0 0 

X 

F 0 8 0 6 

0 6 Cl 

X 

P 0 8 0 7 

CO F6 


PC 8 08 

9 0 f 7 


P 0 8 0 9 

5 <8 0 0 


P 0 8 it A 

pcnc 


P 0 8 0 B 

C ft u 0 


P 0 8 0 U 

f n 9 7 


E'OSDD 

0 cos 


P u 8 0 F 

6 6 F 9 


P 0 ft U P 

~ ?, 0 a 


P 0 & 1 0 

r c .1 f 


PC 811 

Cl 7F 


p 0 a 1 2 

” ft 4 9 


P *.] fi 1 :> 

Cl 20 


P 0 17 1 

9 1 E U 


PC83 5 

0 9 01 


P u 8 1 6 

5 8 0 0 


BO 81 7 

F c r F 


P 0 81 8 

5 8 6 ii 


P 0 819 

FC1C 


P 0 8 1 A 

Cl 2C 


P 08 IE 

9 1 f:/P 


PC 81 C 

0 , r i ^ 


P 0 8 .1 D 

0123 


P 0 8 1 E 

oc 0 T 


P 0 8 1 F 

6 f> Fq 


P 0 8 2 0 

1 8 0 F 


°0 «21 

C 8 0 0 


PO 822 

FD1 1 



T12 


T 1 2 A A 


T12 A 


L 0 A - 

DAT LI M, I 

END 

25 

STA- 

( $E 9 ) ,Q 

RAO 

LSSECT 

LDA 

LSSECT 

ST A* 

SWAPSC 

RT 

T 12 

ALF 

3, SWAPAR 

NUM 

0 

NOP 

0 

LDA* 1 

SWAPSC 

STA- 

ENTPNT, I 

LDA* 

T 12 

STA- 

INPCTR, I 

RT J 

ENTSTR 

LDA- 

ECR E p , I 

INA 

8 

STA- 

E CREP, I 

RT J 

WRT OJ T 

L Dft- 

$F6 

sur;- 

$ F 7 

RTJ 

(TXT SEC 

L DA 

LSSFCT 

END 

6 

1 j A - 

USE 9 ) ,0 

f‘T J 

'i_CR FP 

IDA- 

FNTSEO , I 

PTJ* 

MOV OS K 

i DA- 

MAXLN T, I 

SU r - 

EMTBGS, T 

INA 

1 

PT.j 

NX! SEC 

RTJ 

LCPE Pi 

L P A ~ 

MAXE NT, T 

SUP- 

ENT PG S, 1 

C A 7 

J | •? f\ A ~ * - 

SAP 

T i 2 A - * - 1 

FNQ 

7 

S TA - 

( S E 9 ) ,a 

J M P T 

T 12 B 

LDA 

LSSFCT 


SAVF DATLIt'1 IN EXTENDED COMM. REGION 
WORD 25 

INCREMENT SECTOR COUNTER PAST LIBRARY DIRECT 


01701928 
01701929 
01701930 
0 1701931 


01701932 


SAVE STARTING SECTOR OF SWAP AREA 


01701933 

01701934 

01701935 


SAVE THE ADDRESS ASSOCIATED 
STUFF SWAPAR INTO CREP 


01701936 

01701937 

01701938 

WITH THE NAME 01701939 

01701940 

01701941 

01701942 


BUMS' THE END OF THE CREP TABLE TO 
INCLUDE THE TWO NEW ENTRIES 

UPDATE CREP 'WITH MEW ENTRIES 


FIND STARTING SECTOR FOR CREP 


017 01943 
0 17C 1944 
01701 9-5 
017D1946 

01761947 
01701 948 

01701949 


0 1 7 0 1 G 


PUT THE STARTING SECTOR OF THE CREP TABLE 
INTO WORD 6 OF THE EXTENDED CORE TABLE 

r 1 c K U p 1 H *- MOST K i C :: N T LENGTH OF 1 HE t-R t P 


0 17 0 195 1 
0170195? 

0 17 0 1. 9 5 3 


9 n v ; 


‘HE CREP TAP l 


ALLOW FOR TABLE TERM IN A TOP 

COMPUTE SECTOR -QP INF CREP! 

SETUP POINTERS FOP THE PRFP1 

TO T H 9 - (\ C p : P 1 T A \ ■ 

N n 

YFS jHOVE IT UP ON THE DISK 
NO, STORE A ZERO IN WORD 7 01 
FX TEN PhD CORE 1 ABLE AND GO 0* 


DISK 

017 0 1 9 5 5 
01 - 0 1 95 6 
n 1 ? c 1 oc v 


1 3 7 T “ j 2 7 ^ 

TA EL f 

01701958 

T A til, t 

0170 1 949 


01 n j 1 9 6 0 
0 1 7 u 1 9 6 J. 
01701 962 

017 Cl 963 

THF 

01701964 

TO SAT 

01 TO 1 96 6 
0 1 7 0 196 6 

0170 1967 


CONTRL 


PAGE 58 
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195 0 

PO 823 

GC07 



ENQ 

7 

1951 

P 0 8 24 

66E9 



STA- 

( $E 9 ) , Q 

1952 

PQ825 

Cl 7u 



LDA- 

ENTS T 1 , I 

1953 

P 0 8 26 

08 42 



CLR 

Q 

1954 

PO 823 

31 8A 



OVI- 

SECTOR, I 

1955 

P 0 82 8 

81 7F 



ADD- 

■ENTSEC, I 

1956 

P 0 829 

5834 



RTJ* 

MOVQSK 

1957 

PO 82 A 

C12C 



LDA- 

MAXENT, I 

1958 

P082B 

916B 



SUB- 

ENTPGS, I 

1959 

P082C 

0 901 



INA 

1 

1960 

PQ82D 

5800 



RTJ 

NXTSEC 


P082E 

FCB8 





1961 

P082F 

C 8 0 0 


T12B 

LDA 

LSSECT 


PO 83 0 

FD 0 3 





1962 

PO 83 1 

QC14 



ENQ 

20 

1963 

PG83? 

66E9 



STA- 

*$E9) ,Q 

1964 

P 0 833 

6854 



SIA* 

EFSECT 

1965 

P 0 83 4 

0963 



IN A 

99 

1966 

P0835 

ones 



ENQ 

5 

1967 

PO 83b 

6 6E9 



STA- 

($E9) ,Q 

196 8 

PO 8 37 

68 0 0 



STA 

TMPSEC 


PO 838 

FE FA 





1969 

P 0829 

0 9 IE 



INA 

3 0 

1970 

P 0 83 A 

6 0 Cl 



STA- 

SCI 

19 7 1 

P Q 8 3 P 

68 40 



SIA* 

EN0 9S Y 

1 972 

PO 830 

0 A P 5 



F N A 

5 

1973 

P 08 3D 

0 C 0 4 



ENQ 

*4 

197 4 

PD83E 

66 Eg 



STA- 

( $ E 9 ) ,Gt 

1 9 7 5 

PU 83 F 

C8 0 0 



ID A 

LPENDG ' 


P 0 8 4 0 

0 0 1 c 





19 7 6 

P 08 4 1 

0 101 



S A 7 

T 2 2 A - * - 1 

1977 

P 0 8 4 2 

0 A 0 1 



ENA 

1 

19 7 8 

P 0 8 4 3 

ol 57 


T2 9 A 

STA- 

ARIT15, T 

19 7 9 







198 0 

P 0 8*4 

5 R 0 0 



RT,! 

LCRF P 


p : s 4 5 

F R FA 





1 9 8 1 

PO 84 0 

0 A 0 5 



ENA 

5 

1 9 8 2 

PC 84 7 

6 3 0 9 



7 I A 

L S S p 0 T 


P 0 8 u 8 

FCFR 





1 9 8 3 

c 0 3 ^9 

0 A G 1 



ENA 

1 

198 4 

P u 84 A 

5 8 0 0 

X 


PTJ 

ILOAD 


P 0 « 4 'I 

0 6 4 A 

X 




198 5 







19 8 6 

P 0 8 4C 

0 1 43 



SQ7 

T 30 -*- 1 

198 7 

P 0 8 4 D 

0 A 0 2 



C N A 

2 

19 8 8 

PO 8 4f 

5 8 0 0 

X 


R T J 

ILOAD 


P 0 8 4 F 

o e ar 

X 




198 9 

D 0 8 5 G 

Q AG5 


T30 

ENA 

5 

199 0 

P 0 8 5 1 

6 3 0 0 



STA 

LSSECT 


PU 8 5 2 

f n r i 





1991 

PG 853 

5800 

X 


RTJ 

WRTOUT 


PG354 

0 8 06 

X 




199? 

PO 85 5 

C8QQ 



LDA 

TMPSEC 


PO 856 

FE DC 






PUT THE STARTING SECTOR OF THE CREP1 
TABLE IN WORD 7 OF EXTENDED CORE TABLE 
COMPUTE THE STARTING SECTOR OF CREP1 


MOVE THE CREPT TABLE UP ON THE DISK 


01701963 
01701969 
01701970 
01701971 
01701972 
01701973 
0 17 G 1 97 4 
01701975 
01701976 


ALLOW FOR TABLE TERMINATOR 


132*5127* =*¥*■**** 
0170197 7 


01701978 


PUT START OF EF DATA IN WORD 20 
OF EXT * CORE TABLE 
SAVE STARTING SECTOR OF EF DATA 
99 SECTORS OF EF DATA 
PUT STARTING SECTOR OF SAT IN WORD 
OF EXTENDED CORE TABLE 
SAVE STARTING SECTOR OF SAT 


**MSOS 4.1**01701979 
**HSOS 4.1**01701980 
* * M S 0 S 4.1**01701981 
**MS OS 4. 1**01701982 
5 01701983 

0170 1984 
0 1 70 1 98 5 


PUT START OF SCRATCH IN Cl 


**MSOS 4. 


p OP- I HAG" IS SECTOR F 

PUT "THE STARTING SECTOR OF THE CORE IMAGE 
INTO WORD 4 OF THE EXTENDED CORE TABLE 
IS THERE A PARTI CORE RESIDENT 

NO, USE 15 BIT ARITHMETIC FOR PATCHING 
YES, USE 16 BIT ARITHMETIC FOR PATCHING 

1 ©ARM DEL FT FT) 

PTCKU ° C R E 9 POINTERS 


1**01701986 
0170198? 
01701988 
01701989 
017C 1 99 G 
017 C' 1991 
0 1 7 u 1 992 

01701993 
0170 1994 
01701995 

0 1 7 0 1. 9 9 6 
01701997 


S T LJ D L S $ 7 C T TO POINT TO CORE IMAGE 


01701 996 
01701999 


PATCH TO CREP USING 1 ~ PIT ARITHMETIC 
n p n p f c m r - 1 j.' t i- n 

SKIP "if NO UNPATCHED EXTERNALS 

PRINT UMPATCHEO EXTERNALS 


01702003 

01702001 

13 2*51 ? 7 * * * * * # 

0173 2 uC 7 
0 1 7 G 2 0 0 8 
0170 2 0 0 9 


SET LSSECT TO 5 POINT TO CORE IMAGE 017G2Q1G 

01702011 

WRITE CORE IMAGE AND CRFP/CREP1 TABLES 01702012 

01702313 
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o 




o 

1993 

P0 857 

6800 



STA LSSECT 



P 0 85 3 

FCDB 




o 

199 4 

P 0 8 59 

1832 



JMP* BLDSAT 

1995 

P085A 

0 0 00 


COMMO 

NUM 0 


1996 

P085 B 

0 0 0 0 


LENDC 

NUM 0 


1997 

P085C 

0 00 0 


LPENDC 

NUM 0 

o 

199 8 

P085D 

0 BOO 


MOVDS K 

NOP 0 

1999 

P085E 

6825 



STA* MOV El 


200 0 

P085F 

C12C 



LOA- MAX ENT , I 


20 01 

PQ860 

916B 



SUB- ENFPGS* I 

o 

20 0 2 

P 0 8 6 1 

0901 



INA 1 

20 0 3 

P0862 

0 842 



. CL R Q 


2004 

P0863 

31 8A 



0VI- SECTOR, I 


20 0 5 

P0 864 

0141 



SQZ MOV1-*- 1 

o 

2006 

P0865 

0901 



INA 1 

200 7 

P0 866 

0 8 64 


MOV1 

•TCA A 


200 8 

P0867 

6 8 ID 



STA* MOVE 2 


2009 

P0 868 

C800 



LDA LSSECT 

o 

P0 869 

FCCA 




2010 

P 0 8 6 A 

68 IB 



-ST A* M0VE3 


2011 

P086B 

C 8 0 Q 


M0V2 

•LDA T13 



P0 86C 

FF55 




o 

2012 

P0 8 6D 

E 8 1 6 



LDQ* MOtfEl 

2013 

P086E 

4 0 FF 


. 

ST 0- I 


2014 

P086F 

0 C60 



ENQ 96 


2015 

P0 87 0 

580 0 

X 


■ RT J MDRIV 

o 


P0871 

0 7 DA 

X 



2016 

■P087 2 

E 813 



LDQ* MOVES 


2017 

P 0 8 7 3 

40 FF 



STQ- I 


2018 

P 0 87 k 

0C9F 



ENQ -96 

o 

2019 

PC 8 75 

€800 



LDA T13 

P0876 

FF4B 





2020 

P0 87 7 

5800 

X 


RTJ MDRIV 



PQ 87 8 

0 871 

X 



o 

2021 

P.0 879 

08 0 A 



RAO* MOV El 

2022 

P087A 

D8 0 A 



RAO* M0VE2 


2023 

P087B 

D8 0 A 



RAO* MOVES 


2024 

P087C 

C808 



LDA* MQVE2 

o 

202 5 

P087D 

0101 



SAZ M0V3-*-l 

202 6 

P087E 

1 8 EG 



JMP* MOV 2 


2027 

P087F 

C 8 G 0 

X 

M0V3 

LDA ISAV 



P088G 

Q7DF 

X 



o 

2028 

P0881 

60 FF 



STA- I 

2029 

P0 882 

1 CD A 



JMP* IMOVQSK) 


203 0 

P 0 8 8 3 

0 0 0 0 


MOVE1 

NUM 0 


203 1 

P0 884 

0 0 00 


M 0 V E 2 

NUM 0 

o 

2032 

P 0 8 8 5 

0 000 


MOVES 

NUM 0 


RESTORE STARTING SECTOR OF SAT 

GO TO BUILD SAT 

LENGTH OF PART 0 
LENGTH OF PART 1 

SAVE SECTOR TO MOVE FROM 

COMPUTE WORD LENGTH OF TABLE 

ALLOW FOR TABLE TERMINATOR 1 

CONVERT WORD LENGTH TO SECTOR LENGTH 


PICKUP ADDRESS OF 96 WORD BUFFER 

PICKUP SECTOR ADDRESS FOR READ 

SETUP WORD COUNT OF 96 
READ IN SECTOR 

PICKUP SECTOR TO WRITE ON 

COMPLEMENT WORD COUNT TO SIGNAL WRITE 
PICKUP BUFFER ADDRESS 

WRITE OUT THE SECTOR 

INCREMENT SECTOR TO READ 
INCREMENT SECTOR TO WRITE 
INCREMENT COMPLEMENT OF COUNT 
HAVE ALL SECTORS BEEN MOVED 
V £T C ■** fVT T 

NO, LOOP BACK FOR NEXT SECTOR 


RESTORE THE I-REG ISTER 
SECTOR TO BE READ 

COMPLEMENT OF NUMBER OF SECTORS TO MOy£ 
SECTOR TO BE WRITTEN 


01702014 

01702015 
01702016 
01702017 
01702018 
01702019 
01702020 
01702021 
01702022 
32 * 51 27 **** * ** * 
01702023 
01702024 
01702025 
01702026 
0170 2 027 
01702028 
01702029 

01702030 

01702031 

01702032 

01702033 

01702034 

01702035 

01702036 

01702037 

01702038 

01702039 

01702040 

01702041 

01702042 

01702043 

01702044 

01702045 

01702046 

01702047 

0170 2 048 
01702049 
01702050 
01702051 
01702052 


O 

O 

O 

O 

O 

O 

o 

o 


o 


o 

O 

O 

O 


O 


O 


O 

O 

O 

o 


n 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 
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203 4 
203 5 

203 6 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

204 4 

204 5 
2046 
20 4 7 
2043 
20 49 

205 0 

2051 

2052 

2053 
205 4 

205 5 

2056 

2057 
20 58 
2059 

206 0 
2061 
2062 
20 6 3 

2064 

2065 
206 6 

2067 

2068 

2069 

2070 

2071 

2072 

2073 
207 4 
20 7 5 

2076 

2077 
207 8 

207 9 

208 0 
2081 
20 82 


P 08 8 6 0100 


P0887 
PQ 888 

PO 889 
P088A 
P088B 
P0 8 8C 
P0 88D 
P088E 
P088F 
P0890 
P 0891 
PO 8 92 
PO 893 
PO 894 
PQ 895 
PG896 
P 0 8 97 
P0898 
P 0 8 99 
PO 89 A 
PD89B 
PQ89G 
P089D 
P089E 
P089F 
P08AO 

P08A1 
P08A2 
PQ 8 A3 
P08A4 
PO 8A5 
P08A6 
P08A7 
P08A8 
P08A9 


¥ ¥ 
¥ 

* 

#■ 


¥ ¥ ¥ ¥ 


¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ 


¥ ¥ 


¥♦¥¥¥¥ 


THIS ROUTINE HILL WRITE THE SECTOR AVAILABILITY 
TABLE (S AT I • THIS IS A 30-SECTOR TABLE CONTAINING A 
OF ALL THE SECTORS ON THE DISK. ONE BIT REPRESENTS 
SECTOR. IF THE BIT IS ON--THIS SECTOR IS AVAILABLE 
STORAGE OF THE PROGRAM LIBRARY AND DIRECTORY. 

IF THE BIT IS ZERO, THIS SECTOR IS USED, EITHER BY S 
SYSTEM LIBRARY, OR PROGRAM LIBRARY AND DIRECTORY. 

THE TABLE IS UPDATED BY LI8E0T, ANO IS USED TO FIND HOLES 
FOR PROGRAMS IN THE PROGRAM LIBRARY. 


¥¥¥¥¥ 1 
¥¥-¥¥ 5 

PICTURE**** 4 * 
EACH ****** 

FOR ¥¥¥¥■? 

¥¥¥ ¥ 4 

WAP AREA****’ 

¥¥»¥i 


GOOD 
0 0 0 0 

0010 
00 00 
cooo 
0 100 
68F8 
E 1 17 
0 QF5 
0 8 44 
6201 
0 DFE 
0141 
18 PC 
COOO 
0100 
ESEF 

4 OFF 
EO BO 
DA DF 

5 8.0 0 
0 8 78 
0 8 42 
C8E9 
3 8E9 
88E5 

68 E 4 
0 804 
0147 
0 A01 

0 OFF 
0D01 

01 43 
0 FC1 
09 01 


¥ ¥ ¥ ¥ 

; ¥ ¥ 

¥ ¥ ¥ ¥ ¥ ¥ 

¥¥¥¥¥¥¥ ¥¥¥¥¥¥ 

* * 

¥ 

SAT GO 

HUM 

256 

STARTING WORD OF SAT JLATER 

¥ 



1-CARD DELETED 


EFSFCT 

NUM 

0 

LAST SECTOR BUSY IN SAT 


END BS Y 

NUM 

0 


¥ 



1-CARD DELETED 


SIXTEN 

NUM 

16 



ENDSAT 

NUN 

0 


SAT 

8LOSAT 

LDA 

= N3 1 0 0 

SETUP STARTING WORD OF 


ST A* 

SATGO 




LDQ- 

BASE, I 




I NO 

-10 




CL R 

A 


THE 

SATO 

STA- 

1,Q 

CLEAR ALL OF CORE BELOW 

INQ 

-1 

TO ZEROS 



SQZ 

S ATI-*- 1 




JMP* 

SATO 



S ATI 

LDA 

= N$ 10 0 

MOVE EF DATA BLOCK OF ZEROS 


LOQ* 

EFSECT 

POINTS TO EF BLOCK 



S T Q— 

I 




LDQ 

=N-95 0 4 

WRITE 99 SECTORS 



RTJ 

MORIV 




CLR 
LTD A * 

Q 

ENDBSY 

COMPUTE THE BIT ADDRESS 

OF 


DVI* 

ADD* 

SIXTEN 

SATGO 

SECTOR TO SET BUSY 
1-CARD DELETED 


¥ 




STA* 

SATGO 

SAVE LAST BUSY SECTOR 



SET 

A 




SQZ 

SAT 3 




ENA 

1 




INQ 

-16 



SAT? 

INQ 

1 

SET THE BITS FOR THE FIRST 

SQZ 

S AT3-*-l 




¥ ¥ 


BUSY 


¥¥¥¥? 
¥¥¥¥J 
¥ ¥¥¥ -5 
¥ ¥¥¥¥¥? 
¥¥¥¥ = 
SECTOR 3 


**MSOS 4 . 1* ! 


INITIALIZER 


**MSQS 


**MSOS 
**MSQS 
**M SO S 

**MSOS 


THE LAS**MSOS 


AVAILABLE SECTOR 


ALS 

INA 


1 

1 


SKIP IF DONE WITH FIRST WORD 


0170 

2 

054 

0170 

2 

055 

0170 

2 

056 

0170 

2 

057 

0170 

2 

058 

0170 

2 

059 

O 17Q 

2 

060 

0170 

2 

061 

017 0 

2 

062 

0170 

2 

063 

017 0 

2 

064 

0170 

2 

065 

0170 

2 

066 

0170 

2 

067 

0170 

2 

063 

0170 

2 

069 

0170 

2 

070 

0170 

2 

071 

0170 

2 

072 

017 0 

2 

073 

0170 

2 

074 

0170 

2 

075 

0170 

2 

076 

0170 

2 

077 

0170 

2 

078 

0 17Q 

2 

079 

0170 

2 

080 

0170 

2 

081 

0170 

2 

08 2 

01702 

083 

0170 

2 

084 

0170 

2 

085 

0170 

2 

086 

■0170 

2 

087 

■017 0 

2 

088 

0170 

2 

089 

: 0 170 

2 

090 

0170 

2 

091 

017 0 

2 

092 

0170 

2 

093 

0170 

2 

094 

0170 

2 

095 

0 17 G 

2 

0 96 

0170 

2 

097 

0170 

2 

Q 98 

0170 

2 

099 

017 0 

2100 

0170 

2101 

017 0 

2 

102 


' o 
* o 

- o 
o 
o 
o 
o 

; O 

o 

o 

o 

o 

- o 
o 


o 


o 
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2083 

P08AA 

1 8 FB 


JMP* 

SAT2 

20 84 

PD SAB 

6CD A 

SAT 3 

ST A* 

ISATGO) 

208 5 

P08AC 

DBD9 


RAO* 

SATGO 

2086 

P08AD 

C3 00 


LD A 

MAXSEC 


P08AE 

FB7F 




208 7 

P08AF 

0901 


INA 

1 

20 83 

P08B0 

0 8 42 


CL R 

Q 

2089 

posei 

38D7 


DVI* 

SIXTEN 

2090 

P08B2 

88D9 


ADD* 

BLDSAT*-! 

20 91 
2092 

PO 863 

68D6 


ST A* 

ENDSAT 

2093 

P08B4 

0 8 44 


CLR 

A 

209 4 

P0 8B5 

01 46 


SQZ 

SAT5-*-l 

209 5 

PO 8B6 

cooo 


LD A 

= N$ 8 0 0 0 


P08B7 

8000 




209 6 

P0 8B8 

0 DFE 

SAT 4 

INQ 

-1 

209 7 

P08B9 

0 142 


SQZ 

SAT5-*-l 

2098 

P08BA 

OF 41 


ARS 

1 

2099 

P08BB 

18FC 


JMP* 

SATA 

2100 

P08BC 

6CCD 

SAT 5 

STA* 

{ENDSAT ) 

2101 

P08BD 

0 8 04 


SET 

A 

210 2 

P08BE 

6CC7 

SAT 6 

STA* 

(SATGO) 

2103 

P08BF 

D8C6 


RAO* 

SATGO 

2104 

POSCO 

E3C5 


LDQ* 

SATGO 

210 5 

P08C1 

0 8 52 


TCQ 

Q 

210 6 

P08C2 

F8C7 


ADO* 

ENDSAT 

2107 

P08C3 

0141 


SQZ 

SATQON-* 

2108 

P08C4 

18F9 


JMP* 

SAT6 


SET THE NEXT SECTOR AVAILABLE 

SETUP THE FIRST WORD WITH AVAILABLE SECTORS 


INCREMENT MAXSEC FOR TOTAL SECTORS 

FIND THE LAST WORD WITH AVAILABLE SECTORS 
OFFSET LAST AVAILABLE WORD 
1-CARD DELETED 


SETUP LAST WORD WITH AVAILABLE SECTORS 


PICKUP FIRST WORD TO BE SET FOR 


0170210 3 
017G21Q4 
0170210 5 
0 170 2 10 & 


INCREMENT STORAGE ADDRESS 


210 9 

2110 

2111 

2112 

2113 

2114 

211 5 
2116 
2117 
211 8 


P08C5 
P08C6 
P08C7 
P08C8 
P08C9 
P08CA 
P08CB 
P08CC 
P08CD 
PQ8CE 
PQ8CF 
P08DQ 
P08D1 
P03D2 
P08D3 
P08D4 
PQ8D5 
PQ8D6 
P08D7 
P OSD 8 
P0809 
P08DA 
P08DB 
P08DC 
P08DD 
P08DE 


E80Q 

FC6D 

4 0 FF 
C000 
0 100 
EO 0 0 
F4BF 
5800 
0 89C 
C 830 
0101 
1 8 i£ 
5817 
494E 
4954 
4941 
4C49 

5 A41 
5449 
4 F4E 
2 0 43 
4F4D 
50 4C 
4554 
4544 
2 0 2'D 


SATOON LDQ LSSEGT 


-N$1Q 0 


0170 

0170 

0170 

0170 

0170 

0170 

0170 

0173 

0170 

0170 

0170 

0170 

0170 

0170 

0170 

0170 

0170 

0170 

0170 

0170 

0170 

0170 

0170 


2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 
211 5 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 
2129 


SAT 9 
SAT 8 


LDQ =N-288G 

RTJ M0RIV 

LD A* ERFLAG 
SAZ SAT9-*-l 
JMP* SAT10 
RTJ* SAT 7 

ALF 22 » IN IT IALI ZA 


SETUP WRITE OF 30 SECTORS 

WRITE SAT TABLE 

WERE THERE ANY ERRORS 

NO-, PRINT AUTOLOAD MESSAGE 

YES, PRINT AUTOLOAD ERROR MESSAGE 

TION COMPLETED - YOU MAY AUTOLOAD 


01702130 

01702131 

**MSOS 4.1**01702132 

01702133 

01702134 
0170213 5 
01702136 
01702137 
01702138 


O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

° 

i o 


P08DF 2059 
P08E0 HF55 
P08E1 20 4D 
P08E2 4159 
P 0 8 E 3 20 41 
PQ8E4 5554 
P08E5 4F4C 
P08F6 4F41 
PQ8-E7 4420 

2119 P08E8 0BB0 

2120 P08E9 C8FE 

2121 PQ8EA 0 C 16 

2122 P08EB 5300 X 
P08EC 065B X 

2123 P03FO 1 8FF 

2124 P08EE 5817 

2125 P08EF 4552 
P08FO 52 4F 
P08F1 52 53 
P08F2 204F 
P08F3 4343 
P08F4 5552 
P08F5 4544 
P03F6 202D 
P08F7 2059 
P08F8 4F55 
P08F9 2040 
P08FA 4159 
PQ8FB 2Q 41 
P08FC 5454 
P08FO 454D 
P08FE 5054 
P08FF 2054 
P0900 4F20 
PQ901 4155 
P0 902 544F 
P09Q3 4C4F 
P0904 4144 

2126 P 0 9 0 5 0800 

2127 P0906 C8FE 

2128 P 0907 0 016 

212 9 P 0 9 0 8 5 80 0 X 

P0909 0 3 EC X 

2130 P 090 A 1 3 FF 

2131 P090B 0000 

2132 PG90C 0000 

213 3 


SAT 7 


S AT 10 


NOP 0 

LD A* SAIT7 PICKUP BUFFER ADDRESS 

ENQ SAT7-SAT 8 
RTJ TELOUT 


NUH $18FF 
RTJ^ SAT11 

ALF ERRORS OCCURED - YOU MAY ATTEMPT TO AUTOLOAD* 


S AT 11 NOP 0 

LOA* SAT11 

ENQ S4T11-SAT10-1 

RTJ TELOUT 

NUM $13FF 
ERFLAG NUM 0 
TCODE NUM 0 
END 


PGM= 090D ( 2317) COM = 0000 ( 0) DAT = 0000 i 0) 


01702139 

01702140 

01702141 

01702142 

01702143 

01702144 

01702145 


01702146 

01702147 

01702148 

01702149 

01702150 

01702151 

01702152 

01702153 


Q 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE 


06/19/99 


: q u i v 

A L E N 

G E S 


DEF .LINE 
0 000 

NAME 

I 

VALUE 

OOFF 

TOO 02555 

0072 

PGENUM 

0001 

(oooooii 

Q 073 

REFER 

0002 

( 0000023 

0074 

MODIFY 

0003 

(0000035 

0 076 

COMBAS 

0001 

(0000011 

0077 

DAT8AS 

000 2 

TOCOOQ25 

0 078 

PRO'BAS 

OQQ 3 

( 0000035 

0 079 

COMLIM 

00 0 4 

(0000045 

0 08 0 

OATLIH 

000 5 

( 0030053 

0081 

GSQLIM 

00 0 6 

10 0000 65 

0 082 

EXTCTR 

0007 

T 0000075 

0083 

ENDSW 

00 0 8 

(0000085 

0 08 4 

ABRLSW 

0009 

T 0 000093 

008 5 

INPKRD 

000 A 

(0000105 

0 08 6 

INPFEL 

0 0 0 B 

10000113 

0088 

GSQNUM 

OOOC 

T 0 QO 0123 

0090 

ENTPNT 

. OGOD • 

(0000135 

0092 

LINK 

00 OE 

(0000143 

0 09 4 

INPCTR 

DQQF 

1 0000153 

0 098 

NOTLNK 

0010 

(0000169 

0 0 99 

ENDINP 

0011 

10000175 

0101 

BLANKS 

0012 

( 0 0 00183 

0102 

SYHSTR 

0013 

T0000199 

010 5 

SC A NS W 

GOl 6 

( QG 00229 

0111 

BASE 

0017 

(0000233 

0 112 

WRDCNT 

0018 

(0000243 

0117 

COUNT 1 

0019 • 

(0000253 

0119 

BZSSW 

G01A ■ 

( 0 0.0 0269 

0122 

COUNT2 

0 01 B 

T 0000273 

0123 

QLKCNT 

00 1 B 

f G00Q273 

0126 

SWfe 

00 1C 

( 0000283 

0 129 

A S A V 

00 1 D 

I 0000299 

0 130 

QSA \l 

00 1 E 

T 000030) 

0132 

XFRNAM 

0020 

(0000329 

0133 

NAME 

0023 

(0 000359 


REFERENCED AT 

LINE 

NUMBER 


0928, 

1227, 

1235, 

1248, 

1271, 

2 013, 

2017, 

2028, 

2066, 

2110 

1776 





1755 





1814, 

1855 




0 666, 

0893, 

1114, 

1524, 

1903 

0572, 

0578, 

0585, 

0 591, 

0598, 

3948 , 

1104, 

1127, 

1132, 

1133, 

0 550 , 

0609, 

0709, 

0755, 

0 812, 

0 668, 

0895, 

1116, 

1525, 

1909 

0 758 





0 8 48 , 

0971 , 

1122, 

17 97 



0 436 





0941 , 

.1471, 

1905, 

1920 


0 5 46, 

0 715, 

0 735, 

0 766, 

093 0, 

0429, 
0 414, 
1444, 
0411, 
2057 
0 409 
0 878 

0 564, 

0 425, 

1 446, 
0 492 , 

0919, 
0 4-3 0 , 
1456, 
0 905, 

0955, 
0 5 61, 
1582 
1316, 

143 8 

0908, 

1431 

0 5 48, 

0717, 

0738, 

0 7 6 8, 

0 93 2 , 


1592, 1630, 1644, 1645, 1658, 


0615, 0623, 0643, 0683, 0690, 
1135, 1464 
1026, 1110 


1094, 

1175, 

1 47 3 , 

1 803, 

1843 

0 918, 

0929, 

0937, 

0 953, 

1049 

1 097, 

1177, 

1475, 

1805, 

1845 


1676, 1720, 1781, 1809, 1892, 1898 
0749, 0757, 0783, 0902, 0916, 0921 

1864, 19 07, 1 92 2 

1063, 1076, 1319, 1354, 1436, 1442 


u 






CONTRL 



0134 

SCHXIT 

0027 


0 135 

TABSCH 

0028 

o 

0 137 

3 ENT AD 

002B 

0139 

MAXENT 

0Q2C 


0 140 

TEMP 

Q 0 2 D 


0141 

NO JUMP 

0031 

o 

0143 

FLGLGN 

0032 

0144 

BINASG 

0033 


0145 

PRI NT3 

0036 


0 14 6 

INPXCQ 

0039 

o 

0 147 

INPADR 

QG39 

0148 

INPXC1 

0Q3A 


0149 

PRI NT2 

003B 


0 150 

INPXGC 

0 0 3 E 

o 

0151 

NXTTNP 

003F 

3152 

M7FFF 

0041 


0153 

N 8 0 DO 

0042 


0 154 

HFF00 

0044 

o 

0155 

N00FF 

0045 

0156 

ASKII 

0046 


0 15 7 

NEGSW 

0047 


0158 

SGNTPM 

0 04 8 

o 

Q 15 9 

SC N IN P 

0049 

0161 

SC NX IT 

0 0 4 A 


0162 

SCAN 

004B 

o 

0 163 

CSN AME 

0 04E 

0 170 

XCSNAM 

0Q4F 


0171 

INME0 

005 0 


0 174 

ADJOyF 

0052 

o 

0175 

EXT PC H 

0055 

0176 

NGRLSW 

005 6 


0178 

ARIT15 

0057 


0 180 

PRESET 

0058 

o 

0182 

COMVRT 

00 5 A 

0183 

AINPUT 

0065 


0 184 

SYSPGE 

0066 


0 18 5 

LINK1 

0068 

o 

0186 

ENTPGS 

0 0 6B 

018 7 

TOP 

006C 


0 1 88 

PGEWRT 

0060 


018 9 

LGEPGE 

GG6E 

o 

0 190 

IGNORE 

0 06 F 

0192 

LNKSTR 

0070 


0193 

LNKCTR 

0071 


0 194 

LN K END 

0072 

o 

0195 

ENTST0 

0073 

0196 

ENTST1 

0 074 


0197 

EXTSTR 

0076 


0198 

CORADR 

0 0 77 

o 

0199 

PROOAT 

0078 

0 20 0 

PRQCOM 

0079 


0 201 

PAGE 

0 0 7 A 

o 




o 





PAGE 


10000395 
{ 0000403 
(Q 00 043) 
(000044) 
(0000453 
(0000493 
(0000503 
(000051) 
( QQQ0543 
(0000573 
(0000573 
COD 0 058) 
KO 000593 
(0000623 
( 0000633 
(0000553 
( 0000663 
(0 00 06 8? 
(000069) 
(0000703 
(0000713 
(0000723 
( G 00073) 

(0000743 
(0000751 
(0000783 
(0000793 
CQQ8080) 
(0080823 
( Q 00 035) 
1033.086) 
(0 00 0 87) 
(000088) 
( G 009903 
(0 001013 
(0001023 
(0001043 
(0001073 
(0001083 
(000109) 
( 0001103 
(0001113 
( 000112 ) 
(000113) 
( 0001143 
( 0GQ11 53 
( 0001163 
(0001183 
(0001193 
(0001203 
1000121 ) 
(0001223 


u 
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0 547, 

0 716, 

0737, 

0767, 

0 931, 

1096, 

1176, 

1474, 

1804, 

1844, 

1865 





O 

0788, 

0 796, 

0 837, 

0 845, 

0968, 

1119, 

1206, 

1217, 

193 7, 

1942, 

1957, 

2000 




1139 
1766 
0 290, 

0292, 

1251, 

1255, 

1258, 

1680, 

1682, 

1686, 

1688, 

1692, 

1694, 

1698, 

1700, 

1723, 

1725 

O 

0 526 
•3 315, 

0 374, 

Q 389, 

0396, 

Q 40 6 , 

1225, 

1250, 

1275, 

1549 







O 
















0 
















o 

0 923 

0597, 

1585 

0 610, 

0614, 

0622, 

0911, 

0915, 

0942 , 

0961, 

1053, 

1066, 

1079, 

1323, 

1328, 

1345, 

1360, 1458 

o 

0 413, 
0 3 97, 
0398 
0375, 

0 494, 
0 433, 

1498, 

0907, 

0437, 

1509 

1318, 
0 525, 

1433 
0 557 , 

0647, 

0 655, 

0 670, 

0 782, 

0391, 

1001, 

1112, 

1479, 

1 744 


o 
















o 

0 7 8 0 , 

0973, 

1124, 

1978 













0289, 

1249, 

1679, 

1 685, 

1691 , 

1697, 

1722 









o 

1 748 
















0795, 

0551, 

0835, 
0 775, 

0844, 

0871, 

0967, 

1107 

1118, 

1204, 

1215, 

1 93 a , 

1943, 

1958 , 

2001 





o 
















o 

1203 

0794, 

0846, 

0836, 

0970, 

1 2 JL ** f 
1121 ♦ 

1952 

1795 












o 


3880, 1745 

o 

1773, 1791 

o 

O 


( ; 






CONTRL 

o 

0 203 

CSQCTR 

0 0 7 B 


0 205 

CEXTAD 

007C 

o 

0 20 7 

MI NEXT 

0070 

0 208 

MAXEXT 

0Q7E 


0209 

ENTSEC 

0 07 F 


0 210 

G SQ SEC 

00 80 

o 

0 211 

MAXPGE 

0081 

0212 

NOPAGE 

0082 


0213 

PARBAS 

00 83 


0214 

PARLIM 

008 4 

o 

0 215 

STRSEC 

0085 

0216 

MSDWCT 

008 6 


0 217 

XFRADR 

0 0 87 


0 218 

AHOLD 

00 8 8 

o 

0219 

QHOLD 

00 8 9 

0 220 

SECTOR 

00 8 A 


0 221 

EGREP 

0 0 8 B 


0222 

ECREPi 

008C 

o 

0 223 

EXTSWT 

0 0 8 D 

0224 

SAVEA 

0 08 E 


0225 

JUMP 

008F 


0 226 

TEMP3 

0090 

o 

0227 

FLGBSE 

0 091 

0228 

PROGCT 

0092 


0229 

ONTAB 

0093 


0 230 

MONTAB 

0094 

o 

0 231 

FLGBS1 

0095 

0 232 

INPUT 

0096 

o 




o 




o 




o 




o 




o 




o 
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( 000123) 
( 0 001245 

0616, 

0620, 

0621, 

( 00 012 5) 
(0001265 
( 000127) 
(000128) 

1935, 

1955 


(000129) 

(000130) 

0 877, 

174 9, 

1770 

(000131) 
(0001321 
( 0 00133) 
{ 0 00134) 
(0 00135) 
(000136) 

1128 



(0 00137) 
( 0001385 

0791, 

0793, 

0840 , 

(000139) 

0789, 

1205, 

1481, 

1 0001405 
(000141) 
(000142) 
(000143) 
( 0 001445 

0 83 8 , 

121 6 


(000145) 
I 000146) 

0885, 

1747, 

1753, 

(0 00147) 

0628 , 

0 63 7 


( 00014-8) 

0 982 , 

0989 


(000149) 

1 746 



(000150) 

0319 




DATE: 08/19/99 

0 7 07, 0777, 0810, 0823, 0 825, 


0842, 0851, 0853, 1954, 2004 
1483, 1924, 1926 

1767 


0828, 0875, 0888, 0999, 1G24, 


o 

1036, 1136, 1138 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 

c 


o 


o 
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DATE 
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SYMBOLS 


DEF . LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 


0010 

RSTART 

0000 

0010 





0 011 

TCQDE 

09 0C 

0011 





0 012 

IN 

0 4C3 

0 012, 

0284, 

1347, 

1362, 

136 6 

0013 

OU 

04C4 

0013, 

028 6 




0 014 

GO 

04C5 

0014, 

0282 




0 015 

COMMA 

0123 

0015, 

0 509, 

0510 , 

0558, 

0 896, 

0 016 

VALID 

0 4DF 

0 016, 

0 568, 

0617, 

0 899, 

0 958, 

0 017 

CM45 

Q0B2 

0017, 

127 6 




0 018 

CM65 

00BD 

0018, 

0 38 2 * 

0387, 

0674, 

1012, 

0 019 

3ACKGR 

0 43C 

0019, 

G 30 4, 

0372, 

1236, 

1274 

0 020 

LSSECT 

0 53 4 

0 020 , 

0 280 , 

0686, 

0946, 

0 965 , 




1913, 

1931, 

1949, 

1961, 

1982, 

0 021 

TYPEQ 

Q44C 

0021, 

0379, 

1283 



0 023 

OTYPE 

0477 

0 0 23, 

0567, 

0771, 

0 8 68, 

091*+, 

0 Q 2 4 

ERFLAG 

Q90B 

0 024, 

0 330, 

2114 



0 295 

SI 

0 Q 1 A 

0291, 

0293 




0 300 

GNTR1 

003 4 

0294, 

0301 




0 302 

GNTR2 

0 03 6 






0 304 

CNTR3 

00 39 






0 309 

OAT El 

0040 






0 310 

CNTR9 

0047 

0 3 07, 

0 312 




0 319 

CNTR1G 

0051 

0324 





0.32 5 

CNTR11 

0058 

0 323 





0 3 66 

CM A SKI 

O 0 A 8 

0 402 





0 37 2 

G M2 0 

00 A9 

0 3 65, 

0441, 

0 528 , 

1 485, 

1 51 0 , 

0374 

CM40 

0 0 A B 






0 378 

CM4 4 

Q0AF 

0376, 

0 3 83, 

0 388, 

1390 , 

1 499 

0 382 

CM45A 

0 0 B 5 






0384 

GM5 0 

0GB7 

0 377 





0387 

CM60 

OOBB 






0 40 6 

C M 8 0 

OOCB 

0 40 3 





0 421 

CM90 

Q0D7 

0 416 





0 422 

GM72 

GODS 

0 428 





0 425 

CM 7 4 

0 0 0 B 

0 423 





0 429 

CM7 6 

OODF 

0 426 





0 433 

CM7 8 

0 0 E3 

0 431 





0 43 6 

G Ml 90 

00E6 

Q 417 





0 438 

CM 195 

GOES 






0 439 

CM195X 

0 0E9 

0 405, 

0 424, 

0 432 



G 440 

H0P2 

0 OE A 






C 441 

CM 1 96 

OOEB 

0 438 






0950, 

1084, 

1060, 

1348, 

1073 , 
135 7, 

1313, 

1399, 

1351, 
1 401, 

1428, 
1 453, 

1434, 

1495, 

1579 

1506, 

1519, 

1536, 

1587 

1528 











0996, 
1990 , 

1083, 

1993, 

1185, 

2009, 

1411, 

2109 

1412, 

1469, 

1761, 

1764, 

1875, 

1891, 

1912 

1052, 

1180 , 

1327, 

1369, 

1813 







1 554, 

1562, 

1571, 

1616, 

1734 
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DATES 0 8/19799 



C: 



0448 

STTYP1 

0 0 EC 


0 465 

STT YP3 

OOFD 

O ; 

0 490 

GET HEX 

0 1 1 D 

0 514 

3 T A RY !i 

012 A 


0 517 

YM2 

012 D 


0518 

Y Ml 

0 12E 

O 

0520 

STARY 

0130 

0 524 

Y 1 

0134 


0525 

Y 0 

013 5 


0529 

1 1 CALL 

0 13B 

o 

0 533 

STA RL 

013C 

0 536 

LSTM1 

0 13 F 


0 540 

LSTM2 

0143 


0 542 

LSTM3A 

0145 

o 

0 544 

LSTM3 B 

0149 

0 553 

LSTM3D 

0153 


0 554 

LSTM3G 

015 4 


0 556 

LSTM4A 

015 6 

r~\ 

0558 

LSTM4Q 

0158 

o 

0 564 

LSTM4Q 

015E 


0567 

LSTM4 

0161 


0568 

LSTM41 

0163 

o 

0570 

LSTM42 

016 6 

0 572 

LSTM43 

0168 


0 583 

EVPG 

0174 


0 584 

LSTM4X 

0176 

o 

0585 

LSTM5 

0177 

0596 

EVENPG 

0183 


0597 

LSTM6 

0185 


0607 

LSTM7 

018B 

o 

0 614 

LSTM7A 

0193 

0617 

LSTM7L 

0196 


0620 

LSTM7X 

0 1 9 A 


0 625 

LSTM6A 

0 1 9 F 

o 

0 52 7 

LSTM8 

Q1A1 

0 635 

LSTM9 

01 A 7 


0 636 

YORDNL 

01 A8 


0 637 

LSTM8A 

01A9 

o 

0 652 

LSTM88 

OlBfl 

0 653 

LSTM8C 

01B A 


0 655 

LSTM9A 

01BC 


0661 

LSTM9B 

QIC 2 

o 

0670 

LSTM90 

01CB 

0 674 

LSTM9E 

01CF 


0 675 

PARDEF 

0 1D1 


0676 

CRPFLG 

0 ID 2 

o 

0677 

YPOINT 

0 1 03 

0 67 8 

END 0V4 

010 4 


0 679 

YCNTER 

DID 5 


0680 

FRSTLP 

010 6 

o 

0 682 

LPBNDY 

01D7 

0 696 

STARLP 

0 l’E7 


0 701 

LPD 

01EC 


O 


0 422 
0 435 

0495, 0560, 0936. 0952, 1048, 1062, 
0 471 

0 440 , 0 523 
0 515 
0 470 
0 521 
0519 
0 329 
0 465 
0 533 

0538 
0 537 

0542, 0545 

0539 
0 549 
0 5 53 

0702, 0786 

0 562 „ 

0517, 0535, 0541, 0555, 0571, Q626, 
0 559 

0619, 0901 
0 5 65, 0 569 
0 581 

0573, 0575 
0 563 
0 594 

0586, 0568 
0 605 
0612 
0624 
0608 

0606, 0613 
0584, 0618 
0630 

0328, 0627, 0631 

0634 

0649 

0651 

n 

0657, 0659 

0667 

0672 

0335, 0728, 0731, 0751 

0336, 0607, 0779 

0337, 0646, 0663 

0338, 0552, 0740, 0910, 1853 
0343, 063 8, 0640 

0334, 0658, 0673 
0660, 0692 
0 466 
0754 


1075, 


0 701 


o 


CD 

□ 

1353, 1452, 1581 Q 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


G 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 
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DATE.: 

08/19/99 

0 7 0 2 

tPl 

0 1EE 

0699 




Q 70 3 

LP2 

aiFO 

0697 




G 713 

LP3 

0 20 0 

0711, 

0714 



072G 

LP4 

0207 

0718 




0730 

LP 5 

0211 

0724, 

0 72 6 



G 732 

L'P6 

0213 

0719, 

0 72 9 



0 734 

LP7 

0217 

0732, 

0 73 5 



0 742 

LP 8 

021F 

0 739 




0 749 

LP9 

022 6 

0741 , 

0 746 



0751 

LP 1 0 

0228 

0748 




0 755 

LP 1 1 

022€ 

0752 




0 758 

LP12A 

0 22 F 

0750 




0 761 

LP1 1 A 

0232 

0759, 

0 772, 

1825 


0 762 

LP1 2 

0233 





0 764 

LP13 

0237 

0 7 62, 

0 765 



0 772 

LP1 4 

0240 

0769 




0 773 

LP14A 

0 241 

0 7 60 




0 7 87 

LP 1 5 

0252 

0 785, 

0797 , 

0815 


0798 

PART8L 

0250 

0339, 

0720, 

1083, 1101, 

1103, 1109 

0799 

LSTLOC 

0 25E 

0340, 

0 7 42, 

1835 


0 800 

MSIZV4 

025F 

0 3 41, 

0 364, 

0773, 1821 


0 804 

STARH 

0 260 

0 467 




0 807 

MO 

0263 

0805 




0 817 

Ml 

0 271 

0 864 




0 819 

M2 

0274 

3 80 6 




08 22 

M3 

0277 

0 820 




0834 

ENDETi 

0 28 A 

0 816, 

0 82 9, 

0855, 1029 


0 85 6 

ENTTMP 

Q2AG 

0344, 

0 843 , 

0966, 1117 


0 857 

SIR TEX 

02A1 

0345 , 

0 84 7 , 

1794 


0858 

TEMPEX 

0 2A 2 

0 345, 

0 854, 

0969, 1120 


0859 

ENOEXT 

0 2A3 

0 347, 

0 84 9 , 

1796 


0 860 

M3 A 

0 2 A 4 

0 833 




0 864 

M4 

02 A 8 





0865 

M5 

02A9 

0 821 




0 868 

M6 

0 2 AC 





0869 

M6 A 

02AE 

0865 




0 87 0 

M7 

S 2RG 

0 818 




0 874 

M 7 A 

0 2 B 5 

0 872, 

0 8 89, 

1047, 1742 


0881 

M9 

02BE 

0 8 87 




0888 

mo 

02C5 

0 886 




0 890 

Mia a 

02C7 

0 873 




0899 

Mil 

0203 

0 897 




0901 

MTRMER 

020 6 

0927, 

0960 



0902 

M12 

0 20 8 

0900 




0904 

M 1 3 

D2D A 

0898 




0 914 

MERROR 

D2E5 

0 9 35, 

0940 



0915 

M 1 4 

02 E 7 

0 912 




0 918 

M 15 

0 2EA 

3 909 




0 92 3 

Ml 5 A 

02EF 

0920 




0 928 

Ml 6 

02F5 

0926 




0 936 

Ml 7 

02FD 

0 933 




0939 

M 1 7 A 

0 301 

0 957 




0941 

Ml 8 

0303 

0938 





o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 


o 


o 


DATES 08/19/99 


{ ) 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


CONTRL 


RAGE 


69 


0950 

Ml 9 

0 310 

0 917, 

0922 


0 958 

Ml 9 A 

031 A 

0 949, 

0951 


0 961 

M20 

0 31 E 

0 954 



0966 

M20 A 

032 7 

0903 , 

0956, 0959 


0972 

M 2 0 B 

032F 




0 978 

M2 2 

0336 




0981 

M2 3 

033 A 

0978 , 

1149 


0985 

M23 A 

033’E 

0983 



0 988 

M 2 4 

0341 




0 989 

M2 5 

0 342 

0987 



1011 

M26 

03 5 A 

0934, 

0988, 1003 


1013 

YMCNTR 

035E 

0348, 

0990, 0992 


1014 

YMORDN 

035F 

0349, 

0981, 0985 


1018 

STARMP 

0 36 0 

0 468 



1021 

MP0 

0363 

1019 



1029 

MP1 

03 6 F 

10 42 



1 032 

MP2 

0374 

10 20 



1035 

MP2 A 

0 37 7 

1033 



1 Qi+2 

MP3 

0380 




1046 

MP3 A 

0381 

1034 



10^7 

MP4 

0383 

10 31 



1 051 

MP4 A 

0389 

10 65 , 

1078 


1052 

MPERR 

0 3 8 A 

1059, 

1087, 1100 


1053 

HP 5 

038C 

1050 



1 0 58 

MP6 

0392 

10 55* 

1072 


1060 

MP7 

0394 

1057 



1066 

MP8 

0 3 9 C 

1 0 64 



1072 

MP9 

03A 2 

1068 



10 73 

mpio 

03 A3 

10 71 



1079 

HP 11 

0 3 A B 

1077 



1084 

MP1 2 

0 3 B3 

1074 



1086 

MPT ERM 

03B6 

1061 



1088 

MP13 

03 B 8 

10 85 



1092 

MP1 4 

03BF 

1090, 

1093 


1101 

M'Pi 5 

0 3C8 

1098 



1 102 

MP15A 

03CA 

1089 



1 142 

MP1 6 

03FD 




1146 

MR 1 8 

0402 




1149 

MR 19 

0 40 6 

1146 



1 150 

PP 

0408 

0350, 

1054, 1069, 

1102 

1151 

NN 

0 40 9 

0351, 

1067, 1103 


1153 

STORE 

8 40 A 

1129, 

1134, 1157 


1155 

YALUE1 

0 40 D 

1126, 

1131 


1167 

FMXSEG 

0410 

0 81*+, 

0831, 1028, 

1035, 1170, 1182 

1171 

C K SEC 1 

0 414 

1169 



1173 

GKSEC2 

a Hi 8 

1171, 

1174 


1 18 0 

C KS E RR 

0 41 F 

11 83 



1181 

CKSEC3 

0420 

1178 



1183 

CHKSEC 

0 42 2 

0 9 44, 

0 963 , 1081, 

1193 

1184 

CKSEC 

0423 




1187 

GKSEC 4 

0427 

1192 



1189 

GKSEC5 

0 42 9 

1186 



1193 

CKSEC6 

0420 

1191 




O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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DATE? 

08/19/99 




1194 

MAxsec 

0 42 E 

0 342, 

1168, 

1181, 

1189, 

2086 





1195 

SECVAL 

0 42 F 

0352, 

0943, 

0945, 

0962, 

0 964, 

1080, 

1082, 

1184, 

1190 

1202 

LG REP 

0 43 0 

0 8 30, 

1011, 

1095, 

1207, 

1798, 

1838, 

1859, 

1934, 

1980 

1213 

LCREP1 

0436 

0 832, 

1218, 

1941 







1230 

8G1 0 

0 444 

1233 









1234 

8G20 

0448 

1232 









1244 

TYPEQi 

0 44 E 

1260, 

1269, 

1277 







1247 

QERR 

0451 

1245 









1 258 

TYPEQ2 

0 45 E 

1254 









1259 

FYP EQ3 

0 45 F 

1257 









1269 

QOUT 

0465 

1246 









1277 

IYPEQ9 

0470 

12 43 









1278 

QBUFR 

0471 










12 79 

EBUFR 

0472 










1231 

ERNBR 

0476 

1259 









1304 

STARI 

0 4 7 A 

0 474 









130 7 

sr ARO 

0 47C 

Q 475 









1 310 

ST ARC 

047E 

0 476 









1312 

SETIO 

0 47 F 

1305, 

130 8 








1 321 

NOKNB 

0489 

1356, 

1 58 4 








1323 

0 KN B 

0 48 B 

1320 









1326 

S I I OER 

0 48 F 

1341 









132 7 

QTYPEX 

0 490 

1 322 









1328 

LUOK 

0492 

13 25 









1 330 

A GS 

0495 

1329, 

1 331, 

1343 







1 342 

A TABLE 

0 4A 2 

13 33, 

1343 








13 43 

REL 

04A3 

13 32 









1344 

ZERO 

G 4A 4 

13 37 









1 345 

OEVDEF 

0 4A5 

13 3 8 , 

1 340 








1351 

Q KN 81 

04AD 

13 49 









1357 

0KNB2 

0405 

1355 









1360 

0KNB3 

0488 

1358 









1367 

DUN MY 

0 48 F 

1 389 









1 368 

TL0FL 

0 4C0 

1314, 

1 35 2, 

1359, 

1429, 

1 45 5 





1369 

TYPIO 

0481 

1441 









137 0 

SWTHIO 

0 4C2 

1312, 

1346, 

1 351, 

1363, 

1355 





1 390 

CM44EX 

04DD 

13 50, 

137 5, 

137 7, 

13 79, 

1381, 

1384, 

1386, 

138 8 


140 8 

VALID 

34E5 

1398 









140 6 

NXTSEC 

04€ 7 

9 6 76, 

1 413, 

1930, 

1940 , 

1960 





1 411 

NXT1Q 

0 4'ED 

1 409 









1428 

STARS 

04F2 

0 469 









1 429 

SERR1 

04F4 

1 435, 

1511 








1440 

SERR2 

050 0 

1 437, 

1468 








1 442 

SOK1 

0502 

1 439 









1 449 

ENTRY 

050 9 

1443 , 

1445, 

1447 







1 450 

VALUE 

0 50 C 

1 459 









1451 

LOCENT 

0500 

1 448, 

1 472 








1456 

S0K2 

0513 

1 454 









1459 

tf ALU 

0516 

1465, 

1470 








1 461 

TESTA'L 

0518 

1 457 









1466 

NOTP 

0510 

1 463 









1469 

SOK3 

0520 

1467 









1471 

LDRTA8 

0 523 

1 460 
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1 *+78 

NIN 

052 A 

1476 

1484 

NT N 1 

0530 

1480 

1 465 

GM20EX 

0532 

1 4 77 

1 *+95 

STARU 

0535 

0 473 

1506 

STARV 

0 53 B 

0 472 

1 511 

I L DEL 2 

0541 

1496 

1 519 

ST ARB 

0542 

0 478 

1 523 

CONT 

0545 

1521 

1536 

STARG 

054D 

0 479 

1539 

VA LOK 

0550 

1 53 7 

1 544 

WAT 

0564 

15 41 

1555 

DKERR 

0 57 3 

1 553 

1556 

DSKER 

057 B 

1555 

1 563 

ERDISK 

0582 

15 40 

1567 

DISKER 

05 8 B 

1 564 

1579 

STARH 

0592 

0 480 

1 585 

OKNH 

0 59 B 

1583 

1 590 

TERMH 

05A 2 

1588 

1618 

SETPTN 

05CG 

1594 

1621 

PTN SET 

0 5C3 

1 624 

1 625 

RTNPTN 

05C8 

1 623 

1626 

PTN 

05C9 

1591 

1 628 

WPTN 

0 5CA 

1597 

1631 

LWPTN 

05CD 

1649 

1632 

FWA 

05GE 

1 631 

1643 

SAD ERR 

05DB 

1 640 

1 644 

GOD Y 

Q5DC 

t 637 

1650 

WDOME 

05E2 

1 648 

1651 

PTN1 

0 5E3 

1 596 

1652 

PTN I 

0 5E4 

1593 

1655 

RPTN 

05 -E5 

1 598 

165 8 

LRPTN 

05E9 

1716 

1660 

RFW A 

0 5ER 

1659 

1667 

RGODY 

05F4 

1 665 

1668 

RGODYA 

05F5 

1 673 

1 674 

SECNXT 

05FB 

1 672 

1 675 

NOMTCH 

05 FC 

1670 

17 G 3 

COMRUF 

0618 

1681 

1 70 5 

GOMMSG 

0 63 5 

1 702 

170 9 

8NPSCT 

0 63 A 

1674 

1717 

RDONE 

0643 

1715 

1719 

PTN ERR 

0644 

1643 

172 8 

0FAIL 

0 64D 

1724 

1730 

FALMSG 

0657 

1727 

1 735 

PTN BUF 

065E 

1621 

1 736 

TSECT 

0 6 BE 

1 586 

1737 

CURSCT 

0 6 BF 

1 657 

1741 

START 

G6CG 

0 477 

1 754 

TO 

06D0 

1 7 60 

1 761 

TO A 

Q6D7 

1 75 8 

1 775 

11 

06 E A 

1793 

1 784 

F2 

06F6 

1782 

1 794 

T2 A 

0700 

1786 


, 1507, 1522, 1538, 1580, 1589 


, 1546 
, 1560 
, 1569 


* 

1603, 

1608, 

1613, 

162 5 

9 

1 600, 

1607, 

1 612, 

1620, 1669, 1696 

9 

1604, 

1609, 

1614, 

1650 

9 

1633, 

1634 



9 

1642 




9 

1602, 

1641 



9 

1 675, 

1719 



9 

1605, 

1610 , 

1615, 

1717 

9 

1661, 

1662 




9 

1683, 

1687 , 

1689, 

1693, 1695, 1699, 

9 

1 706 




9 

1666 




9 

1726 




9 

1731 




f 

1634, 

1662, 

1668, 

1690 

9 

1 64 7, 

1714 




1677, 

1709, 

1711 



G 


o 
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DATE 

1801 

F2 C 

07 0 C 

1799, 

1802 




1812 

T21 

0 719 

1783, 

1806, 

1810, 

1896 

o 

1814 

F3 

071C 

1 811 




1 821 

F3 A 

0723 

1819 





1823 

T 4 

0726 

1 826 





1825 

T5 

072 8 

1822 




o 

1827 

F6 

072 B 

1824 




1829 

T7 

0 72 E 

1337, 

1852, 

1854 



1831 

BLOADB 

0730 

0 3 53, 

1768, 

1775, 

1787 


1832 

PCOUNT 

0731 

3354, 

1752 , 

1756, 

1757 

o 

1833 

PAGADD 

0732 

0355, 

1774, 

1778, 

1790 

1834 

TMPSEC 

0733 

0 3 56, 

1762, 

1874, 

1968 


1 835 

T 8 

0 734 

1 828 





1838 

18 A 

0 73 8 

1836 




o 

18 41 

FSB 

0 73 E 

1839, 

1842 



1848 

T8C 

0745 

1 846 





1853 

T9 

074 A 

1847 





1855 

FIG 

0740 

1820 




o 

1862 

FAGOOi 

0758 

I 860, 

1863 



1 867 

Til 

075D 

1 830 





1872 

OHS 

0762 






1873 

FI 3 

07C2 

1871, 

1880, 

1890, 

2011 

o 

1882 

T13C 

07CC 

1888 




1889 

FI 3 A 

0703 

1879, 

1884 , 

1886 



1890 

F13B 

07D4 

1887 





1897 

T 1 3 0 

G7DF 

1895 




o 

1901 

1902 

F 1 4 
1 14 A 

07E5 
0 7E6 

1904 

1899, 

1906 




1917 

SWAPSC 

Q7FA 

1914, 

1919 




1 918 

F 1 2 

07FB 

1915, 

1921 



o 

1946 

1 1 2 A A 

0 8 1 E 

19 44 




1949 

T12A 

0821 

1945 





1961 

T12B 

Q 82 F 

19 48 





1 978 

F 2 2 A 

0 843 

19 76 




o 

1 989 

13 0 

0 85 0 

19 86 


1027, 

1857 

1995 

G CMMO 

085 A 

0 710 , 

0 81 3 , 


1996 

LENDC 

085 B 

0 3 57, 

0 70 8, 

0-811, 

1025 


1997 

LFENOG 

085C 

3 358, 

0 784, 

0 826, 

0827 

o 

1998 

MOV0SK 

085D 

1936, 

1 956, 

2029 


20 07 

HO VI 

0856 

20 05 





2011 

MOV 2 

08 6 B 

2026 





2027 

H0V3 

G87F 

2025 




o 

2030 

MOVE1 

0383 

1999, 

2012, 

2021 


2031 

M0VE2 

0884 

2008, 

2022, 

2 02 4 



2032 

MOVF7 

0885 

2010, 

2016, 

2023 



2048 

SATGO 

0886 

2 0 56, 

2072, 

2074, 

2084 

o 

2 0 50 

EFSFCT 

0887 

1964, 

2G65 



2051 

END BS'Y 

0888 

1971, 

2070 




2 0 53 

SIX TEN 

0 88 9 

20 71, 

2089 




2054 

ENDSAT 

088A 

2092, 

2100 , 

2106 


o 

2 055 

BLDSAT 

088B 

1994, 

2090 



2060 

SATO 

0891 

2 0 63 





2064 

S AT 1 

0895 

2 0 62 





o 


I O 


08/19/99 



1037, 1 827 , 1975 


2085, 2102, 2103, 2104 


Q 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE* 03/19/99 



2 079 

SAT2 

08A6 

2033 



208 4 

S A <T3 

D8AB 

2076, 

2080 


2 096 

SAT 4 

0.888 

2099 



2100 

S ATS 

088C 

2094 , 

2 097 


2102 

SAT6 

08BE 

2108 



2109 

S A T DON 

08C5 

2107 



2117 

SAT9 

08D1 

2115 



2118 

SAT 8 

08D2 

2121 



2119 

SAT7 

0 8E8 

2117, 

2120, 

2121 

2124 

SAT10 

08EE 

2116, 

2128 


2126 

3 A T 1 1 

0905 

2124, 

2127, 

2128 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


“'Vr,-* 

n 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE: OB/19/99 



o 


o 

E X T E R 

N A L S 


o 

DEF. LINE 

NAME 

VALUE 

0 029 

I2MZV4 

0243 


0 030 

11 

0138 

o 

0 031 

12 

0713 

0 032 

ISAV 

0880 


0 033 

CONENT 

0012 


0 034 

C CNMAS 

0059 

o 

0035 

CCNMS1 

Q28C 

00 36 

CONMS 

0372 


0037 

I LOAD 

0 84 F 


0 038 

TABLE 

0 4A2 

o 

0 0 39 

1 0 R I V 

OOBA 

0 0 40 

OETERM 

0 4£1 


0 0 41 

MDRIV 

0 BCD 


0 0 4? 

DCOM 

056C 

o 

0 0 43 

TEL OUT 

0909 

0 04 5 

FORMED 

0G5C 


0046 

SIB 

000 A 


0 0 47 

MASS 

0 0 0 F 

o 

0 048 

COLU 

000 6 

0 0 49 

EPTAPE 

0 4C7 


00 50 

FCAPD 

04CA 


0 051 

EM TAPE 

04CD 

o 

B 052 

EMASS 

0551 

0 0 53 

ECOM 

G4D6 


0 054 

EPRINT 

04D9 


0 055 

ENTSTR 

0801 

o 

0 05 6 

DISKWR 

040 0 

0 05 7 

WRT OUT 

0854 


0 0 59 

HE A DR 1 

0054 


0060 

fndsec 

0 6 E D 

o 

0 061 

LENSDT 

Q6E7 

0 0 62 

DATBS0 

Q2CA 


0 062 

DATE M3 • 

02CQ 


0 0 63 

0ATBS1 

030 A 

o 

0 063 

QATLM1 

03DD 

0 064 

PART1L 

027B 


0065 

PART1A 

01E5 


0 0 66 

SIG NCK 

0190 

o 

0 G67 

PART1C 

DID F 

0 068 

PAR STR 

03CF 


0 0 69 

QNASS 

0 5F1 


o 


REFERENCED AT LINE NUMBER 


0774 
0 527 
0 306, 

1807 



1780 , 

180 8 

1224, 

1234, 

1247, 

1270, 

0278, 

0325 

0 28 7 





0 879 
0 817, 

1030 




0976 

0 6 62, 

0 705, 

0809, 

0862, 

0 974, 

1324, 

1335, 

1342 




0386 
0 506 , 

139 6 




2113 

1779, 

1 894, 

2015, 

2020, 

2068 , 

0 316, 

0 381, 

0 391, 

1550 

1547, 

1561 

0303, 

0327 

0313, 

1263, 

1273, 



0283 

0285 

0281 

1374 

1376 

1378 






1380, 

1385 

1539 





1387 






1484, 

1154 

B7B6, 

1 908, 

1923 




0869, 

1046, 

1741, 

192 7, 

1991 

S3 21 
1777 
0 583, 

0596, 

1750, 

1765, 

1769, 

1772 

0 3 59, 

0892 





0360 , 

0 894 





0 361, 

1113 





0 362 , 

1115 





0332, 

0688, 

0822, 

0 824 



0333, 

0691 





0601, 

0611 





0 331, 

0 687 





1005 , 

1105 





1 552, 

1636, 

1664 





o 


1897, 2027 

0930, 1023, 1040, 1142, 1144, 1148, 1527, 1984, 1988 
1570, 1708, 1733, 2122, 2129 


c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATES 08/19/99 


(_} 


o 

*>.«•* 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


O 


o 
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PAGE 76 DATE; 08/19/99 


*** A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 











ABRLSW 

0084 

ABS 

1330 

ADJOVF 

0174 

AHOLD 

0218 

AINPUT 

0183 

AR.IT15 

0178 

ASAV 

0129 

ASK II 

015 6 

A TABLE 

1342 

BAC KGR 

0019 

BADERR 

1 643 

BASE 

0 111 

BG10 

1230 

8G20 

1234 

BINASC 

0144 

BLANKS 

0101 

BLD ADD 

1831 

BLOSAT 

2055 

BLKCNT 

0123 

BMPSCT 

1709 

BZSSW 

0119 

C ENT AD 

013 7 

CEXTAD 

0205 

CHKSEC 

1183 

CKSEC 

1184 

CKS EC 1 

1171 

CKSEC2 

1173 

CKS EC3 

1181 

CKSEC4 

1187 

CKSEC5 

1189 

CKSEC6 

1193 

CKSERR 

1180 

CM190 

0436 

CM195 

0438 

CM195X 

043 9 

CM196 

0 441 

CM2 0 

0372 

CM20EX 

1485 

CM40 

0374 

CM44 

0378 

CM44EX 

1390 

CM45 

0017 

CM45A 

0382 

CM50 

0 384 

CM60 

0387 

GM6 5 

0018 

CM72 

0 422 

CM7 4 

0425 

CM76 

0429 

CM 7 a 

0 43 3 

CM8 0 

0 40 6 

CM90 

0421 

CMA5KT 

0366 

CNTR1 

0300 

CNTR10 

0 319 

CNTRil 

0325 

CNTR2 

0 302 

CNTR3 

03 04 

CNTR9 

0310 

CO 

0014 

COLU 

0 0 48 

COMBAS 

0076 

COMBUF 

1703 

COMLIM 

0079 

COMMO 

1995 

COMMA 

0015 

COMMSG 

1705 

CONENT 

■ 0033 

CGNMAS 

0 034 

CONNS 

0 Q 36 

CONMS1 

0 035 

CONT 

1523 

CON 1/ RT 

0182 

CORA DR 

0198 

COUNT 1 

0 117 

C0UNT2 

0122 

CRPFLG 

0676 

CSNAME 

0163 

CSQCTR 

0203 

CSQLIM 

0 081 

CSQNUM 

0 0 88 

CSQSEC 

0210 

CURSCT 

1737 

DAT BAS 

0 077 

DATBSO 

0062 

DATBS1 

0063 

DATE1 

0309 

DATLIM 

0080 

DATLMQ 

0 062 

DAT LM1 

0 0 63 

DEVDEF 

1345 

DFAIL 

172 8 

DISKER 

1567 

0ISKWR 

0 056 

DKERR 

• 1555 

DSKER 

1558 

DUMMY 

1367 

EBUFR 

1279 

ECARD 

0050 

EG 3 M 

0 05 3 

ECREP 

0 221 

ECREP 1 

0222 

EFSEC'T 

2050 

EMASS 

0052 

EMTAPE 

0 051 

ENDO V4 

0678 

EN08SY 

2051 

ENOET1 

0834 

ENDEXT 

0859 

ENDINP 

0 099 

ENQSAT 

2054 

ENDSW 

0083 

ENTPGS 

0186 

ENTPNT 

0 090 

ENTRY 

1449 

ENTSEC 

0209 

ENTSTO 

0195 

ENT ST 1 

0196 

ENTSTR 

0 055 

ENTTMP 

0856 

SPRINT 

0054 

£PT APE 

0049 

ERDISK 

1563 

ERFLAG 

0024 

ERN8R 

1281 

EVENPG 

0 596 

F\/PG 

0583 

EXT CTR 

0082 

EXTPCH 

0175 

EXTSTR 

0197 

EXTSWT 

0223 

FALMSG 

1730 

FLGBS1 

0231 

FLGBSE 

0 22 7 

FLGLGN 

0143 

FMXSEC 

1167 

FNDSEC 

0 G60 

FOR MFD 

0 045 

FRSTLP 

0680 

FWA 

1632 

GETHEX • 

0 49 0 

GOQY 

1644 

HEAOR1 

0 059 

H0P2 

0 440 

I 

000 0 

11 

0030 

UCALl 

0 529 

12 

0031 

I2MZy4 

•0 029 

IDRIV 

0039 

IGNORE 

0190 

ILDEL 

1368 

ILDEL2 

1511 

ILOAB 

0 037 

I N 

0012 

INMED 

0 171 

INPADR 

0147 

INPCTR 

0094 

I NPREL 

0086 

INPUT 

0232 

INP WRO 

0 085 

INPXCO 

0146 

INPXC1 

0148 

INPXCC 

0150 

ISA V 

0 032 

J UM P 

0225 

LCREP 

1202 

LGREP1 

1213 

L ORTA 8 

1471 

LENDC 

1996 

LENSDT 

0 061 

LGEPGF 

0189 

LINK 

0 092 

LINK1 

0185 

LNKCTR 

0193 

LNKEND 

0194 

LNKSTR 

• 0192 

• LOCENT 

1451 

LPO 

0701 

LP1 

0702 

L PI G 

0751 

LP11 

0755 

LPiiA 

0 761 

L PI 2 

0762 

LP12A 

0758 

L PI 3 

0764 

L Pi 4 

0772 

LP14A 

0 773 

LP1 5 

0787 

LP2 

070 3 

LP3 

0713 

LP4 

0 720 

LP5 

0 73 0 

LP6 

0732 

LP7 

0 734 

LP8 

0742 

LP9 

0749 

LPBNDY 

0 68 2 

LPENDC 

1997 

LRPTN 

1658 

LSSEGT 

00 20 

LSTLOC 

0799 

LSTM1 

0 53 6 

LSTM2 

0 540 

LSTM3A 

0542 

LSTM3B 

0 544 

LSTM3C 

0 55 4 

LSTM3D 

0553 

LSTM4 

0 567 

LSTM40 

0558 

LSTM41 

0568 

LSTM42 

D570 

LSTH43 

0 572 

L STM 4 A 

0 5 5 6 

L STM 40 

0 564 

LSTM4X 

0584 

LSTM5 

0585 

LSTM6 

0 597 

LSTM6A 

0625 

LSTM7 

060 7 

LSTM7 A 

0614 

LSTM7L 

0617 

LSTM7X 

0620 

LSTM8 

0 627 

LSTM8A 

0637 

LSTM8 B 

0652 

LSTM8C 

0 653 

LSTM9 

0635 

LSTM9A 

0 65 5 

LSTM9 B 

0661 

LSTM9D 

067 0 

LSTM9F 

0674 

LUO K 

1328 

LWP'TN 

1631 

MO 

0807 

MGQFF 

0155 

Ml 

0 817 

M 1 0 

0883 

M10 A 

0 89 0 

Mil 

0899 

■ M12 

090 2 

M13 

0 90 4 

M 1 4 

0915 

Ml 5 

0918 

Ml 5 A 

0 923 

M16 

0 92 8 

M 17 

0 93 6 

M17A 

093 9 

M18 

0 941 

Ml 9 

0950 

M19A 

0 958 

M2 

0819 

M20 

0961 

M2 DA 

0 966 

M2 OB 

0 972 

M22 

0978 

M23 

0981 

M23A 

0985 

M2 4 

0988 

M25 

0 989 

M26 

1011 

M3 

0822 

M3A 

0860 

M4 

0864 

M5 

0865 

M6 

0868 

M6A 

0869 

M7 

0870 

M7A 

0874 

M7FFF 

0152 

M8Q 00 

0153 

M9 

0 881 

MASS 

8047 

MAXENT 

0139 

MAXEXT 

0208 

M AXPGE 

0 211 

MAX SEC 

1194 

M DR IV 

0 041 

M ERROR 

0914 

MFFOO 

0154 

MI NEXT 

0 20 7 

MODIFY 

0 0 7 4 

M0NTA8 

0 230 

MO VI 

200 7 

MOVE 

2011 

M0V3 

2027 

MOVDSK 

1 998 

MOV El 

2030 

M0VE2 

2031 

M 0VE3 

2032 

MPO 

1 G 21 

MPl 

1029 

MPl 0 

1073 

■MPii . 

1079 

MPl 2 

1084 

MP13 

1088 

MPl 4 

1092 

MP 1 5 

1101 

MP15A 

1102 

MP16 

1142 

MP 1 8 

1146 

MP19 

1149 

MP2 

1032 

MP2 A 

1035 

MP3 

1042 

MP3 A 

1046 

MP4 

1047 

MP4A 

1051 

HP 5 

1053 

MP6 

1058 

MP7 

1060 

MP8 

106 6 

MP9 

1072 

MPERR 

1052 

MPTERM 

1086 

MS3 WCT 

0216 

MSIZV4 

0 80 0 

MTRMER 

0 9 01 

NAME 

0133 

NEGSW 

0157 

NGRLSW 

017 6 

NIN 

1478 

MINI 

1484 

NN 

1151 

NOJUMP 

0141 

NOKNB 

1321 

NOMTCH 

1675 

NOPAGE 

0212 

NOTLNK 

• 0098 

N OTP 

146 6 

NXT1D 

1411 

N XT INP 

0151 

NXTSEC 

140 6 

OETERM 

0040 

OHS 

1872 

OKNB 

1323 

OKNB1 

1351 

OKNB2 

1357 

OKNB3 

1360 

OKNH 

158 5 

QNTAB 

0229 

ou 

0013 

PAGADD 

183 3 

PAGE 

0 201 

PAR BAS 

0 213 

PARDEE 

0675 

PARLIM 

• 0214 

PARSTR 

0 068 

PARTI A 

00 65 

PART1C 

0067 

PART1L 

0064 

PARTBL 

079 8 

P COUNT 

1832 

PGENJM 

0 0 72 

PGEWRT 

0188 

PP 

1150 

PRESET 

018 0. 

. PRINT 2 

0149 

PRI NT 3 

014 5 

PRO BAS 

0078 

PROCOM 

0200 

PRODAT 

0199 

PRO GOT 

0 228 

PTN 

1626 

PTN1 

1651 

PTN BUF 

1735 

PTNERR 

1719 

PTN I 

1652 

PTNSET 

1621 

Q8UFR 

1278 

QGOM 

0 042 

QERR 

1247 

QHO’LD 

0 219 

QMASS 

0069 

QOUT 

1269 

• QSA V 

0130 

Q'TY PE 

0023 

QTYPEX 

1327 

R03 N£ 

1717 

REFER 

0073 

PEL 

1343 

RFWA 

1660 

RGOQY 

1667 

RGODVA 

1668 

RPTN 

1655 

RST ART 

eaio 

RTNPTN 

1625 

SATO 

2060 

SAT1 

2 064 

SAF10 

2124 

S AT I 1 

212 6 

SAT2 

2079 

SAI3 

2084 

SAT4 

2096 

SAT 5 

2100 

SAT 6 

2102 

SAT 7 

2119 

SAT 8 

2118 

SAT 9 

2117 

SATDON 

2109 

SATGO 

2048 

sat/ea 

0224 

SCAN 

0162 

SCA NSW 

0105 

SCHXIT 

0134 

SCN INP 

0159 

SCNTRM 

0158 

SCNXIT 

0161 

SECNXT 

1674 

SECTOR 

0220 

SCCVAL 

1195 

SERR1 

1429 

SERR2 

1440 

SETIO 

1312 

SET PTN 

161 8 

SI 

0 2 95 

SIB 

0046 

SIGNCK 

0066 

SIXTEN 

2053 

SOK1 

1442 

SOK2 

1456 

S OK 3 

1469 

STARG 

1310 

STARD 

1519 

STARG 

1536 

STARH 

1579 

STARI 

130 4 

STARL 

0533 

STA'RLP 

0696 

STARH 

080 4 

STARMP 

1018 

STARO 

1307 

STARS 

1428 

START 

1741 

STARJ 

1495 

STARV 

1506 

START 

0520 

starym 

0 514 

STIOER 

1326 

STORE 

1153 

STRSEC 

0215 
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o 

STRTEX 

0357 

STTYP1 

0 448 

STTYP3 

0 465 

SW6 


TO A 

1761 

T 1 

1775 

TIG 

18 55 

Til 

o 

T13 A 

1389 

T13B 

1890 

T13C 

1882 

T 13 D 

T22 A 

197 8 

T2A 

1794 

T3 

1814 

T30 


T8 

183 5 

T8 A 

1838 

T8B 

1841 

T8C 


TFLOUT 

0043 

TEMP 

0140 

TEMP 3 

0 226 

TEMPEX 

o 

TYPEQ 

3021 

TYPEQ1 

1244 

TYPEQ. 2 

12 58 

TYPEQ3 

VALU 

1459 

VALUE 

1450 

VALUEl 

1155 

WAT 


XrRADR 

0 217 

XFRNAM 

0132 

YD 

3 525 

Y 1 


YORDNL 

0636 

YPOINT 

0 677 

ZERO 

1344 
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SWTHIO 

1370 

SYMSTR 

0102 

SYSPGE 

0 18 4 

TO 

1754 


T 12 A 

1949 

T12AA 

1946 

T12B 

1961 

T13 

1873 


T14A 

1902 

T2 

178 4 

T 20 

iaoi 

T 21 

1812 

o 

14 

1823 

T5 

1825 

T 6 

1827 

T7 

1829 

TABLE 

0038 

TABSCH 

0135 

T AGO 0 1 

1862 

TCODE 

0011 


TESTAL 

1 461 

TMPSEC 

1834 

TOP 

0187 

TSECT 

1736 


TYPIO 

1369 

VAL10 

140 0 

VALID 

0016 

VALOK 

1539 

o 

W'PTN 

1628 

WRDCNT 

0112 

WRT OUT 

0057 

XCSNAM 

0170 


If Ml 

0518 

YM2 

0517 

YMCNTR 

1013 

YMORDN 

1014 
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00 0 6 
0007 
00 0 8 
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0010 
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0013 
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0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
00 23 

0024 
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0026 

0027 

0028 
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003 5 
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DATES 08/19799 


v- 


NAM ILOAD DECK-ID 018 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, 'LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-132******** 
01800002 
01800003 
018 0 0 00 4 


ENT SIGNGK 
ENT ILOAD 
ENT WRT OUT 
ENT LENSOT 
ENT DISKWR 
ENT F NOS EC 
EXT* ERFLAG 
EXT* LSSECT 
EXT* STRTBL 
EXT* IS A V 
EXT * WROADR 
EXT* MDRIV 
EXT* QCOM 
EXT* TELOUT 
EXT * I0RIV 
EXT* BACKGR 
EXT* QTYPE 
EXT* CM65 
ENT PRNT3 
ENT PRNT4 
ENT PRNT5 
ENT ADJOV1 
ENT CNVERT 
ENT LINK11 
ENT ENTSTR 
ENT F LG ADR 
ENT ISCAN 
ENT SCHT8L 
ENT RWFLAG 
ENT PGEFLG 
ENT SA 
ENT SO 
ENT VALUE 
ENT WORD 
ENT PAG END 
ENT PARSTR 
ENT LSTPGE 
ENT HINREF 
ENT MAX REF 
ENT MIN8AS 
FNT ADPAGE 
ENT FLGAQR 
ENT MINFLG 
ENT NXTBLK 
ENT DATBSO , DATLMO 
ENT 


65K SIGN CHECK ROUTINE 


NEXT AVAILABLE SECTOR FROM CONTRL 
BIT TABLE SAYING WHICH ENT/EXT PAi 
STARTING ADDRESS OF LOADER TABLE 

MASS STORAGE DRIVER 

INITIALIZER COMMENT DEVICE DRIVER 

STANDARD BINARY INPUT DRIVER 


0 18 0 0 0 G 6 
01800 GG7 
0 180 0 008 
01RD 0 00 9 
01800010 
01800011 
0180 0012 
01800013 
GES ARE USED. 018 00 01 4 
0180 0 015 
01800 016 
0180 0 01 7 
**MS0S 4.1**01800018 
0160 0 019 
01800020 
01800021 
018 Q 0 022 
01800023 
01800024 
01800025 
0180 0026 
01800027 
01800028 
01800029 

ROUTINE TO STORE AN ENTRY POINT IN LBR TABLE 01800030 

01800031 
01800032 
01800033 
01800 034 
0 18 0 C 03 5 
01800036 
01800037 
018 0 0 038 
01800039 
01800040 
01800041 
01800042 
01800043 
01800044 
01800045 
01800046 
01800047 
0 18 0 0 048 
01800049 

■DATA BASE AND LIMIT FOR PART 0 01800050 

DATBSi* D ATLM1 DATA BASE AND LIMIT FOR PART 1 01800051 


START ADDRESS OF PARTITION LOAD 
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o 

o 

o 

o 


o 


o 
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00 53 

0 0 22 


EQU 

ZERO ( $2 2 3 


00 5 4 

0 0 01 


EQU 

PGENUMt 1) 

o 

00 5 5 

0 0 02 


EQU 

REFER !? ) 

0056 

0057 

00 03 

-# 

EQU 

MODIFY! 31 



00 5 8 


* 



o 

0059 

0060 

0 0 01 

* 

EQU 

NUMSEC ( 1 ) 


0061 


*• 




0 0 62 


* 

LOADER TABLE ENTRI 

o 

0 0 63 

0 0 01 


EQU 

COMBASX1 ) 

006 4 

0 0 02 


EQU 

OATBASm 


0 0 6 5 

0 0 03 


EQU 

PRO BA S ! 3 ) 


0066 

00 04 


EQU 

C0MLIM14) 

o 

005 7 

0 0 05 


EQU 

DATLIMX5) 

00 68 

0 0 06 


EQU 

CSQLIMI 6 ) 


0069 

0 0 07 


EQU 

EXTCTRm 


00 70 

0 0 0 8 


EQU 

ENOSHXB > 

o 

0 0 71 

0 0 09 


EQU 

ABRLSWI 9) 

0072 

0 0 09 


EQU 

BGRLSW! 91 


0 0 73 
007 4 

0 0 Q A 

* 

EQU 

INPWRD! 1 0 ) 

o 

00 7 5 
007 6 

0 0 0 B 

& 

EQU 

INPREUli) 
CSQNUM! 1 2 ) 


0 0 77 
00 78 

oooc 


EQU 


o 

0 0 7 9 
008 0 

0 0 0D 

* 

EQU 

ENTPNT i 1 3 ) 


00 81 
0 0 82 

0 0 OF 

* 

EQU 

LINK! 141 

o 

00 83 
008 4 

00 OF 


EQU 

INPCTRl 15) 


0 0 8 5 


* 



o 

0 0 86 
00 8 7 

00 10 

* 

EQU 

NOFLNK! 1 61 

00 88 
0 0 89 

0011 

& 

EQU 

ENDINP! 17) 



0090 

0012 


EQU 

8LANKS118) 

o 

0091 

0013 


EQU 

SYMSTRI 19) 

0 09 2 


5* 

EQU 

SYMSTR+ 1 (2D ) 


0093 



EQU 

SYMSTR+2 <21 ) 

o 

0 0 9 4 
0095 

0016 

#■ 

EQU 

SCANSWf 22) 

009 6 


* 




0 097 


* 




0093 


* 



o 

0099 

0100 

0017 

* 

EQU 

BASE ! 2 3 1 


0101 

0102 

0 018 

& 

EQU 

WROCNTI 24) 

o 

0 1 Q 3 


#• 



0104 


*■ 




0105 


* 




o 


DATE! 08/19/99 


CELL FOR PAGE NUMBER - IN FLAG TABLE ENTRY 
CLLL FOR NUMBER OF TINES A PAGE HAS BEEN 
REFERENCED - IN FLAG TABLE ENTRY 
CELL TO INDICATE IF A PAGE HAS BEEN MODIFIED 
WHILE IN CORE. - IN FLAG TABLE ENTRY 
D = NOT MODIFIED, 1 = MODIFIED 
NUMBER OF^SECTORS PER PAGE 


6 CARDS DELETED 

"RELOCATION BASE 
RELOCATION BASE 
RELOCATION BASE 
HIGHEST ADDRESS 
HIGHEST ADDRESS 
HIGHEST ADDRESS 
NEXT AVAILABLE 


66*1 455 

FOR COMMON STORAGE 
FOR DATA STORAGE 
FOR PROGRAM BEING LOADED 
OF COMMON STORAGE *1 
OF DATA STORAGE +1 
OF COMMAND SEQUENCE STORAGE 
LOCATION IN EXTERNAL TABLE 
8ZS BLOCK 


01800053 
01800054 
01800 055 
0180 0056 
01800057 
01300058 
01800059 
01800060 
01800061 
01800062 
0 180 G 0 6 3 
01800064 
0180 0 065 
0180 Q 066 
01800067 
+101800063 
0 180 0 069 
0180 0 07 0 


= 1 IF LAST BYTE IN RB'D OR 
0 IF ABSOLUTE EXTERNAL, 1 IF RELATIVE EXTERNALO 18 0 0 07 1 
SWITCH TO INDICATE IF BACKWARD RELOCATION 01800072 

IS SPECIFIED WITH 16-BIT ARITHMETIC 1= YES , 0 =NOO 16 Q 0 0 7 3 


END OF COMMAND SEQUENCE STORAGE 
CONTAINS RELATIVE FLAG FOR WORD OF COMMAND 
SEQUENCE IN RED OR SZS BLOCK 
NUMBER OF SECTORS RESERVED BEFORE START 
OF COMMAND SEQUENCE STORAGE 
CONTAINS THE ADDRESS ASSOCIATED WITH THE 
NAME IN A ENTRY OR EXTERNAL BLOCK 
CONTAINS ADDRESS ASSOCIATED WITH NAME 
IN LOADER TABLE 

USED TO ADDRESS CORE LOCATION OF COMMAND 

SEQUENCE STORAGE AT LOAD TIME 

USED TO HOLD ADDRESS OF ENTRY FOR TABLE 

SEARCH AND TABLE STORE ROUTINES 

FLAG =1 IF UNPATCHED EXTERNALS EXIST 

LAST STORAGE ADDRESS +1 AT END OF 

RELOCATABLE BINARY LOAD 

ASCII CODE FOR TWO SPACES 

SET TO THE ASCII CODE FOR THE CHARACTERS IN 
THE FIELD BEING PROCESSED BY SCAN, IF FIELD 
IS NUMERIC SYMSTR=0. 

IF BIT ZERO =0 AND FIELD 
NUMERIC, THE NUMBER WILL 
DECIMAL UNLESS PRECEEDED 
IF BIT ZERO =1 AND FIELD 
NUMERIC, THE NUMBER WILL 
HEXIDECIMAL REGARDLESS OF 


BEING PROCESSED 
BE PROCESSED AS 
BY $ 

BEING PROCESSED 
BE PROCESSED AS 
OCCURENCE OF $ 


IS 


IS 


BASE OF SYSTEM INITIALIZER 
CHARACTER REFERENCE COUNTER - SET TO STORAGE 
ADDRESS OF THE FIRST CHARACTER OF A FIELD 
TO 8£ PROCESSED. BIT ZERO IS R/L INDICATES 

0 = FIRST CHARACTER IN LEFT HALF OF WORD 

1 = FIRST CHARACTER IN RIGHT HALF OF WORD 


01800074 
01800075 
01800076 
01800077 
01800078 
01800079 
01800080 
01800 081 
01800082 
0180 0 083 
01800 084 
01800085 
0 180 0 08 6 
01800087 
01800088 
01800 089 
01800090 
Q1800Q91 
01800092 
01800 093 
01800094 
01800095 
01800096 
01800097 
018Q0098 
01800099 
01800100 
01800101 
01800102 
0 18 C 0 10 3 
01800104 
0180010 5 


O 


O 


o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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010 6 

0019 


EQU 

COUNT 1(25) 


010 7 


* 




010 8 

0 0 1 A 


EQU 

BZS SWT 2 6) 

LJ 

0109 






0110 


* 




Dill 

0 0 1 B 


EQU 

C0UNT2< 27) 


0112 

0 0 1 B 


EQU 

BLKGNT I 27) 


0113 






0114 


& 




0115 

0 0 1 C 


EQU 

SW5 '(2 85 


Oil 6 


W- 




0117 






Oil 8 

Q 0 ID 


EQU 

ASA VC 29 ) 


0119 

0 0 IE 


EQU 

QSAVI 30 ) 


0120 


* 

EQU 

ISAVI31) 

O 

0121 

0 0 20 


EQU 

XFRNAMC32) 


0122 

0 0 23 


EQU 

NAME 135 > 


0123 

0 0 27 


EQU 

SCHXIT ( 39) 


0124 

0 0 28 


EQU 

TA8SC HI 40) 


0125 


* 




0126 

Q02B 


EQU 

GENTA DC 43) 


0127 


* 




0128 

0 0 2C 


EQU 

MAXENTC 44) 

U 

0129 

0 0 2D 


EQU 

TEMPT 45 ) 


0130 

0 0 2E 


EQU 

TEMPI (46) 


0131 

0 0 2F 


EQU 

WMXSEC ( 47) 

r-\ 

0132 

0 0 30 


EQU 

NOTR.A NC 48) 

( sj 

0133 

0 0 31 


EQU 

NOJUMPT 49) 


0134 


* 




0135 

0 0 32 


EQU 

FLGLGNt 50» 

r~\ 

013 6 

0 0 33 


EQU 

BINASCI 51) 


0137 

0035 


EQU 

PR3XITI 53) 


0138 

0 0 36 


EQU 

PRINT3I54) 


0139 

0 0 39 


EQU 

INPXC0T 57) 


0140 

0 0 3 A 


EQU 

INPXC1 ( 58) 


0141 

0 0 3B 


EQU 

PRINT 2 C 591 


0142 

Q0 3E 


EQU 

INPXCCt 6 2) 


0143 

0 0 3F 


EQU 

NXTINPT 63) 


0144 

0 0 41 


EQU 

M7FFF T65 ) 


0145 

0 0 42 


EQU 

MSB 0 0 -16 6) 


0146 

Q 0 43 


. EQU 

MFFFF To 7 ) 


0147 

0 0 44 


EQU 

MFF00C68) 

o, 

0148 

0 0 45 


EQU 

M00FF (69) 


0149 

0 0 46 


EQU 

ASKIIT70) 


0150 

0 0 47 


EQU 

NEGSWT7 1) 


0151 

0 0 48 


EQU 

SCNTRMC 72) 


0152 

0 0 49 


EQU 

SCNINPT73) 

LJ 

0153 


* 




0154 

0 0 4A 


EQU 

SCNXITT74) 


015 5 

0 0 4B 


EQU 

SCAN! 75 ) 

r~\ 

015 6 

0 0 4E 


EQU 

CSN AMEC 7 8) 

D 

015 7 

0 0 4F 


EQU 

XCSNAMJ79) 


0158 

0 0 50 


EQU 

INMED (8 0) 


o 


o 


DATE: 08/19/99 


CHARACTER COUNTER- SET TO COMPLEMENT OF 01800106 
MAXIMUM NUMBER OF CHARACTERS A FIELD MAY HAVE 01800107 
USED DY SUBROUTINES COMMON TO RBDPRO AND 01800108 
BZSPRO TO DETERMINE BLOCK TYPE. 01800109 
0= RBD BLOCK -1= BZS BLOCK 01B00110 
COUNTER USED BY SCAN 01800111 
BLOCK COUNTER CONTAINS WORD COUNT FOR 01800112 
NUMBER OF SEQUENTIAL LOCATIONS TO BE SET 0180011 3 
TO ZERO IN A BZS BLOCK ENTRY 01800114 
FLAGWQRD FOR LOADER TABLE SEARCH ROUTINE 0180011 5 
=0 MATCH HAS BEEN FOUND IN TABLE 01800116 
=- (NEGATIVE} MATCHING NAME NOT FOUND 01800117 
TEMPORY STORAGE FOR A-REQISTER 01800118 
TEMPORY STORAGE FOR Q-REQISTER 01800119 
TEMPORY STORAGE FOR I-REQI STER 01800120 
STORAGE OF SIX CHARACTER TRANSFER ADDRESS 01800121 
ASCII CODED INFORMATION 01800122 
EXIT FROM TABLE SEARCH ROUTINE 01800123 
ENTRY ADDRESS FOR RT-J TO ROUTINE FOR 01800124 


SEARCHING LOADER TASLE FOR ENTRIES OR EXT 
ADDRESS OF ENTRY BEING CURRENTLY EXAMINED 
IN ENTRY POINT TABLE 

LARGEST ADDRESS BEING USED IN ENTRY POINT 
TEMPORARY COUNTER 
TEMPORARY COUNTER 

WORD ADDRESS OF MAXSEC IN ENT/EXT TABLE 

FLAG = 0 IF TRANSFER ADDRESS IS NEEDED 

FLAG = 0 IF NO JUMP INSTRUCTION IS NEEDED 

JUMP AROUND DATA OR COMMON 

NUMBER OF CORE FLAGS PER PAGE 

STORAGE OF ASCII CODE FOR NUMBER CQNVERSI 


CURRENTLY EXAMINED 


ENTRY POINT 


EXTERNAL01800125 


CONVERSION 


■ENTRY TO ERROR OU 
CONTAINS ADDRESS 
CONTAINS ADDRESS 
ENTRY TO FATAL ER 
CONTAINS ADDRESS 
JMP INSTRUCTION T 
MASK OF $7FFF 
MASK OF S80D0 
MASK = SFFFF 
MASK OF $FF0 0 
MASK OF SOOFF 
ASCII MODE SWITCH 


ERROR OUTPUT ROUTINE 
ADDRESS CONSTANT INPUT 
ADDRESS CONSTANT INPUT * 1 
FATAL ERROR OUTPUT ROUTINE 
ADDRESS CONSTANT INPUT - 3 
UCTION TO READ NEXT BLOCK 


MAG TAPE 

SET BY SCAN TO VALUE OF LEGAL ALGEBRAIC SI 
SET BY SCAN TO ASCII CODE FOR FIELD TERMIN 
SET BY SCAN TO BINARY VALUE OF A NUMERIC 
OPERAND AFTER ITS CONVERSION FROM ASCII 
EXIT FROM SCAN ROUTINE 
ENTRY TO THE SCAN ROUTINE 

CODE FOR CONTROL STATEMENT BEING PROCESSED 
CODE FOR LAST CONTROL STATEMENT PROCESSED 
INPUT MEDIUM SWITCH 


SIGN 


0180 Q126 
0180012? 
01800 128 
01800129 
01800130 
01800131 
0 18 0 G 132 
01800133 
01800134 
0180013 5 
01800136 
01800137 
01880138 
01800139 
01800140 
01800141 
01800142 
01800143 
0 180 G 144 
01800145 
01800146 
018 0 0147 
01800148 
01800149 
01800150 


TER MI NATORO180Q151 
ERIC 01800152 

CII 01800153 

018 0 015 4 
01800155 
CESSED 018 0 0 15 6 

ESSEO 01800157 

01800158 
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o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 

o 

o 

o 
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0159 

0160 
0161 

0 0 51 

& 

¥ 

EQU 

ADJXITl 81 ) 

0162 

0 0 52 


EQU 

AQJOVF (82) 

0163 

0 0 55 


EQU 

E XTPCH ( 85) 

0164 

0 0 56 


EQU 

NGRLSWI 86) 

0165 

0166 

0 0 57 

* 

EQU 

ARIT151 87) 

0167 

0168 

i3 0 58 


EQU 

PRESET C 8 8 ) 

0169 

0170 

0 0 59 

* 

EQU 

CNVXITI89) 

0171 

0 0 5A 


EQU 

CONtfRTI 90) 

0172 

0 D 50 


EQU 

PR4XIT 193) 

0173 

0 0 5E 


EQU 

PRINT 41 9 4) 

0174 

0061 


EQU 

PR5XITC 97) 

0175 

0 0 62 


EQU 

PRI NT 5 I 9 8 ) 

0176 

0 0 65 


EQU 

A IN PUT ( 1 01) 

0177 

0 0 67 


EQU 

LKiXIT (103) 

0178 

0 0 68 


EQU 

LINKU104) 

0179 

0 068 


EQU 

ENT PGS (10 7) 

0180 

QO 6C 


EQU 

TOP (108) 

0181 

0 0 6D 


EQU 

PGEWRTt 109) 

0182 

0 0 6E 


EQU 

LGEP G£ { 110) 

0183 

0 0 6F 


EQU 

IGNOREflll) 

0184 
018 5 

0 0 70 


EQU 

LNKSTRf 112) 

0186 

0071 


EQU 

LNKCTRl 113) 

0187 

0 0 72 


EQU 

LNKENDC 114) 

0188 

0 0 73 


EQU 

ENTST 0 1 115) 

0189 

0074 


EQU 

ENTST 1 C 1 1 6) 

0190 

0 075 


EQU 

AODR1117) 

0191 

0 076 


EQU 

EXTSTR1 118) 

0192 

0 077 


EQU 

CORARRI 119) 

0193 

0 073 


EQU 

PRO DAT 1 120) 

0194 

0 079 


EQU 

PR0C0MI121) 

019 5 

0 0 7A 


EQU 

PAGE! 122) 

0196 

0197 

0D7B 

#- 

EQU 

CSQCfRI 123) 

0198 

0199 

0D7C 


EQU 

CEXTAD ( 124) 

020 0 
0 23 1 

0 0 70 

* 

EQU 

EXT ADR! 124) 

0202 

0 0 7D 


EQU 

MIN EXT 1125) 

0203 

0 0 7E 


EQU 

MAXEXTf 126) 

020 4 

0 0 7F 


EQU 

ENTSEC1 127) 

02 0 5 

0 0 80 


EQU 

GSQSEC K 1 2 8 ) 

Q 2 0 6 

00 81 


EQU 

MAXPGEI 129) 

0207 

0 082 


EQU 

NOPAGE1 130) 

0208 

0 083 


EQU 

PARBASi 131 ) 

020 9 

0 0 84 


EQU 

PARLI Ml 132) 

0210 

0 085 


EQU 

STRSEC1 133) 

0211 

0 0 86 


EQU 

MSDWCT (134) 


0 = COMMENT DEVICE 

1 = BINARY INPUT DEVICE 
EXIT FROM ADDRESS ARITHMETIC ROUTINE 
ENTRY CELL FOR ADDRESS ARITHMETIC SUBROUTINE 
FLAG - NEGATIVE IF EXTERNAL NOT PATCHED 
FLAG - 0= POSITIVE RELOCATION 

1= NEGATIVE ADDRESS RELOCATION 

0 = USE 15 BIT ARITHMETIC 

1 = USE 16 BIT ARITHMETIC 

USED TO HOLD CONTENTS OF A WORD READ INTO 
BY THE PAGING ROUTINE DURING A TABLE SEARCH 
EXIT FROM CONVERT ROUTINE 

ENTRY FOR BINARY TO ASCII CONVERSION ROUTINE 
EXIT FROM PRINTING PROGRAM NAME 
ENTRY TO PRINT PROGRAM NAME 

ROUTINE TO PRINT OUT ENTRY POINT NAMES 
A-REGISTER CONTENTS UPON ENTRY TO LOADER 
EXIT FROM LINK ROUTINE 
ENTRY FOR LINK ROUTINE 

STARTING ADDRESS OF ENTRY POINT TABLE *EXTRA* 
HIGHEST CORE LOCATION AVAILABLE FOR THIS LOAD 
FLAG =1 IF ANY PAGE WRITTEN TO MASS STORAGE 
LARGEST COMMAND SEQUENCE PAGE USED 
FLAG SAYING TO IGNORE DUPLICATE ENTRY POINTS 
WHEN LINKING *M OR *MP TO CREP OR CREP1 
ADDRESS OF LINK TABLE 

NEXT AVAILABLE LOCATION IN LINK TABLE 
LAST ADDRESS +1 IN LINK TABLE 
STARTING ADDRESS OF PARTO ENTRY POINTS 
STARTING ADDRESS OF PARTI ENTRY POINTS 
TEMPORARY USED BY PAGE 

WORD ADDRESS OF START OF EXTERNAL TABLE 
LOWEST LOCATION AVAILABLE FOR USE BY LOADER 
FLAG - NON-ZERO IF PROTECTED DATA IS DECLARED 
FLAG - NON-ZERO IF PROTECTED COMMON DECLARED 
LENGTH OF PAGE FOR MASS MEMORY - MUST BE 
A MULTIPLE OF 96 

LAST ADDRESS OF PROGRAM COMMAND SEQUENCE 
STORAGE *1 

ADDRESS OF EXTERNAL BEING CURRENTLY PROCESSED 
FROM EXTERNAL TABLE 
SAME AS CEXTAD 

FIRST WORD ADDRESS OF SYSTEM EXTERNAL TABLE 
LAST WORD ADDRESS OF SYSTEM EXTERNAL TABLE 
STARTING SECTOR OF ENTRY/EXTERNAL TABLES 
STARTING SECTOR OF COMMAND SEQUENCE IMAGE 
MAXIMUM PAGE NUMBER THAT CAN BE USED ON DISK 
NUMBER OF PAGES IN CORE 
ADDRESS OF STARTING PARTITION 
LAST WORD ADDRESS +1 OF LAST PARTITION 
STARTING SECTOR OF IMAGE ON MASS MEMORY 
NUMBER OF WORDS STORED ON MASS MEMORY 


01800159 
01800160 
01800161 
0 18 0 G 16 2 
01800163 
0180 0164 
01800165 
01800166 
01800167 
GOREO 18 00168 


01800169 
01800170 
01800171 
018 0 017 2 
018 0 017 3 
01800174 
01800175 
0 18 0 017 6 
01800177 
018QG178 
01800179 
01800180 
0130 0181 
0 1800182 
01800183 
018.0 018 4 
01800185 
0180 018 6 
01800187 
01800188 
01800189 
01800190 
01800191 
01800192 
01800193 
01800194 
0 180 0 19 5 
01800196 
01800197 
01800198 
01800199 
018 0 0 200 
0180020 1 
01800202 
0180020 3 
01800204 
01800205 
0180 0206 
0 180 0 2D 7 
01800208 
0180 0209 
01800210 
01800211 



I LOAD 



PAGE 5 

0212 

00 87 


EQU 

XFRADRl 135) 

0213 

0 0 88 


EQU 

AHOLD 113 6) 

0214 

0 0 89 


EQU 

QHOLD 1137) 

0215 

0 0 8 A 


EQU 

SECTOR! 138) 

0216 

0 0 8B 


EQU 

ECREP (13 9) 

021 7 

0 0 8C 


EQU 

ECREPlt 140) 

0218 

0 OSD 


EQU 

EXT5WTT 141) 

0219 

0 0 8E 


EQU 

SA1/EA (142) 

022 0 

0 08F 


EQU 

JUMP! 143) 

0221 

0 0 90 


EQU 

TEMP3 f 1 44) 

0222 

0 0 91 


EQU 

FLSBS E ? 145 ) 

0223 

0 092 


EQU 

PROGCT (146) 

0224 

00 93 


EQU 

ONTAB (1 47) 

0225 

00 94 


EQU 

MONT A Bf 1 48 ) 

022 6 

0 0 95 


EQU 

FLG BS1 (149) 

G22 7 

0 096 


EQU 

INPUT (150) 

0228 

0229 

0230 

P0003 0001 

LENSDT 

*** 

B2S 

LENSDT I 1 ) 


DATE'S 08/19/99 


TRANSFER ADDRESS OF NAME FROM XFR BLOCK 

TEHPORY 

TEMPO RY 

NUMBER OF WORDS IN A SECTOR 
END ADDRESS OF CREP TABLE 1 

END ADDRESS OF CREP1 TABLE 1 

FLAG - NON-ZERO IF PROCESSING EXTERNAL 
TEMPORARY 
JUMP FLAG FOR II 
TEMPORARY 

BASE ADDRESS OF CORE FLAGS 
LENGTH OF PROGRAM FROF NAM 
*Y ORDINAL COUNTER FOR II 
* YM COUNTER. FOR 11 
INITIAL ADDRESS OF SYSTEM 
INPUT BUFFER 

NUMBER OF PAGES USED FOR SYSDAT - 
AND DIRECTORY (CORE RESIDENT PAGES) 

SET UP AFTER AFTER SYSDAT IS LOADED 


TABLE 
CA RD 


FLAG TABLE 



0180 

0212 


0180 

0 213 


0180 

0 214 


018 0 

0215 

32*512 


* 

32*512 


* ¥* * 

BLOCK 

018 0 

0217 


018G 

0 218 


0180 

0219 


0180 

0 22 0 


0180 

0221 


0180 

0222 


0180 

0 22 3 


0180 

0224 


018 0 

0 22 5 


0180 

0 22 6 

66*145 

50180 

0 22 7 

66*14550180 

0 22 8 

66*145 

50 18 Q 

0229 


ILOAD 


PAGE 


6 


DATE? 08/19/99 


0232 

0233 

0234 

0235 
023 6 

0237 

0238 

0239 

0240 

0241 


0243 

0244 

0245 

0246 


P0 00 1 

OBOO ILOAD 

NOP 

0 

RETURN ADDRESS OF CALLER 

P00 02 

6165 

STA- 

AINPUT, I 

SAVE A-REGISTEP PARAMETER 

P0 003 

0 C OF 

ENQ 

$ F 

MASK OFF THE LOADER FUNCTION CODE 

P 0 004 

08B6 

LAQ 

Q, A 

AND SAVE IT IN EOTH REGISTERS 

P00 05 

0 F El 

LLS 

1 

multiply function code by two to compensate 

POOO 6 

09F9 

INA 

T YPEL D-L ASTFC 

FOR TWO WORD JUMPS IN TABLE 

POO 07 

0 121 

SAP 

ILOAD 1- *-l 

SKIP IF FUNCTION CODE IS INVALID 

P00Q8 

1 A 0 4 

JNP* 

TYPELD » Q 

VALID FUNCTION, GO TO PROCESS 

P 0 0 0 9 

COOO TL0ACJ1 

LDA 

= A 1 4 

INVALID LOADER FUNCTION, INFORM OPERATOR 

POOOA 

313 4 



POOOB 

1 1 3 B 

JMP- 

PRINT2, I 

AND ABORT INITIALIZATION 

P900C 

1800 TUPELO 

JHP 

LOADER 

0 = RELOCATABLE BINARY LOAD 

POQOD 

0 005 




POOOE 

18 00 

JMP 

LNKENT 

1 = LINK PROGRAM ENTRY POINTS 

P 00 OF 

0 2 5£ 




P0010 

1800 

JMP 

PRNEXT 

2 = PRINT UNPATCHED EXTERNALS 

POOH 

0 3 CD 
0012 P 

EQU 

LASTFCI*) 

END OF FUNCTION TABLE 


01800231 
O18G0232 
01 8 0 D 233 
01800234 
01800235 
01800236 
018 0 0 237 
01800238 
01800239 

01800 240 


01800242 

01800243 

01800244 

01800245 


ILOAD 


PAGE 


BEGIN 


R E L 


P 0 0 1 2 
PG 013 
PQQ14 
P0 015 
P-0016 
POO 17 
P 0 0 1 8 
P0019 
POOIA 
P001B 
P001C 
POO ID 
POQ1E 
PO OIF 
Pfl 0 20 
PO 021 
P 0 0 2 2 
PO 0 23 
P 0 0 2 4 
PO 0 25 
PO 0 26 
P 0 0 2 7 
P 0 0 28 
PO 029 
P 0 0 2 A 
P002B 
P3Q2C 
P 0 0 20 
P002E 
P0Q2F 
PQ030 
P 0 0 3 1 
P 0 03 2 
P 0 0 3 3 
PQ 03 4 
P 0 035 
P 0 0 3 6 
PO 0 3 7 
P 0 0 38 
P 0 0,3 9 
PO 0 3 A 
P003B 
pqq;3C 
P003D 
P003E 
P003F 
P 0040 
P 0 041 


CO 00 
00 OA 
6805 
5800 
7FFF 
5803 
1800 
FFFE 
OBOO 
OCOO 
Cl 39 
5800 
7FFF 
0101 
1CF9 
0 A31 
113B 
Cl 96 
9000 
20 50 
0101 
1815 
C14E 

0 9 FC 
0110 
Cl 03 
01QB 
90E8 

01 19 
C 0 E B 
8 0E6 
6103 

0 8 42 
30 8 0 
0 0 60 

01 41 
0901 
68C8 
COOO 
0 0 2F 
68D.E 
1835 
Cl 96 
0 F 43 
A 0 00 
0 0 7F 
D9D5 
0102 


* COME HERE TO CHECI 

LOADER LOA =XSW1A-SW1-1 

STA W SW1'+1 
NXTBLK RTJ BAQKGR 

RTJ* NXTBIN 
SW1 JMP SW1 

NXTBIN NOP 0 
ENQ 0 

LDA- INPXC Ot I 
RFJ IDRIW 


SAZ 

JMP* 

L0AD12 ENA 
JMP- 
SW1A LQA- 
SUB 

SAZ 

JNP* 

LDA- 

I N A 

SAN 

LDA - 

SAZ 

SUB- 

SAN 

LDA- 

ADD- 

STA- 

CLR 

dvi 

SQZ 

INA 

EVNP STA* 
L0AD13 LOA 


LOAOi 2-^-1 
INXTBIN ) 
$31 

PRINT2, I 
INPUT, I 
= NS2 0 5 0 

1 

L0AD14 
CSNAM.E, I 
-3 

LOAQ13-'*-l 
PRO PAS, I 
L0AQ13-*-l 

$EB 

LOA D1 3- * -1 

$EB 

$E6 

PROBAS, I 
Q 

= N$60 


L0AD14 


STA* 

JMP* 

LOA- 

ARS 

AND 


SWU-1 
NAHPRO 
INPUT, I 

= N$7F 

- $2 A 

LOA 01 6- »-l 


DATEi 08/19/99 



ILOAD 


PAGE 


8 


DATES 08/19/99 


C 2 9 2 

PO 042 

0 A33 

L0AD1 5 

ENA 

$33 

ERROR 3, OUT OF ORDER INPUT BLOCK 

01800291 

0293 

POO 43 

1 1 3 B 


JMP- 

PRI NF 2 , I 


01800292 

0294 

P 0 0 44 

C 139 

L0AD16 

LDA- 

INPXGO , I 


0180 0 293 

0295 

P 0 0 45 

0 802 


SE'T 

Q 


018GG294 

0296 

PO 0 46 

1C00 


JMP 

(ILOAD) 

RETURN TO CONTROL 

01800295 


PO 0 47 

FFB9 





0298 



* 

COME 

HERE TO CHECK 

FOR BZS, RBD, OR ENT 

0180 0 29 7 

0300 

P0048 

Cl 96 

SW1B 

LDA- 

INPUT, I 


01800299 

030 1 

PO 0 49 

0 8 42 


CLR 

Q 


0 18 C 0 30 0 

0302 

P 0 04 A 

0 FE3 


LLS 

3 


01800301 

0303 

P004B 

0F4B 


ARS 

11 


0 180 0 30 2 

0304 

P004C 

0141 


SQZ 

LOA 017- *-l 


01800303 

0305 

P00 4D 

0101 


SAZ 

L0AD1 8- *-i 


01800 304 

0306 

P004E 

18 F3 

L0AD17 

JMP* 

L0AD15 

OUT OF ORDER INPUT BLOCK 

01800305 

0307 

P004F 

GAFT) 

L0AD18 

ENA 

-2 


0180030 6 

030 8 

P0050 

0836 


A A Q 

A , Q 


01800 30 7 

0309 

PO 051 

0 9 F€ 


INA 

-3 


01800308 

0310 

P 0 05 2 

0128 


SAP 

SW1BJ1-*-! 

SKIP IF NOT RBD, BZS, OR ENT 

01800309 

0311 

PO 0 53 

0 F A 1 


QLS 

1 


0180 0 310 

0 312 

POO 5 4 

1 A G 1 


JMP* 

LOA 01 9, Q 


01800311 

0313 

P 0 0 55 

1800 

L0AD1 9 

JMP 

RBQPRO 

JUMP TO PROCESS RED BLOCK 

01800 312 


P 0 056 

00F4 





0314 

P Q 057 

18 00 


JMP 

BZSPRO 

JUMP TO PROCESS BZS BLOCK 

0180 0 313 


PO 058 

0 0 EE 




0315 

P0D59 

1800 


JMP 

ENTPRO 

JUMP TO PROCESS ENT BLOCK 

01800314 


POOS A 

01C2 





0 31 6 

PO 0 58 

CO 00 

SW1BJ1 

L DA 

=XSW1C-SW1-1 

SETUP JUMP FOR EXT OR XFR BLOCKS 

01800315 


PD05C 

0 0 45 




0317 

P005D 

68 BB 


ST A* 

SW1+1 


0180031 6 

0318 

P005E 

Cl 96 

SWIG 

LDA- 

INPUT ,1 


01800317 

0319 

P005F 

08 42 


CLR 

Q 


018GQ318 

0320 

P 0 0 60 

GFF3 


L.LS 

3 


01800319 

0321 

PO 06 1 

OF 4B 


ARS 

11 


0180 0 32 0 

0322 

P 0 06 2 

0101 


SAZ 

LOADS 0 - *-i 

SKIP IF BITS 0-12 ARE ZERO 

018 0 0 321 

0323 

P 0 063 

18DE 


JMP* 

LOA 015 

OUT OF ORDER INPUT BLOCK 

01800322 

0324 

PO 0 64 

ODFA 

LOA D2 0 

INQ 

-5 

IS THIS AN EXT BLOCK 

01800323 

0325 

PO 065 

01 52 


SQN 

LOAD21- *-l 

NO, SKIP 

01800324 

0326 

POOS 6 

18 0 0 


JMP 

EXT PRO 

YES, PROCESS EXTERNAL BLOCK 

0180 0 32 5 


PO 067 

0 1 D6 





0327 

P0G68 

ODFE 

L0AD21 

INQ. 

-1 

IS THIS A XFR BLOCK 

01800326 

0328 

P 0 069 

01 41 


SQZ 

L0A02 2-*-l 

YES 

0 180 Q 32 7 

0329 

P 0 06 A 

18D7 


JMP* 

LOA 01 5 

NO, OUT OF ORDER INPUT BLOCK 

0180 0 328 

0330 

PO 0 68 

coee 

LOA 022 

LOA 

=XSW1A-SW1-1 

SETUP JUMP TO PROCESS NAME BLOCK 

01800329 


P0O6C 

0 0 0 A 





0331 

PO 0 60 

68 AB 


STA* 

SWl+i 


01800330 

0332 

P006E 

18 00 


JMP 

XFRPRO 

JUMP TO PROCESS XFR BLOCK 

01800331 


P006F 

01F2 






{ ) 





ILOAD 



o 

0334 



* T H I 

S 

o 

0336 

P 0 0 7 0 

Cl 97 

NAMPRO 

LDA- 


0337 

P0 071 

0111 


SAN 

o 

0338 

P 0 0 7 2 

1831 


JMP* 

0339 

PQ 073 

0121 

NAM PI 

SAP 


0340 

P 0 0 7 4 

18 57 


JMP* 


0341 

P0075 

C101 

NAMP2 

LDA- 

o 

0342 

P 0 076 

0 111 


SAN 

0343 

P 0 0 77 

1 8 0 D 


JMP* 


0344 

P0 078 

C 1 0 4 

NAMP3 

LDA- 


0345 

P 0 079 

E 1 01 


LDQ- 

o 

0346 

P007A 

F 1 97 


ADQ- 

0 34 7 

P00 7B 

41 IE 


STQ- 


0348 

P007C 

5800 


RTJ 



P007D 

0 0BC 



o 

0349 

0350 

P007E 

0131 

* 

SAM 


0351 

P007F 

1824 


JMP* 


0352 

P0080 

0900 

FUDGE 

INA 

o 

0353 

P0081 

0111 


SAN 

0354 

P0082 

18 49 


JMP* 


0355 

P0083 

1820 

FUDGE 1 

JMP* 

o 

0357 



4 

COME 


0359 

P 0 0 8 4 

Cl 04 

NAMP4 

LDA- 

o 

0360 

PTJQ85 

9197 


SUB- 

0361 

P 00 86 

6101 


STA- 

o 

0362 

0363 

0364 

P 0 087 

E 1 06 

* 

4 

LDQ- 

0365 

POO 88 

5800 


RTJ 



P0089 

00 B0 




0366 

P0 08 A 

0124 


SAP 

o 

0357 

P 0 088 

Q 9 0 0 


INA 

036 8 

P008C 

0 112 


SAN 


0369 

P 0 0 80 

1800 


JMP 



P0 08E 

0089 



o 

037 0 

P008F 

0114 

NAMP6 

SAN 

0371 

0372 

P0090 

C199 

4 

LDA- 



0373 

P0 091 

0102 


SAZ 

o 

037 4 

P 0 09 2 

1800 


JMP 


P 0 0 9 3 

0 0 84 




0375 

P0 0 9h 

El 97 

NAMP6A 

LDQ- 


0376 

P 0 0 9 5 

F17B 


ADQ- 

o 

0377 

P 0 Q 96 

417B 


ST Q- 

0378 

P0 097 

COOO 


LDA 



P 0 0 98 

43 53 




o 


PAGE 9 DATE! 08/19/99 

IS THE NAME BLOCK PROCESSOR 018GG333 


I NPUT +1*1 
NAMPl-*-i 
N A M P 7 
N AMP2-* -1 
COHERR 
COMBAS, I 
NAMP3-*- 1 
NAMPA 
COMLIM,! 
COMBAS, I 
INPUTS! ,1 
QSAV,I 
SIGNCK 


FUDGE 

NAMP7 

0 

FUOGE1 

COHERR 

NAMP7 


PICKUP THE NUMBER OF WORDS OF COMMON 018QG335 
SKIP IF COMMON IS REQUESTED 01800336 
NO COMMON, GO TO CHECK FOR DATA 01800337 
IS COMMON DECLARATION .LT. S7FFF 01800338 
NO, PRINT PROGRAM NAME AND TAKE ERROR EXIT 018QG339 
HAS COMMON BEEN PREVIOUSLY DECLARED 01800340 
YES, MAKE SURE THAT THIS BLOCK IS LEGAL 01800341 
NO, GO DOWN AND RESERVE THIS BLOCK 0180 0 342 
PICKUP THE ADDRESS OF THE TOP OF COMMON 01800343 
PICKUP THE ADDRESS OF THE BOTTOM OF COMMON 01800344 
ADD THE SIZE OF THE NEW COMMON DECLARATION 01800345 
TEMPORARILY SAVE Q 0180 0346 
TEST TO SEE IF NEW COMMON DECLARATION 01800347 


IS SMALLER THAN THE PREVIOUS DECLARATION 
A.GE,Q VALID COMMON DECLARATION 


SKIP IF NOT -0 

ERROR, COMMON DECLARATION TOO BIG 


0180 fi 348 
0180 0349 
0180 0 35 0 
117*4319******** 
117*4319******** 
117*4319******** 
117*431 944444*44 


HERE FOR THE FIRST PROGRAM OF THE LOAD TO DECLARE COMMON 


COMLIM, I 
INPUTS-! ,1 
COMBAS, I 


GSQLIM, I 
SIGNCK 

NAMP6-* -1 
0 

NAMP6 

GQRQVF 

NAMP6A- *-l 

INPUT +3 , 1 
NAMP6A- *-l 
COROVF 

I NPUT +1 , I 
CSQCf R » I 
CSQCTR, I 
= AGS 


01800 353 

PICKUP THE UPPER BOUND OF COMMON 0180 0 355 
SUBTRACT THE LENGTH OF THE COMMON BLOCK BEING 01800356 
DECLARED AND USE THE RESULT AS THE BASE FOR 01800357 
ANY AND ALL COMMON DECLARED IN THIS LOAD 01800358 
MAKE SURE THAT THERE IS ROOM FOR BOTH THIS 01800 359 
COMMON BLOCK AND THE PROGRAM COMMAND SEQUENCE 01600360 
IN CORE SIMULTANEOUSLY Q13GG3bl 


SKIP IF THERE IS ROOM FOR BOTH 


SKIP IF NOT -0 
NOT ENOUGH ROOM, 


SET CORE OVFL SWITCH 


01800362 

117*4319******** 

117*4319******** 

01800363 


GO TO CHECK DATA DECLARATION IF THERE IS 
ROOM FOR COMMAND SEQUENCE STORAGE 
THERE IS NO ROOM FOR COMMAND SEQUENCE 
SKIP IF PROGRAM LENGTH IS ZERO 
NOT ENOUGH ROOM TAKE CORE OVFL .EXIT 

THE COMMON DECLARATION IS LEGAL SO 
INCREASE THE LENGTH OF COMMAND SEQUENCE 
TO INCLUDE COMMON. 


01800364 
01800 365 
0180 0 366 
0180 0 36 7 
01800 368 

0180 0369 
01800370 
018DQ 371 
01800 372 



G 


O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 

G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


ILOAO 


0379 

P0099 

6362 


0380 

PQ09A 

5800 



PO 09B 

00 01 

CSDIST 

0381 

P009C 

OBOO 

0382 

P009D 

CS F F 


0383 

P0Q9F 

€0 00 



P0 09F 

0 0 5F 


0384 

PG0A0 

0 8 32 


038 5 

P00A1 

Cl 01 


0386 

P00A2 

5814 


0388 



» 

0390 

P0 0 A3 

C 1 98 

NAMP7 

0391 

P0 GA4 

0111 


0 39 2 

P00A5 

18 5A 


0393 

P00A6 

0 121 

N AMPS 

0394 

P00A7 

1824 


0395 

P00A8 

C 1 0 2 

NAM Pi 1 

0 39 6 

P00A9 

0111 


0397 

POO AA 

1825 


0398 

PQGA8 

Ci 0 5 

NAMP12 

0399 

POOAC 

E 1 02 


040 0 

POO AD 

FI 98 


0^01 

POOAF 

5800 



PG OAF 

0 0 8 A 


0 40 2 

P00B0 

0131 


0403 

P00B1 

1 8 4E 


0 4 Q 4 

P00B2 

0900 

INTRMD 

0405 

P 0 OB 3 

0111 


0406 

P00B4 

1817 


040 7 

POOB5 

1 8 4A 

FUDGE2 

Q4Q 8 

POOB6 

0 0 00 

PRNTIT 

0409 

POOB7 

48 0 F 


0410 

POO 68 

515A 


0411 

P 0 0 89 

C 1 33 


0 412 

POO BA 

6842 


0413 

P03BB 

C 134 


0414 

POOBC 

6841 


041 5 

POO BD 

C809 


041 6 

POO BE 

OC 03 


0417 

P 0 0 B F 

5800 

X 


0 418 
0419 
0 4? 0 

0421 

0422 
0 42 3 

0424 

0425 

0426 


PQOCQ 

P00C1 

P00C2 

P0QC3 

P00C4 

P00C5 

po on 6 

PQGC7 

POOC8 

POOC9 


7FFF 
Cl 12 
6839 
6839 
6839 
1CF0 
0 0 00 
0 0 00 
0 0 00 
0 0 0 0 


SVQ 

DAT BS 0 
OATLMG 
DATBS1 
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DATE: 08/19/99 


ST A* BUFFER 
RTJ CSDIST 


STORE CS IN BUFFER 


NOP 0 
LD A* CSDIST 
LOO = XBUF FER-CSDI ST 


CALCULATE ABSOLUTE ADDRESS 


AAQ Q 

LDA- COM BAS, I 
RTJ* PRNTIT 


LOAD COMMON BASE AODRFSS 


COME HERE TO BEGIN PROCESSING DATA DECLARATION 


LOA- INPUTS, I 
SAN NAMP8-*-! 
JMP* NAMP9 
SAP NAMPi 1- *-i 
JMP* DATERR 
LDA- DAT BA S* I 
SAN NAMP.12-*-! 
JMP* NAMP1 3 
LDA- DATLIM, I 
LBQ- DATBAS, I 
ADQ- I NPUT+2 , I 
RTJ SIGNGK 

SAM INTRMD 
JMP* HAMP9 
INA 0 
SAN FUDGE2 
JMP* NAMP14 
JMP* NAMP9 
NUM 0 
STQ* SVQ 
RTJ- CONVRT, I 
LDA- BIN AS C, I 
ST A* BUFFER*! 
LDA- BINASCH.I 
ST A* BUFFERs-2 
LDA* SVQ 
ENQ 3 
RTJ QCOM 

LDA- BLANKS, I 
ST A* BUFFER 
ST A* BUFFER*- 1 
STA* BUFFER*- 2 
JMP* I'PRNTIT) 
NUM 0 
MUM 0 
NUM 0 
N UM 0 


PICKUP THE SIZE OF THE DATA DECLARATION 

SKIP IF DATA DECLARATION EXISTS 

NO DATA, JUMP DOWN TO CHECK PROGRAM LENGTH 

MAKE SURE SIZE OF DATA BLOCK .LT„ 7FFF 

ILLEGAL DATA DECLARATION 

HAS DATA BEEN PREVIOUSLY DECLARED 

YES, MAKE SURE THIS DECLARATION IS LEGAL 

NO, GO DOWN TO SETUP THIS DECLARATION 

PICKUP THE MAXIMUM ADDRESS AVAILABLE FOR DATA 

PICKUP THE STARTING ADDRESS OF DATA 

ADO THE SIZE OF THIS DATA DECLARATION 

CHECK FOR NEW DATA SMALLER THAN OLD 


01800373 

01800374 

018Q 0375 
01800376 
01800377 

01800378 

01800379 

01800380 


0180 0 38 2 

01800384 
01800 385 
01800386 
0180 0387 
01800388 
01800389 
01800 390 
01800391 
01800392 
01800393 
01800394 
01800395 


THE PREVIOUSLY 
DATA BLOCK OK 

SKIP IF NOT -0 


DECLARED DATA BLOCK 


01800396 
0180 0 397 
117*4319******** 
117*4319******** 
117*4319******** 
117*4319******** 
01800399 
0 180 0 400 
0180 0 401 
0 18 0 0 40 2 
0180 0 403 
01800 404 
01800 405 
01800406 
01800 40 7 
**MSQS 4.1**01800 408 


DATA BASE ADDRESS FOR PART 0 
DATA LIMIT ADDRESS FOR PART 0 
DATA BASE ADDRESS F OR PART 1 


0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 


0409 

0410 

0411 
0 412 
0 413 
0 414 

0415 

0416 
0 417 



O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

I LOAD PAGE il 


o 



0427 

P00CA 

0 0 00 


DATLM1 

NUM 

0 



042 8 




* 




o 









o 

043 0 




***** 

N 0 1 

‘ICE 

- 


043 2 


OOCB 

P 

COMERR 

EQU 

COMERR! 

*) 

o 

0 43 3 


OOCB 

P 

DAT ERR 

EQU 

DATERRt 

* } 

0434 

P00CB 

584E 


NAM PI 4 

RTJ* 

PRNNAM 



0435 

P00CC 

0 A 34 



ENA 

$34 



0436 

P00CD 

5136 



RT J- 

PRINTS, 

I 

o 

0437 

PQ0CE 

1831 



JMP* 

NAMP9 



0 43 9 




* 

COME 

HERE TO 

SETUP 

rs 

0 441 

P00CF 

Cl 4E 


NAM PI 3 

LDA- 

CSNAME, 

I 


0442 

P00D0 

0 9F A 



I N A 

-5 


O 

0443 

P0QQ1 

0 131 



SAM 

NOTMMP 


0444 

POOD 2 

18F8 



JMP* 

NAMP14 



0445 

P 0 00 3 

El 03 


NOT MM P 

LOQ- 

PROBAS, 

I 


0446 

P00D4 

4102 



5TQ- 

DATBAS, 

I 

o 

0447 

P 0 0 D 5 

0901 



IN A 

1 


0448 

PO0D6 

0102 



SAZ 

DATB1 



0449 

PQ0D7 

48 EF 



STQ* 

DATBSO 



0 4 5 0 

P 0 008 

IS C 2 



JMP* 

SETLIM 



0451 

P00D9 

48 EF 


DATB1 

STQ* 

DATBS1 


LJ 

0452 

P00DA 

FI 98 


SETLIM 

ADQ- 

INPUT *2 

*1 


0453 

POODB 

4 105 



STQ- 

DATLIM, 

I 


0454 

POO DC 

0102 



SAZ 

QATL1 


o 

0455 

POO DO 

48 EA 



STQ* 

DATLMD 


045 6 

P00DE 

18 02 



JMP* 

SET BAS 



045 7 

POGOF 

48 FA 


DATL1 

STQ* 

DATLM1 



0458 

P00E0 

4103 


SET BAS 

STQ- 

PROBAS, 

I 

o 

0459 

POOE1 

410 6 



STQ- 

CSQLIM, 

I 

0450 
04 61 

POO £2 

C16G 


* 

L DA- 

TOP, I 




0462 




* 




o 

0 46 3 
046* 
0465 

P00E3 

5856 


* 

* 

RT J* 

SIGNCK 



0466 

P 0 0 £ 4 

0123 



SAP 

PRTOUT 


o 

0467 

P0QE5 

0 9 0 0 



INA 

0 


0 45 8 

PQDE6 

Dill 



SAN 

PRTOUT 



0469 

P00E7 

1330 



JMP* 

CORO VF 



047 0 

POOE8 

6816 


PR TOUT 

STA* 

TMPARG 


o 

0471 

P00E9 

CO 0 0 



LOA 

-ms 



POOEA 

4453 




BUFFER 



0 47 2 

P 0 0 £ 8 

6 810 



STA* 



o 


o 


DATE* 08/19799 


DATA LIMIT ADDRESS FOR PART 1 
1-CARD DELETED 


01800 418 
01800 419 


THIS IS THE ROUTINE USED TO LIS 

DATA OR COMMON DECLARATIONS 

PRINT NAME OF PROGRAM 

CODE FOR LOADER ERROR 4 

PRINT OUT LOADER ERROR 

GO DOWN TO CHECK PROGRAM LENGTH 


LIST ILLEGAL 


****01800 421 

0180 0 42 3 
01800424 
01800425 
01800 426 
018Q0427 
01800 428 


THE FIRST DATA BLOCK OF THE LOAD 


01800430 


IF THIS IS A *M 
AMD NO DATA HAS 


OR *MP LOAD 
BEEN DECLARED 


JUMP TO ERROR EXIT 
SET NEW BAT BAS 


DATA BASE ADDRESS 


PART 


DATA BASE ADDRESS FOR. PART 
THE NEW DATA LENGTH TO 
NEW DATLIM 


DATA LIMIT ADDRESS 


PART 

PART 


SET DATA LIMIT ADDRESS FOR PART 
SET NEW PROGRAM BASE 
AND NEW UPPER BOUND OF COMMAND SEQUENCE 
PICKUP THE UPPER LIMIT OF DATA FROM TOP 
FOR *L TOP=ENDGV4 

FOR *LP TOP=MSIZV4 

FOR *M TO P= E N D 0 V 4 

FOR *MP TOP-END OF SPECIFIED 

CHECK FOR LEGAL DATA DECLARATION 
SKIP IF BLOCK SIZE OKAY 


SPECIFIED PARTITIONS 


SKIP IF NOT -0 

PRINT ERROR, CORE OVERFLOW 


0180 0 t 
01800 i 
0180 0 i 
0 180 0 A 
0 180 0 i 
0183 0 t 
0180 0 i 
0180 Oi 

oieooi 

0180 0 i 
0 180 0 1 
0180 0 i 
0180 0 ‘ 
0180 0 1 
0 18 0 0 * 
01800 i 

0 18 0 0 I 
01800 t 

E 0 18 0 0 i 

p oieooi 

01800 i 
0 180 Q * 
01800 s 
TIONS 01630* 
01800* 
0 180 0 1 
117*4319*****’ 
117*431 9*****’ 
01800* 

01 80 0 * 
01800* 


STORE OS 


INPUT 


01800461 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 


n 



I LOAD 
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DATE! 08719/99 






o 

o 

0 47 3 

POO EC 

58 00 


RTJ DSDIST 


01808 462 





o 



POOED 

0 0 01 










o 

0 47 4 

POOEE 

0 B 0 0 

DSD 13 T 

NOP 0 

CALCULATE ABSOLUTE ADDRESS 

0188 0 463 





• o 

0475 

POOEF 

GBFE 


LDA* DSDIST 


0180 0 464 






0476 

POOFO 

EO 00 


LQQ =XBUFFER-DSDIST 

01800 465 








P00F1 

0 0 OD 










o 

0477 

POOF2 

0832 


A AO. 0 


0180 0 466 





o 

0478 

P00F3 

Cl 02 


LDA- DATBAS, I 

LOAD DATA BASE ADDRESS 

0130 0 467 






0479 

PG 0 F4 

5800 


RTJ PRNTIT 


0180 0 468 








P00F5 

FFCO 










o 

0 48 Q 

P00F6 

C308 


LOA* TMPARG 


01800 469 





o 

0481 

PGGF7 

El 98 

NAHP1 5 

LDQ- INPUT*2 ,1 

THE DATA DECLARATION IS LEGAL SO 

0180 0 47 0 






0482 

PGQF8 

FI 7B 


A QQ- CSQCTR, I 

INCREASE THE LENGTH OF COMMAND SEQUENCE 

01800471 







0483 

P00F9 

41 7B 


STQ- CSQCTR, I 

TO INCLUDE THE DATA BLOCK 

01800 472 






o 

0484 

POOFA 

1805 


JMP* NAMP9 

DATA BLOCK OK 

01800473 





■ o 

0485 





3 CARDS DELETED 

01800474 






048 6 

POQFB 

Qfl 00 

BUFFER 

NUM 0 


01800 475 







048 7 

POOFC 

0000 


NUM 0 


0180 0 476 






o 

0488 

PO OFD 

00 00 


NUM 0 


0180 0 477 





o 

0 489 

PDQF'E 

0 0 00 

TMPARG 

NUM 0 


01800 478 





o 

Q491 



•* 

COME HERE TO CHECK 

PROGRAM LENGTH 

01800 480 





o 

0493 

POOFF 

Cl 99 

NAMP9 

L D A- INPUT+3,1 

PICKUP THE LENGTH OF THIS PROGRAM 

018Q0 482 






0494 

PQ1Q0 

6192 

NAM PI 7 

ST A- PROGCT , I 

SAVE IN PROGRAM COUNT 

0180 0 48 3 






o 

0495 

PO 101 

Gill 


SAN NAM PI 8 - *-l 

SKIP IF LENGTH IS NON-ZERO 

01800484 





o 

0^96 

PO 102 

1813 


JMP* NAMP19 

GO TO PRINT OUT PROGRAM NAME 

01800485 






0497 

P0103 

El 03 

NAMP18 

LDQ- PROBAS,! 

PICKUP PROGRAM BASE FOR. THIS LOAD 

01800 486 







0498 

P 0 1 0 4 

FI 99 


AD Q- INPUT *3, 1 

ADD ON THE LENGTH OF THIS PROGRAM 

0180 0 48 7 






o 

0499 

P0105 

4106 


STQ- GSQLIM, I 

SETUP THE NEW VALUE OF COMMAND SEQUENCE LIMIT 

01800488 





o 

0500 

poio 6 

Cl 4E 


LD A- CSNAME, I 

PICKUP TYPE OF CONTROL STATEMENT BEING PROCESS 0180 0 489 






0501 

PO 107 

09 FC 


INA -3 

TEST FOR *L LOAD 

01800 490 







0502 

P 0 10 8 

0113 


SAN NAMP20-*-l 

SKIP IF NOT *L 

01800491 






o 

050 3 

P 0 1 0 9 

C101 


LDA- CDM8AS , I 

IF COMMON IS DEFINED, PICKUP BASE OF COMMON 

0 18 0 0 49 2 





o 

050 4 

POIO A 

0101 


SAZ NAMP20-*-l 

FOR UPPER CORE LIMIT, OTHERWISE SKIP 

01800493 






050 5 

P010B 

1302 


JMP* NAMP21 

TEST FOR CORE OVERFLOW 

0180 0 494 







050 6 

P010C 

C16C 

NAMP2Q 

LDA- TOP, I 

PICKUP UPPER CORE LIMIT 

01800 495 






o 

0507 

PO 10 D 

58 2 C 

NAMP21 

RTJ* SIGNCK 

TEST FOR CORE OVERFLOW 

01800 496 





■ o 

0 5 Q 8 

P010E 

01 23 


SAP NAMP22 - ’*-1 

PROGRAM FITS INTO CORE 

O18G0 497 






0509 

P010F 

0900 


INA 0 


0 180 Q 493 







0510 

P0110 

■Dili 


SAN NAMP22-*-l 

SKIP IF PROGRAM FITS INTO CORE 

01800499 






o 

0511 

POill 

1806 


JMP* G QRO VF 

ABORT JOB, CORE OVERFLOW 

01800500 





o 

0 512 

PO 112 

El 99 

NAMP22 

LDQ- I NPUT *3,1 

ADD THE LENGTH OF THIS PROGRAM 

01800501 






0 513 

P0113 

F17B 


ADQ- CSQCTR,! 

TO THE LENGTH OF COMMAND SEQUENCE 

01800502 







0514 

P 0 1 1 4 

41 7B 


STQ- CSQCTR, I 


0180 0 50 3 






o 












o 


0516 




COME HERE TO PRINT OUT THE PROGRAM NAME AND HEADER 

01800505 






o 

0518 

P011 5 

5804 

NAMP19 

RTJ* PRNNAM 

PRINT OUT THE PROGRAM NAME AND ADDRESS 

0180 0 507 





o 

0519 

P 0 116 

113F 


JMP- NXTINP, I 

GET THE NEXT INPUT BLOCK 

01800508 





o 












o 

o 












o 


TLOAD 
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DATES 08/19/99 


0521 

0 52 3 
052 4 


0526 

0 52 8 
0529 
C53 0 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 
0 5 4 0 
0 541 
0542 

0 543 

0544 

0545 

0546 

0547 

0548 

0549 
0 550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 


0559 

05 61 

0562 

0563 


0565 

0566 


P 0 117 
P0118 


0 A 35 
1138 


COROVF 


THIS IS THE CORE OVERFLOW EXIT 


ENA 

JMP- 


$35 

PRINF2, 1 


ERROR 

PRINT 


CODE 5, 
MESSAGE 


CATISTROPHIC 
AND ABORT 


CORE OVERFLOW 


01800 510 

01800 512 
01800513 


COME HERE TO PRINT PROGRAM NAME, HEADER, AND ADDRESS 


01800 51 5 


P0119 
PQ11A 
P011B 
P011C 
PO 110 
P011E 
POUF 
P0120 
P0121 
PO 122 
P G 123 
P 012 4 
P012 5 
P 0 1 26 
PO 127 
PO 128 
P 0 129 
PO 12 A 
P012B 
P012C 
PG12D 
P012F 
P012F 
PO 13 0 
PO 131 
PO 132 
P 0 133 
P0134 
P 0 1 3 5 
PO 13 6 
PQ137 
P0138 


OBOO 
0C2F 
C3 AO 
63 A3 
01 42 

00 FE 

1 8 F B 
C 1 1 2 

6198 

6199 
6190 
619E 
61 A1 
61A2 
El 0 0 
0098 
Cl 4E 
0 9 FA 
0139 
C 1 0 3 
0104 
98 DA 
0 9 ED 
0101 
1804 
0800 
7FFF 
1802 
C 1 Q 3 
51 5E 
1C El 
0 0 00 


PR N NAM 
PRN Ml 


PRNNM2 


X NAMP2 6 
X 

NAM P? 4 
NAMP25 

PARSTR 


NOP 0 
ENQ 47 

LDA- INPUT+iO ,B 
STA- I NPUT'+l 3 , 8 
SQZ PRN NM 2- *-i 
INO -1 
JMP* PRN Ml 
LDA- BLANKS, I 
STA- INPUT'+2,I 
STA- INPUT+3,1 
STA- I NPUT *7,1 
STA- INPUT'+B ,1 
STA- I NPUT +1 1 , 1 
STA- I NPUT 41 2, I 
LDQ =XINPUT+ 2 » I 

LDA- CSNAME.I 
INA -5 

SAM NAMP24- *-l 
LDA- PROBA S, I 
SA7 NAMP26 
SUB* 1 PARSTR 
INA -2 
SAZ NAMP26 
JMP* NAMP24 
LDA LSSECT 

JMP-* NAMP25 
LDA- PRO BAS , I 
RTJ- PRI NT4 , I 
JMP* 1 (PRNNAM1 
NUM 0 


RETURN ADDRESS OF CALLER 

MOVE THE COMMENT FIELD TO MAKE ROOM FOR 
THE LOAD ADDRESS 


INSERT BLANKS INTO THE FORMAT 


PICKUP BUFFER ADDRESS FOR PRINT ROUTINE 
PICKUP TYPE OF LOAD BEING PROCESSED 


LOAD PROGRAM REL. BASE IF.GT.G 
LOAD SECTOR ADDRESS IF.EQ.O 
IS THIS START OF PARTITION LOAD 
BIAS FOR 2 WORD JUMP INSTRUCTION 
YES, PRINT START SECTOR OF *MP LOAD 


018 0 
0180 
0180 
0180 
0180 
0180 
0180 
0180 
0180 
0 18 G 
0180 
0180 
0180 
018 0 
0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 

0180 


0 517 

0518 

0519 
0 52 0 

0521 

0522 

0523 
0 524 
0 525 
0 526 
0 527 
0 52 8 
0 529 

0530 

0531 

0 532 
0 533 
0 534 
0 535 
0 536 
0537 
0 53 8 
0 539 

0540 

0541 


PICKUP PROGRAM RELOCATION BASE AS LOAD 

PRINT NAME AND ADDRESS 

RETURN TO CALLER 

START ADDRESS OF PARTITION LOAD 


01800 542 
ADQRESS01800 543 
0180 0544 
01800 545 
01800 54b 


v- 

* 


COME HERE TO MAGNITUDE CHECK TWO NUMBERS 


IF A.GT.Q 
IF A.EQ.Q 
IF A.LT.O 


THEN DIFFERENCE RETURNED IN A-REGI STER 
THEN ZERO IS RETURNED IN A-RtGISTER 
THEN MINUS ZERO IS RETURNED IN A-REGISTER 


0180 0548 

01800550 

01800551 

01800552 


PG139 

P013A 


OBDO 

0132 


SIGNCK 


NOP 0 

SAM AUPPER-*-! 


A IS IN BANK 1 


01800554 

01800555 




I LOAD 
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0567 

P013B 

0165 


SQP 

BTHSAM- *-l 

0568 

PD13C 

1808 


JMP* 

QBIGER 

0569 

P013D 

0173 

AUPPER 

SQM 

BTHSAM-'*-i 

0 57 G 

P013E 

08 52 


TCQ 

Q 

0571 

PO 13F 

0 8 -34 


A AQ 

A 

0572 

PD 140 

1805 


BMP* 

ABIGER 

0573 

P 0 14 1 

0 8 52 

BTHSAM 

TCQ 

Q 

0574 

PO 142 

0834 


A AQ 

A 

0575 

PO 143 

0121 


SAP 

ABIGER- *-i 

0576 

P 0 14 4 

08 04 

QBIGER 

SET 

A 

0577 

P 0 145 

1CF3 

ABIGER 

JMP* 

(SI GNCK) 


DATE: 0 8/ 19/99 


BOTH ARE IN LOWER BANK 
A IN LOWER BANK, Q IN UPPER BANK 
BOTH IN UPPER BANK 
A IN UPPER BANK, Q IN LOWER BANK 
RETURN DIFFERENCE IN A-REGISTER 

BOTH IN BANK 1 FIND THE BIGGER ONE 

A,GT.Q RETURN DIFFERENCE IN A-REGISTER 
Q.GT,A RETURN MINUS ZERO IN A-REGISTER 


0180 0 556 
01800557 
01800558 
01800 559 
01800560 
01800561 
018 0 0 56 2 
0180 0 563 
0180 0 564 
01800565 
0180 0 566 


ILQAD 
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DATE: 08/19/99 


o 


o 



0579 



¥ 


ROUTINE TO PROCESS 

01800 568 


o 

0581 





RED OR BZS BLOCKS 

01800570 

o 

o 

0583 

PO 146 

0 AFE 

BZSPRO 

ENA 

-1 SET BZSSW TO MINUS ONE IF A BZS BLOCK 

01800 572 

o 

0584 

P0147 

61 1 A 


STA- 

BZSSW, I IS BEING PROCESSED 

0180 0573 


0585 

P0 148 

0 A 0 G 


ENA 

0 

018 0 0 574 



0586 

P 0 149 

1803 


JMP* 

RBBZ1 GO TO INITIALIZE OTHER PARAMETERS 

0180 0 575 


o 

0588 

P014A 

0 A 0 0 

RBDPRO 

ENA 

0 SET BZSSW TO ZERO IF A RBO BLOCK 

01800577 

o 

o 

0589 

P014R 

6 1 1 A 


STA- 

BZSSW, I IS BEING PROCESSED 

01800578 

: o 

0591 

P014C 

6119 

RBBZt 

STA- 

COUNT 1, I CLEAR THE BYTE COUNTER TO ZERO 

01800580 


0592 

PQ14D 

G 1 39 


LDA- 

INPXGOtl PICKUP THE STARTING ADDRESS OF THE INPUT BUF. 

0180 0 581 


o 

0593 

PG14E 

6118 


STA- 

WRD CNT , I SAVE ADDRESS IN LOCATION WROCNT 

01800 582 

O 

0594 

P014F 

6109 


STA- 

8GRLSW, I SET BACKWORD RELOCATION SWITCH TO NON-ZERO 

0180 0 583 


0595 

P0 150 

cooc 

BZSPR1 

LDA 

= X(SW2A-SW2-i ) MAKE SW2 = JMP SW2 A ITWO WORD JUMP) 

01800584 




P 015 1 

FF 65 




01800585 


o 

0596 

P 0 152 

68 00 


STA 

SW2+1 

o 


PO 153 

0 0 87 






0597 

P 0 1 5 4 

cooo 


LO A 

= XISW3A -SW3-1 ) MAKE SW3 = JMP SK3 A ?TWQ WORD JUMP) 

01800586 




P0155 

FF9A 




0180 0587 


o 

0596 

P 0 15 6 

6800 


STA 

SW3 + 1 

- o 


P0157 

0 0B5 






0599 

P01 58 

5 86E 


RTJ* 

NXTWRD PICKUP THE NEXT ENTRY IN THIS BLOCK 

0180 0588 



06 0 0 

P0 159 

Cl 0B 


LDA- 

INPREL , I PICKUP THE TYPE OF RELOCATION SPECIFIED 

01800589 


o 

0601 

P015A 

0 9F.E 


INA 

-1 DECREMENT RELOCATION TYPE BY ONE 

0180 0 59 0 

G 

0602 

P0 15B 

61 1C 


STA- 

SW6 » I AND SAVE IN SW6 

01800 591 


0603 

P015C 

0111 


SAN 

R88Z2-*-l SKIP IF PROGRAM RELOCATION WAS NOT SPECIFIED 

01803 592 



0 60 4 

P015D 

1 8 0 F 


JMP* 

RB8Z3 GO TO PROCESS PROGRAM RELOCATION 

0180 0 593 


o 

0605 

P015E 

0125 

R8BZ2 

SAP 

R BBZ4-* -1 SKIP IF DATA OR COMMON RELOCATABLE 

01800594 

: O 

0506 

P015F 

COOO 


LDA 

= XI SW2C-SW2-1 > NO RELOCATION SW2 = JMP SW2C 

01800595 



P 0 16 0 

FF6F 







0607 

P 01 61 

FOGG 


LDQ 

= XJ SW3C -SW3-1 ) SW3 = JMP S W3C 

O 18 Q 0 596 


o 

060 8 

P0182 

P 0 163 

FF9E 

1305 


JMP* 

RBBZ5 SETUP THE JUMP INSTRUCTIONS 

01800597 

o 


060 9 

P 0 1 6 4 

cooo 

RBRZ4 

LDA 

=XCSW2B-SW2-1) DATA OR COMMON RELOCATION S W2= JMP S W2B 

0180 0598 



P 0 16 5 

FF6D 



= X I S W3 8 - SW 3 - 1 ') SW3= JMP SW38 



o 

061 G 

P016 6 

EQ00 


LDQ 

0180 0 599 

o 


P 0 1 67 

FF9C 




01800600 


0611 

PO 1 68 

68 0 0 

RBBZ5 

STA 

S W2 4 1 




P 0 169 

00 Ai 




O IB 0 0 60 1 


o 

0612 

P0 16 A 
P016B 

43 0 0 
C0A1 


STQ 

SW3 4l 

O 


061 3 

P016C 

5800 

RBBZ3 

RTJ 

ADJUST GO TO ADJUST FOR RELOCATION TYPE 

01800602 



P016D 

0 0 8D 




01800603 


o 

0614 

P 0 16£ 

18 CO 


JMP 

SW2 

O 


P016F 

0 0 9 A 






o 


o 


o 


o 
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DATE; 03/19/99 


0616 



» 

COM 

1 E H 

E 

0618 



=* 

R E L 

.OCA 

? : 

0620 

P 017 0 

Cl 92 

SW2A 

LDA- 

PROGCT, 

I 

0621 

P0171 

0114 


SAN 

SW2X-*- 

1 

0622 

PO 172 

C101 


LB A“ 

COMBAS, 

I 

0623 

P0173 

0111 


SAN 

sw-*-i 


0624 

PO 17 4 

Cl 84 


LDA- 

PARLIM, 

I 

0625 

PO 17 5 

1806 

SW 

JMP* 

RBBZ6 


0626 

PO 1 76 

C 1 06 

SW2 X 

LDA- 

CSQLIM, 

I 

0627 

PO 177 

1804 


JMP* 

RBBZ6 


0628 

P0178 

C 1 05 

SW2B 

LDA- 

DATLIM, 

I 

0629 

P 0 17 9 

18 02 


JMP* 

RBBZ6 


0630 

P 0 1 7 A 

Cl 6C 

SW2C 

LDA- 

TOP, I 


0631 

P 0 17 8 

6 1 1 D 

RBBZ5 

STA- 

ASA V , I 


0632 

P017C 

C 1 1 A 

RBBZ7 

LDA- 

3Z3SW ,1 


0633 

PC 17D 

Old 


SAZ 

RBBZ8-* 

-1 

0634 

P017E 

1 8 2E 


JHP* 

8ZSPR2 


0635 

P017F 

5847 

RBBZ8 

RTJ* 

NXTWRD 


0636 

P 0 18 0 

C10B 


LDA- 

INPREL, 

I 

0637 

PO 181 

OCOO 


ENQ 

0 


0638 

PO 18 2 

0 107 


SAZ 

RBBZ9-* 

-1 

0639 

PO 183 

0 9 FE 


INA 

-1 


0640 

p 0184 

E 1 0 3 


LDQ- 

PR08AS, 

I 

0641 

P 01.85 

0104 


SAZ 

RBBZ9-* 

~1 

0642 

PO 186 

0 9 FE 


INA 

-1 


0643 

PO 13 7 

El 01 


LQQ- 

CQMBAS, 

I 

0644 

PO 1 88 

0101 


SAZ 

R88Z9-* 

-1 


I F 


PROGRAM 


01800 605 


I S 


SPECIFIED 


PICKUP THE LENGTH OF THE PROGRAM SPECIFIED 
ON THE NAME CARD AND SKIP IF NON-ZERO 
PICKUP THE START OF COMMON IF PROGRAM LENGTH: 
SKIP IF COMMON EXISTS 

PICKUP LWA+i OF PERT IONED CORE IF NO COMMON 

PICKUP UPPER LIMIT OF COMMAND SEQUENCE 
IF PROGRAM LENGTH IS NON ZERO 
PICKUP TOP OF DATA FOR BASE IF DATA 
RELOCATION IS SPECIFIED 

PICKUP UPPER BOUND OF CORE FOR NO RELOCATION 

SAVE UPPER BOUND FOR RELOCATION 

IS THE CURRENT BLOCK RBD OR BZS 

RBD 

BZS 

PICKUP NEXT WORD OF RBD BLOCK 
PICK RELOCATION TYPE OF WORD 

SKIP IF NO RELOCATION IS SPECIFIED 

SET RELOCATION BASE TO PROGRAM EASE 
SKIP IF PROGRAM RELOCATION SPECIFIED 

SET RELOCATION BASE TO START OF COMMON 
SKIP IF COMMON RELOCATION IS SPECIFIED ’ 


0180 0 607 

01800609 
01800610 
001800611 
0 180 Q £12 
01800613 
01800 614 
01800 615 
01800616 
01800617 
01800618 
01800 619 
01800620 
01800621 
0180 0 622 
0180 0 623 
01800624 
01800625 
0180 0626 
01 80 0 62 7 
0 18 0 G 62 8 
01800629 
01800630 
0 18 0 0 63 1 
01800 632 
01800633 


0 6^5 

P 0 1 3 9 

E 1 02 


LDO- DAT BA S » I 

0646 

PO 13A 

C10A 

RBBZ9 

LDA- INPWRD»I 

0647 

P018B 

5152 


RT J- ADJOVF * I 

0648 

P018C 

6 8 0 F 


ST A* CSQ 

0649 

P018D 

El OB 


LDQ- INPREL» I 

G65Q 

P018E 

0143 


SQZ RBB Z1 0 - * -1 

0651 

P018F 

B1 41 


FOR- M7FFF , I 

065? 

PO 190 

0111 


SAN RBBZ10-*-i 

0 65 3 

P 0 1 91 

58 7C 


RTJ* STRLNK 

0654 

P 0 192 

CUD 

RBBZ10 

LDA- ASA V , 1 

0655 

P 0 19 3 

El OF 


LDO- I NPCT R , I 

0656 

P 0194 

58A4 


RT J'* SIGNCK 

0657 

PC 19 5 

0131 


SAM RBBZli-*-l 

065 8 

P 0 19 6 

18 02 


JMP* RBBZ12 

0659 

PO 197 

1874 

RBBZ11 

JMP* SW3 

0660 

P 0 198 

C10F 

RBBZ12 

LDA- INPCTR, I 

0661 

P0199 

5800 


RTJ DISKWR 


F019A 

03 BE 



0662 

P019B 

00 0 0 

CSQ 

NUM 0 

0663 

P019C 

0 0 0 0 


NUM 0 

0654 

PQ190 

D10F 


RAO- INPCTR,I 


SET RELOCATION BASE TO START OF DATA 

PICKUP THE LAST WORD OF THE BLOCK READ 

PERFORM THE ADDRESS ARITHMETIC 

SAVE THE RESULT OF ADDRESS RELOCATION 

WAS ADDRESS RELOCATION NECESSARY 

NO SKIP DOWN TO BOUND CHECK 

YES IS THIS WORD 7FFF 

YES, S SAVE THIS ADDRESS IN THE LINK TABLE 
PICKUP THE LEGAL UPPER BOUND OF THIS LOAD 
PICKUP THE ADDRESS COMPUTED FOR THE LAST 
INSTRUCTION AND CHECK AGAINST THE UPPER BOUND 

ADDRESS LESS THAN UPPER BOUND GO ON 
TAKE ERROR EXIT 

PICKUP EXECUTION TIME STORAGE ADDRESS 
STORE THE INSTRUCTION INTO COMMAND SEQUENCE 


VALUE TO BE STORED 

FLAG SAYING USE COMMAND SEQUENCE PAGE 
INCREMENT EXECUTION TIME STORAGE ADDRESS 


0 18 0 0 63 4 
0180 D635 
0 18 0 0 63 6 
01800637 
0180 0638 
0180 0639 
0180 0 640 
0 180 G 641 
01800 642 
01800643 
01800 644 
018GG645 
01800646 
0180 0647 
01800648 
01800649 
0180 0650 

0180 0651 
0 180 C 65 2 
01800653 


I LOAD 
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DATE- 08/19/99 


0665 

P019E 

C192 


LDA- PROGCT, 

I 

0566 

P019F 

3 1 1C 


ADD- S W6 » I 


0667 

0668 

P01A0 

0112 

* 

SAN RBBZ13- 

*-i 

0669 

PQ1A1 

C10F 


LDA- INPCTR, 

I 

0670 

P01A2 

610 6 


STA- CSQLIM, 

I 

0671 

P01A3 

C 1 08 

RBBZ13 

LDA- ENOSW.I 


0672 

PG1A4 

0101 


SAZ RBBZ14- 

*-i 

0573 

P01A5 

113F 


JMP- NXTINP, 

I 

067 4 

PQ1A6 

18D5 

RBBZ14 

JMP* RBBZ7 



PICKUP PROGRAM LENGTH FROM NAME CARD 01800654 
ADD RELOCATION TYPE-1 01800655 
SKIP IF WORD COUNT NOT ZERO OR STARTING 01800656 
ADDRESS NOT PROGRAM RELOCATABLE 01800657 
PICKUP CURRENT VALUE OF EXECUTION TIME 0180 0658 
STORAGE AND STORE INTO COMMAND SEQUENCE LIMIT 01800659 
WAS THIS THE LAST ENTRY OF THE RBD 8L0CK 01800660 
NO, SKIP 01800661 
YES, GO READ IN THE NEXT BLOCK 01800662 
LOOP BACK TO PROCESS NEXT ENTRY 01800663 


0676 

0677 
0578 

P01A7 

P01A8 

0 A35 
11 3B 

•* 

SW3A 

THESE ARE THE 
ENA $35 
JMP- PRINT2, I 

ERROR EXITS 

OVERFLOW 

OF 

AVAILABLE CORE 

068 0 
0681 

P 0 1 A 9 
P01AA 

0 A 37 
11 3B 

S W3 B 

ENA $37 
JMP- PRINT 2 , 1 

OVERFLOW 

OF 

DATA BLOCK 

0683 

P01AB 

18 F B 

SW3C 

JMP* SW3 A 

OVERFLOW 

OF 

AVAILABLE CORE 


0180 0 66 5 
0180 0666 
0 180 0 667 

01800669 

01800670 

01800672 


ILOAD 
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8 Z S BLOCK 


01800674 


P01 AC 
P01 AD 
P01AE 
P01AF 
P01B0 
PQ1B1 
P01B? 
P01B3 
PD1B4 
PO 135 
P01B6 
P01B7 
P01B8 
P01B9 
P 0 18 A 
P01BB 
P01BC 
P01BD 
P01BE 
P01BF 
PQ ICO 
PQ1C1 
P01CZ 
P01C3 
PG1C4 
P01C5 


CUD 
El OF 
588 A 
0121 
185B 
C1QF 
58 00 
03 A 5 
00 00 
OOOO 
Di OF 
C 1 92 
8 1 1C 
0112 
G10F 
6106 
Cl 18 
09FE 
61 1 B 
0101 
18FB 
CIO 8 
0101 
113F 
1800 
FF8A 


BZSPR2 LOA- ASA Vi I 

LOQ- I NPCTR, I 
RTJ* SIGNCK 
SAP BZSJ20-*-i 
JMP* SVI3 

BZSJ20 LD A- INPCTRi I 
RTJ DISKWR 

NUM 0 
NUM 0 

RAO- I NPCTR, I 
LOA- PROGCTi I 
ADD- SW6 j I 
SAN BZS J21- *-l 
LD A- INPCTRi I 
STA- C SQLI Mi I 
8ZSJ21 LOA- 3LKCNT, I 
INA -1 
STA- BtKCNT, I 
SAZ BZSPR3-*-i 
JMP* BZSPR2 
BZSPR3 LD A- £NDSW,I 

SAZ BZSP2-*-l 
JMP- NXFINPi I 
EZSP2 JMP BZSPR1 


PICKUP UPPER BOUND OF LOAD AREA 
PICKUP CURRENT VALUE OF EXECUTION TINE 
MAKE SURE A.GT.Q 
SKIP IF A.GE.Q 
ERROR A* LT. G 

STORE ZERO INTO EXECUTIME STORAGE 


01300676 
STORAGEO180Q677 
01800678 
0180 0679 
01800680 
01800681 
0180 0682 


VALUE TO BE STORED ZERO FOR BZS BLOCK 
FLAG SAYING USE COMMAND SEQUENCE PAGES 
INCREMENT EXECUTION TIME STORAGE ADDRESS 
SKIP IF WORD COUNT NON ZERO OR STARTING 
ADDRESS NOT PROGRAM RELOCATABLE 

PICKUP CURRENT EXECUTION TIME ADDRESS AND 
SAVE AS COMMAND SEQUENCE LIMIT 
DECREMENT THE NUMBER OF LOCATIONS TO 
BE SET TO ZERO FOR THIS BZS BLOCK 

SKIP ONLY IF ENTIRE BLOCK ZEROED 
LOOP BACK TO ZERO NEXT LOCATION 
IS THIS THE LAST ENTRY OF THIS BLOCK 

YESi GO READ ANOTHER BLOCK 

NO, GO FINISH PROCESSING THIS BLOCK 


0180 
0180 
0180 
0180 
0180 
0180 
018 0 
0180 
0180 
018 0 
0180 
0180 
0 18Q 
0180 
0180 
0180 
0180 


0 683 
0 68 h 
0 685 
0686 

0687 

0688 

0689 

0690 

0691 
0 69 2 
0 693 

0694 

0695 

0696 
0 697 

0698 

0699 


O 

I 0 

! o 


o 

o 

o 


P A GTE 19 


DATE: 08/19/99 


ROUTINE TC 
WORD IN A 
R'ELOCATI ON 


GET 

BLOCK 

BYTE 


THE 


AND 


NEXT 

ITS 


0 180 0 70 1 
01800703 
01800705 


P01C6 

P01C7 

P01C8 

P01C9 

P01CA 

P01CB 

P01CC 

poicn 

P 0 1 CE 
P01CF 
P 0 ID 0 
P0101 
PO 102 
P01D3 
PQ.1D4 
PQ1D5 
P01D6 
P 0 ID 7 
PQ1D8 
P01D9 
PO IDA 
PO 1DB 
P 0 1 DC 
PO IDO 

P 0 IDE 
PO IDF 
P01E0 
P01E1 


0 BOO 
Cl 19 
0116 
D AFB 
6119 
0118 
ccoo 

7FFF 

6829 
0 A 0 0 
E827 
GFE4 
A 825 
OCGO 
OFEO 
4108 
OCOO 
0FF1 
61 8 E 
Cl 57 
0102 
0141 
1 8 1C 
41 56 

C18E 
OCOO 
OFF? 
41 0 B 


NXTWRD 


P01E2 0119 
PO i£3 0118 
P01E4 CCOQ 
P01E5 0 1 CD 
P01E6 61 DA 
P01E7 0152 


NXWD1 


NXWD2 


NOP 

LDA- 

SAN 

Ena 

sta- 

RAO- 

LDA 


ST A* 

ENA 

LOQ* 

LLS 

STQ* 

END 

LLS 

STQ- 

ENQ 

LLS 

STA™ 

LOA- 

SAZ 

SQZ 

UMP* 

STQ- 


C0UNT1 , I 
NXWDl-*-l 

-4 

COUNT 1 , I 
WRDCNT, I 
(WROAD?) 


RELWRD 

0 

RELWRD 

4 

RELWRD 

0 

13 

ENDS W, I 
0 

1 

SAVE A , I 
ARIT15, I 
NXWD2-*-i 
NXWD2-*~i 
NEGERR 
NGRiSWt I 

SAVEA,I 

0 

2 

INPREL-, I 


CQUNTi, I 
WRDCNT , I 
{ WRDADR'5 

I NPWRD-i I 
N XWD3 - ? -1 


RETURN ADDRESS OF CALLER 
PICKUP THE BYTE COUNTER 
SKIP IF NOT PROCESSING FIRST 


BYTE 


SETUP BYTE COUNTER TO PROCESS FOUR BYTES 
INCREMENT THE CURRENT BUFFER ADDRESS 
PICKUP THE WORD CONTAINING THE FOUR 

RELOCATION BYTES fWRQACR = WRDCNT) 

SAVE THE FOUR RELOCATION BYTES IN RELWRD 

PICKUP THE NEXT RELOCATION BYTE AND 
SAVE IT IN THE A-REGIST’ER 

SAVE UPPER HIT OF BYTE IN ENDSW 

UPPER BIT OF RELOCATION BYTES IS ONE IF THIS 

IS THE LAST BYTE IN THE BLOCK. 

SAVE NEXT BIT OF BYTE IN SAVEA- THE BIT IS 
ONE IF NEGATIVE RELOCATION IS SPECIFIED, 
CHECK FOR 15 OR 16 BIT ARITHMETIC 
SKIP IF FIFTEEN BIT ARITHMETIC IS SPECIFIED 
SKIP IF POSITIVE RELOCATION IS SPECIFIED 
ERROR, NEGATIVE RELOCATION WITH 16 BIT ARITH, 
SET NEGATIVE RELOCATION SWITCH 
0 = POSITIVE RELOCATION 1 = NEGATIVE 
PICKUP THE LOWER TWO BITS OF THE BYTE 


SAVE THE TYPE OF ADDRESS RELOCATION 
NO RELOCATION INPRE 

PROGRAM RELOCATION INPRE 

COMMON RELOCATION INPRE 

DATA RELOCATION INPRE 

INCREMENT THE BYTE COUNTER 
INCREMENT THE CURRENT BUFFER ADDRESS 
PICKUP THE COMMAND WORD FOR THE BYTE 


RELOCATION IN INPREL 
INPR.EL=Q 0 
ON TNPREL=G1 

N I NPREL= 1 0 

INPREL=1 1 


AND SAVE IT AS THE INPUT WORD 

SKIP IF NOT ABSOLUTE PROGRAM ADDRESSING 


0180 0 70 7 
01800708 
0180 G709 
01800710 
01800711 
01800712 
01800713 

0180 0 714 
01800715 
0180 Q 716 
0180 0717 
01800718 
01800719 
01800720 
0 18 Q 0 7 2 1 
01800722 
01800723 
01800724 
018 0 0 72 5 
Q1800726 
0180 0 727 
01800728 
01800729 
01800730 
01800731 
01800732 
01800733 
01800 734 
01800 735 
01800736 
0180 0 737 
01800738 
01800739 
0180 0 740 
01800741 
01800742 

01800743 

01800744 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


I 

I 


o 



o 

: ° 

o 

• o 

o 

o 

o 

• o 

o 

o 

o 

o 

o 

O 
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DATE: 08/19/99 


0776 



* 

R 0 

U T I N E 

0778 



* 

R E 

L 0 C A T 

0780 

P 0 IF A 

0 BOG 

ADJUST 

NOP 

0 

0781 

PD1FB 

Cl OB 


LDA- 

INPREL, I 

078 2 

P01FC 

0101 


SAZ 

ADJl-*-l 

0783 

P01FD 

18 04 


JMP* 

ADJ 2 

0784 

P01FF 

C10A 

ADJ1 

LDA- 

INPWRD, I 

0 78 5 

PO IFF 

6 1 0 F 


STA- 

INPCTR* I 

0 78 6 

PO 20 0 

1CF9 


JMP* 

fADJUST ) 

0787 

P 0 20 1 

09FE 

ADJ 2 

INA 

-1 

0788 

PO 20 2 

E 1 0 3 


LDQ- 

PR08AS, I 

078 9 

P0203 

0101 


SAZ 

ADJ3-*-i 

0790 

P 02 C-+ 

El G2 


LQQ- 

DAT BAS, I 

0791 

P0205 

C10A 

ADJ3 

L DA- 

INPWRD, I 

0792 

P0206 

5152 


RT J- 

ADJOVF* I 

0 793 

P 0 2 0 7 

6 1 0 F 


STA- 

INPCTR, I 

0794 

P02C8 

1 CF1 


JMP* 

(ADJUST) 


ADJUST FOR 


TYPE 


R.FTURN ADDRESS OF CALLER 

PICKUP RELOCATION TYPE 

SKIP IF NO RELOCATION SPECIFIED 

GO TO HANDLE RELOCATION 

PICKUP ADDRESS FROM BLOCK 

STORE ABSOLUTE ADDRESS IN INPCT'R 

RETURN TO CALLER 

PICKUP PROGRAM RELOCATION BASE 

SKIP IF PROGRAM RELOCATION IS SPECIFIED 

PICKUP DATA RELOCATION BASE 

PICKUP ADDRESS FROM BLOCK 

PERFORM ADDRESS ARITHMETIC 

STORE ABSOLUTE ADDRESS IN INPCTR 

RETURN TO CALLER 


079 

6 

PO 

20 

9 

1800 

079 

-v 

PO 

20 

A 

FFFF 

079 

8 





079 

9 

PO 

20 

e 

1800 

0 8 C 

0 

PO 

20 

c 

FFFF 

080 

1 






SW2 

NUM 

$ 18 0 0 

JMP 

SW2A 

FOR 

PROGRAM RELOCATION 

NUM 

SFFFF 

JM? 

SW2B 

FOR 

DATA RELOCATION 

* 


JMP 

SW2C 

FOR 

NO RELOCATION 

SW3 

NUM 

$18 0 0 

JMP 

SW3A 

FOR 

'PROGRAM RELOCATION 

NUM 

$FFFF 

JMP 

SW3B 

FOR 

DATA RELOCATION 


JMP 

S W3C 

FOR 

NO RELOCATION 


0180 0765 


0180 0 767 


01800769 
013 0 0 77 0 
01800771 
01800772 
01800773 
018 0 0 77 4 
0180 0775 
01800 776 
01800777 
01800778 
018G 0779 
01800780 
01800 781 
0 180 0782 
01800 783 


01800785 
01800786 
0180 0 787 
01800788 
01800789 
01800790 


1 \ 



I LOAD 
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DATE? 08/19/99 




o 

0803 




M A 

K E AN 

ENTRY TO THE LINK 

T B L 

.018DD792 

o 

o 

080 5 

P0 20 P 

ODOO 

STRLNK 

NOP 

0 

RETURN ADDRESS OF CALLER 


0180 0 794 

o 


080 6 

P02CE 

Cl OB 


LDA- 

INPREL* I 

PICKUP PROGRAM RELOCATION TYPE 


01800 795 


o 

0807 

P0 20F 

09FE 


INA 

-1 

SKIP IF PROGRAM RELOCATION SPECIFIED 


01800796 

o 

080 8 

P 0 21 0 

0101 


SAZ 

STLN Kl-*-l 


01800797 


080 9 

PO 211 

C 1 71 


LDA- 

LNKCTR* I 



0 180 D 798 



0810 

P0212 

91 72 

STLNK1 

SUB- 

LNKEND, I 

CHECK IF LINK TABLE IS FULL 


01800799 


o 

081 1 

P 0 21 3 

0133 


SAM 

SO-*-l 

NOT FULL 


0 180 0 80 0 

o 

0812 

P0214 

GOOD 


LDA 

= A15 

TABLE FULL* PRINT ERROR AND EXIT 


01800801 



P 0 2 1 5 

3135 









0813 

P0216 

113B 


JMP- 

PRI NT2* I 



01800802 


o 

081 4 

P0217 

C10F 

SO 

LDA- 

I NPCTR, I 

STORE ADDRESS OF THIS COMMAND SEQUENCE 

WORD 

01800803 

o 

0815 

P 0218 

E171 


LDQ- 

LNKCfR, I 

THAT CONTAINS S7FFF, IT MAY BE A LINK 

AODRESS 

01800804 


0816 

PO 219 

6622 


STA- 

(ZERO) ,0 

POINTING TO $7FFF 


0180 0 80 5 



0817 

P0Z1A 

01 71 


RAO- 

LNKCFRt I 

INCREMEND NUMBER OF LINK TABLE ENTRIES 


018 0 08 06 


o 

0818 

P021B 

in fi 

SB 

JMP* 

{SfRLNK) 

RETURN TO CALLER 


0180 D807 

o 

o 










o 

o 










o 

o 










o 

o 










o 

o 










o 

o 










o 

o 










c 

o 










o 

o 










o 

o 










o 
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0820 

& 

R 

0 

u 

T 

I 

N 

E 

0822 

% 

E 

X 

T 

E 

R 

N 

A 


0824 

P021C 

CITE 

ENTPRO 

L DA- INPXCC, I 

0825 

P021D 

61 0 F 


STA- INPCTR, I 

0826 

P021E 

OA 00 


ENA 0 

0827 

PG21F 

618D 


STA- EXTSWf , I 

0828 

P 0 22 0 

5825 

ENTPR1 

RTJ* NXTNAM 

0829 

P 0 221 

5128 


RTJ- T ABSCH, I 

0830 

p 0 22 2 

El 1C 


LDQ- SW6 , I 

0831 

P 0 223 

0175 


SDN ENTPR3-* 

0832 

P Q 224 

5162 


RTJ- PRINT5, I 

0833 

PO 225 

0 A38 


ENA $38 

0 83 4 

PO 226 

5136 


RTJ- PRINT 3,1 

08 3 5 

P 0 2 2 7 

1800 


JMP SEGMNT 


PO 228 

0 0 04 



0836 

P0229 

5800 

ENTPR3 

RTJ ENTSTR 


PB22A 

017B 



0 83 7 

PO 220 

18F4 


JMP* ENTPR1 


TO PROCESS ENTRY OR 
BLOCKS 


PICKUP ADDRESS INPUT-3 AND STORE IN INPCTR 
TO SETUP A POINTER TO THE ENTRY POINT VALUE 
SET SWITCH TO SAY AN ENTRY POINT BLOCK 
IS BEING PROCESSED 

PICKUP AN ENTRY FROM THE ENTRY BLOCK 
SEARCH THE ENTRY POINT TABLE TO SEE IF THIS 
NAME HAS BEEN PREVIOUSLY DEFINED 
NOT PREVIOUSLY DEFINED, STORE IN TABLE 

72*1681 

72*1681 

72*1681 

72*1681 

STORE THE NEW ENTRY PCI NT IN THE ENTRY TABLE 
PROCESS NEXT ENTRY POINT 


01800809 

01800811 


01800 813 
0180 0 81 A 
01800315 
0 180 Q 81 6 
01800 817 
01800818 
01800819 
01800 820 
01800821 
01800822 
01800823 
01800824 

01800825 

01800 826 


0839 

P022C 

5800 

SEGMNT 

RTJ 

NXT BIN 


P022D 

F DEC 




08 40 

PO 22 E 

Cl 96 


LOA- 

INPUT, I 

0841 

PO 22 F 

9000 


SUB 

= N$20 50 


P 0 230 

20 50 




0842 

P 0 23 1 

0104 


SAZ 

NAMBX 

0 843 

PO 232 

C 1 96 


LOA- 

INPUT, I 

0844 

PO 233 

0 F 48 


ARS 

8 

0845 

PO 234 

09D5 


INA 

-$2 A 

08 46 

PO 235 

0114 


SAN 

TRYAGN 

0847 

PO 23 6 

Cl 0 3 

NAMBX 

: LBA— 

PROBAS, I 

0848 

PO 23 7 

610 6 


STA- 

CSOLIM, I 

0849 

PO 238 

1800 


JMP 

SW1 A 


PO 239 

FDE9 




0850 

PO 23 A 

5 80 0 

X TRYAGN 

RTJ 

backgr 


PO 23B 

0016 

X 



0851 

PD23C 

13EF 


JMP* 

SEGMNT 

085 2 

PD23D 

C13E 

EXT PRO 

COA- 

INPXCC, I 

0 85 3 

P023E 

61 OF 


ST A - 

INPCTR, I 

0 8 5 4 

P023F 

0 A01 


ENA 

1 

0855 

P 0 240 

61 8D 


STA- 

EXTSWT , I 

0856 

PO 241 

5804 

EXTPRi 

RTJ* 

NXTNAM 

0857 

PO 242 

5 8 00 


RTJ 

EXSTOR 


PO 243 

01 £F 




0858 

PO 24 4 

18FC 


JMP* 

EXTPRI 


GET NEXT RECORD 

72*1681 

01800828 

RB BLOCK DESIGNATOR 
TEST FOR NAME BLOCK 

72*1681 

72*1681 

0180 0 82 9 
01800830 

RB BLOCK DESIGNATOR 

TEST FOR ASTERISK t*l 

RESET THE COMMAND SEQUENCE 
BECAUSE THIS PROGRAM WAS REJECTED 
PROCESS NAM BLOCK OR ASTERISK 

72*1681 

72*1681 

72*1681 

72*1681 

72*1681 

01800831 
01800 832 
01800833 
018 0 0 834 
01808 835 
01800836 
01800 837 
01800838 


72*1681 

01800839 

NOT NAME BLOCK OR ASTERISK 

SETUP POINTER TO EXTERNAL BY STORING 

INPUT-3 INTO INPCTR 

SET SWITCH TO SAY AN EXTERNAL BLOCK 
IS BEING PROCESSED 
PICKUP AN EXTERNAL FR CM THE BLOCK 
STORE THAT EXTERNAL IN THE FABLE 

72*1681 

01800 840 
0180 0 841 
0180 G 842 
01800843 
01800844 
01800 345 
01800346 

LOOP BACK TO GET NEXT EXTERNAL 


01800847 


o 

I LOAD 
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l ) 

o 




□ 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o ; 


ILOAD PAGE 25 OATES 08/19/99 


o 

0861 


T 

H I 

S 

S 

U 

B 

R 

0 U T I N £ 

PICKS UP 

T H E 

01800850 

o 

0853 

* 

E 

N T 

R Y 


P 

0 

I 

NT OR 

EXTERNAL 

N A N E 

01800852 

0865 

* 

F 

R 0 

H 

T 

H 

E 


BINARY 

BLOCK 


01800 85% 


o 


o 

0867 

P0245 

0800 

NXTNAM 

NOP 

0 

RETURN ADDRESS OF CALLER 

018130856 

0868 

P0 246 

E10F 


LDQ- 

INPCTR, I 

PICKUP THE POINTER FOR THE BLOCK 

01800857 


0869 

P0 24-7 

0 003 


INQ 

3 

INCREMENT POINTER TO NEXT BLOCK ENTRY 

0180 0858 


0870 

P0248 

0 A 0 1 


ENA 

1 


01800859 

r~\ 

0871 

P 0 249 

0 8 34 


AA Q 

A 


0180 0 86 0 


0872 

P024A 

61 OF 


STA- 

INPCTR, I 


0180 0 851 


0873 

PO 2 *+B 

C 2 0 1 


LDA- 

1,Q 

PICKUP FIRST WORD OF THIS ENTRY 

01800862 


087 4 

P024C 

0 9 00 


IN A 

0 


01800863 

n 

0875 

P0 24D 

0111 


SAN 

NXN AMI- *-l 

SKIP IF NOT AT END OF BINARY BLOCK 

0180 0 864 

0876 

PO 24E 

113F 


JMP- 

NXTINP, I 

GO TO REAO IN THE NEXT BINARY BLOCK 

01800865 


0877 

P024F 

C2 0 4 

NXNAMi 

LDA - 

4-* 0, 

PICKUP ADDRESS OF ENTRY POINT 

01800866 


0878 

P 0 25 0 

01 3D 


SAN 

ABSADR-’-i 

SKIP IF BIT 15 IS SET INDICATING THAT THIS 

0180 0 867 

O 

0879 



* 



IS AN ABSOLUTE ADDRESS 

0180 D 86 8 

0880 

P0 251 

8103 


ADD- 

PROSAS, I 

IF ENTRY POINT IS PROGRAM RELOCATABLE ADD ITS 

01800869 


0881 

PQ 252 

61 0D 


S T A - 

ENTPNT, I 

VALUE TO THE PROGRAM BASE TO FORM AN 

O18QD870 


0882 






ABSOLUTE ADDRESS FOR THE ENTRY POINT 

01800871 

O 

0883 

P 0 253 

B 1 41 


EOR- 

H7FFF , I 

CHECK TO SEE IF THE ADDRESS HAS BEEN 

01800872 

088 4 

P0 254 

0 1 1 B 


SAN 

RELADRH-*-i 

ABSOLUTIZED TO S7FFF. IF IT HAS AND THIS IS 

01800873 


0885 

P0 2 55 

C18D 


LDA- 

EXTSWT, I 

AN ENTRY POINT BLOCK PRINT NON-FATAL ERROR 

01800874 


0886 

PS 25 6 

0102 


SAZ 

NOTEXT” *-l 

€17 AND THE ENTRY POINT NAME. IF THE BLOCK 

01800875 

o 

0887 

P 0 2 5 7 

08 04 


SET 

A 

IS AN EXTERNAL CHANGE THE ADDRESS TO SFFFF 

01800876 

0888 

P0 258 

1807 


JMP* 

RELAOR 

SO THE LINK ROUTINE DOES NOT MISTAKE THE 

01800877 


0889 

P0 25 9 

cooo 

NOTEXT 

LD A 

= A17 

ADDRESS FOR THE END OF AN EXTERNAL STRING 

01800878 



P025A 

3137 






r~\ 

0890 

PO 25 R 

5136 


RTJ- 

PRINTS, I 

PRINT ERROR 17 

01800879 

vJ 

0891 

P025C 

5162 


RTJ- 

PRINTS, I 

PRINT ENTRY POINT NAME 

01800880 


0892 

P025D 

18 03 


JNP* 

RELAORf 1 

EXIT TO CALLER 

01860 881 

o 

08 9 4 

P025E 

08 64 

ABSAOR 

TCA 

A 

COMPLEMENT ADDRESS BACK TO GET TRUE 

01800883 


0895 



♦ 



ENTRY POINT VALUE. { BOTH THE ASSEMBLER AND 

0180 0384 


0896 



%• 



COMPILER COMPLEMENT ABSOLUTE ENTRY POINT 

01800885 

o 

0897 



* 



ADDRESSES. 3 

01800886 

0898 

P025F 

6100 

RELAOR 

STA- 

ENTPNT, I 

SAVE ABSOLUTE ADDRESS OF ENTRY OR EXTERNAL 

01800887 


0899 

P0260 

1CE4 


JMP* 

JNXTNAMl 

RETURN TO CALLER 

0180 0 888 


o 

o 

o 

o 

o 

o 

o 


o 


o 


o 

o 

o 


o 


o 


O 

o 

O 

o 

O 

o 



090 1 
0903 


090 5 
Q 90 6 
0907 
0903 
090 9 

0910 

0911 

0912 

0913 


091 6 

0917 

0918 


0920 


0922 

0923 

0924 

0925 

092 6 

0927 

0928 

0929 

093 0 

0931 

0932 


ILOAD 
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DATE: 08/19/99 






R C U T I N 
TRAN 


E TO 
S F E R 


PROCESS 

BLOCKS 


01800890 

01800892 


PO 

261 

Cl 

97 

PO 

262 

R1 

12 

PO 

263 

01 

06 

PO 

264 

Cl 

97 

PO 

265 

61 

20 

PG 

266 

Cl 

98 

PO 

26 7 

61 

21 

PO 

26 8 

Cl 

99 

P0269 

61 

22 

PO 

26A 

Cl 

06 

PO 

26B 

61 

03 

PO 

260 

11 

3F 


XFRPRO LOA- 
SUB- 
SAZ 
LDA- 
STA- 
LDA- 
STA- 
LDA- 
STA- 


XFR1 LDA- 
STA- 
JMP— 


INPUT + 1 ,1 
BLANKS, I 
XF*l-*-i 
INPUT *1,1 
XFRNAM, I 
INPUT + 2 , 1 
XFRNA M* 1 , 1 
INPUT +3 ,1 
XFRNAM»-2,I 


CSQLIM, I 
PRO BA S, I 
NXTINP, I 


PICKUP THE FIRST WORD OF THE TRANSFER ADDRESS 
COMPARE THIS WORD TO ASCII SPACES ($20203 
SKIP IF THE TRANSFER NAME IS BLANK 
PICKUP THREE WORDS OF TRANSFER ADDRESS 
FROM INPUTfrl, INPUT + 2 , AND INPUT+3- 
S A'\?E THE THREE WORDS IN THE CELLS XFRNAM, 
XFRNAM* 1 , AND XFRNAM + 2 IN THE INITIALIZER 
LOADER TABLE. 


01800394 
0180 Q895 
0180 0 896 
01800897 
01800898 
0180 G 899 
01800900 
01800901 
01800902 


THIS IS THE END OF THIS PROGRAM SO UPDATE 01800905 
PROBAS FOR THE START OF THE NEXT PROGRAM 0180 0906 
GO BACK TO READ IN THE NEXT BINARY BLOCK 01800907 


* 


ROUTINE 


T 0 


PATCH 


ENTRY 


POINTS 


01800909 


P026D 

0 A 0 0 

LNKENT 

ENA 0 

P026E 

6110 


STA- NOTLNK , I 

P026F 

58 IB 


RTJ* PATCH 

PO 270 

El 31 


LDQ- NOJUMP,! 

P 0 27 1 

01 51 


SQN LNKENQ 

PO 272 

1815 


JMP* LNKEN1 

P0273 

0 A 0 0 

LNKENO 

ENA 0 

PO 274 

6131 


STA- NOJUMP, I 

PD 275 

C100 


LDA =XXFRNAM,I 

PO 27 6 

0020 



P0277 

61 Q F 


STA- INPCTR, I 

PG278 

5128 


RTJ- T A8S0H-, I 


CLEAR THE FLAG SAYING UNPATCHED 

EXTERNALS EXIST 

PATCH ALL PROGRAM EXTERNALS 

SKIP IF TRANSFER ADDRESS NEEDED 

CLEAR FLAG 

SEARCH ENTRY POINT TABLE FOR 


01800911 
0180 0912 
01800913 
01800914 
01800915 
01800916 
018 0 0 917 
01800918 
01800919 

01800920 

01800921 


o 






o 




0933 
093 A 

P0 279 

6 1 CD 


STA- 

ENTPNT, I 

o 

0935 

P027A 

CiiC 


L DA- 

SW6 » I 

093 6 

P027B 

0123 


SAP 

LNKF.N2 


093 7 

P027C 

CO 00 


LD A 

= Ai 3 



PG27D 

3133 




o • 

0 93 8 

P0 27E 

1138 


JHP~ 

PRINT2, I 

0 93 9 

P027F 

C10B 

LN KEN 2 

LDA- 

ENTPNT, I 


0940 

PG280 

6805 


STA* 

LNKEN3 


0941 

P 02 8 1 

Cl 83 


LOA- 

PAR BAS, I 

o 

09 4 2 

P0282 

0901 


INA 

1 

0943 

Pfl 283 

5800 


RTJ 

DISKWR 



PG 28 4 

0 2 D4 





0944 

P 0 28 5 

00 0 0 

LNKEN3 

NUM 

0 

o 

0945 

P 0 28 6 

Q 0 0 0 


NUM 

0 

0946 

0 2 87 

P LNKEN1 

EQU 

LNKENK *) 


0947 

P 0 2 8 7 

E110 


LDO- 

NOTLNK, I 


0948 

P 0288 

ICOO 


JHP 

CIL0AD1 

o 


P0289 

FD 77 





TRANSFER ADDRESS 
SKIP IF FOUND 

ERROR - UNDEFINED TRANSFER ADDRESS 

STORE TRANSFER ADDRESS IN 
SECOND WORD OF CSG 

PICKUP UNPATCHEQ EXTERNAL FLAG 
RETURN TO CALLER 


O 

O 

O 


O 


O 

O 

O 

o 

o 

o 


01800922 
0 18 Q 0 92 3 
0 180 0 92 4 
0 1800925 
0180 0926 

01800927 
01800928 
01800929 
0180 0930 
01800931 
01800932 

01800933 
01800934 
01800935 
0.180 0 93 6 
01800937 


□ 

O 

O 

o 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


I LOAD PACE 28 DATE.* 06/19/99 


0950 

'* 

R 

0 

U 

T I 

N E 

T 0 

P 

A 

T C H THE 

EXTERNALS 

0952 


0 

F 


A 

P R 

0 G R A 

M 


TO THE 

LOADER 

0954 


F 

N 

T 

R Y 

P 0 

INI 


T 

ABLE 



0956 

P028A 

OBOO 

PATCH 

NOP D 


0957 

P028B 

C 1 76 


LDA- EXTSTR* 

I 

0953 

0959 

P0 28C 

61 7C 

* 

STA- EXTAT3R, 
SUB- EXICTR, 

I 

0960 

0961 

PD28D 

9107 

If 

I 


0962 

0963 

P0 28E 

0131 

* 

SAM PATCH1- 

'*-1 

0964 

P028F 

1CFA 


JMP* (PATCH* 



0966 

PO 290 

O'CFB 

PAT CHI 

FNQ 

-4 

0967 

P 0 291 

41 90 


STQ- 

TEMP3 ,1 

0968 

P0292 

EOFF 


LDQ- 

I 

0969 

P 0 29 3 

0 D 1 3 


ING 

SYMSTR 

0 97 0 

PO 294 

41 OF 


STQ- 

I NPCTR * I 

0971 

PO 2 95 

E10F 

’ PAT CH2' 

LDQ- 

INPCTR, I 

0972 

P0296 

Cl 7C 


LQA- 

E XT A 0 R* I 

0973 

P 0 29 7 
P 0 298 

5800 
Q 2 BC 


RTJ 

DISKRD 

097 4 
0975 

P0299 

80 00 

* 

NUM 

$8 0 00 

0976 

P029A 

FI 9 0 


A DO- 

TEMP 3 » I 

097 7 

PD29B 

6204 


ST A- 

4 » Q 

0 97 8 
0979 

PD29C 

0190 


RAO- 

TEMPS * I 

0980 

P029D 

B17C 


RAO- 

EXT ADR, I 

0981 
098 2 

P029E 

Cl 90 

* 

LQA - 

TEMP 3, I 

0983 

PO 29 F 

0101 


SAZ 

PATCH3-*-! 

0984 

P 0 ?A 0 

1 3F4 


JMP* 

PATCH2 

098 5 

P02A1 

El OF 

PATCH 3 

LBQ- 

INPCTR* I 

098 6 

P02A2 

0622 


LDA- 

(ZERO) * Q 

0987 

0988 

P02A3 

6109 

* 

STA- 

A8RLSW, I 

0989 

PG2A4 

C 2 0 1 


L D A - 

1 » Q 

0990 

P02A5 

0121 


SAP 

PATCH4-*-! 

0991 

P02A6 

1816 


JMP* 

PATCH5 

099? 

P02A7 

51 28 

PATCH 4 

RTJ- 

TABSCH* I 

9993 

P 0 2 A 8 

6 1 OD 


STA- 

ENTPNT * I 

0994 

P02A9 

C11C 


LQA- 

SW6 * I 

0995 

P02AA 

0 1 23 


SAP 

PATCH6-*-! 


RETURN ADDRESS OF CALLER 

PICKUP THE WORD ADDRESS OF THE START OF THE 
EXTERNAL TABLE AND USE IT AS THE CURRENT 
ADDRESS IN THE EXTERNAL TABLE 
SUBTRACT THE END OF THE EXTERNAL TABLE FROM 
THE START OF THE EXTERNAL TABLE TO DETERMINE 
IF ANY EXTERNALS EXIST. 

SKIP IF EXTERNAL TABLE EXISTS 

RETURN TO CALLER* THERE ARE NO EXTERNALS 


SETUP WORD COUNTER FOR FOUR WORD BLOCKS 

SETUP INPUT BUFFER POINTER TO POINT TO 
THE EXTERNAL BUFFER. C THE EXTERNAL IS HELD 
IN THE SYMSTR BUFFER PLUS LOCATION SCANSW ) 


PICKUP THE ADDRESS OF THE FIRST EXTERNAL 
USE THE PAGE ROUTINE TO BRING IN THE EXTERNAL 


FLAG SAYING ADDRESS IN A-REGISTER IS 

IN AN ENTRY/EXTERNAL PAGE 

SAVE THE WORD OF THE EXTERNAL TABLE IN 

THE LOADERS INPUT BUFFER 

INCREMENT THE COUNTER FOR WHICH WORD OF 

THE EXTERNAL BLOCK TO PROCESS 

INCREMENT THE TABLE ADDRESS OF THE EXTERNAL 

TEST THE COUNTER TO SFE IF THE ENTIRE 

EXTERNAL HAS BEEN STORED IN THE INPUT BUFFER 

SKIP IF EXTERNAL IN 

GO BACK TO GET NEXT WORD OF EXTERNAL 


PICKUP THE FIRST WORD OF THE EXTERNAL ENTRY 
SAVE FOR USE AS ABSOLUTE/RELATIVE SWITCH 
f 81 T 15 OF THE FIRST WORD IS PEL /APS SWITCH) 
PICKUP SECOND WORD OF EXTERNAL TO SEE IF 
THE EXTERNAL IS ALREADY PATCHED I BIT 15 = 1) 
ALREADY PATCHED - GO ON 

UNPATCHED, SEARCH ENTRY POINT TABLE FOR MATCH 
SAVE THE VALUE RETURNED BY TABSCH 
WAS THE NAME FOUND AS AN ENTRY POINT 
YFS 


01800939 
0180 0941 
01800 943 


01800945 
01800946 
0180094/ 
01800948 
01800949 
01800950 
01800951 
018 0 3 952 
01800953 


0 18 0 G 95 5 
01800956 
01800957 
0189 0 95 8 
01800959 
0180 3960 
01830961 
01800962 

01800963 
01800964 
018 0 0 965 
018 0 0 96 6 
01800967 
01800968 
01800969 
01800970 
01800971 
01800972 
01800973 
0180 0 97 4 
01800975 
01800976 
0180 0 977 
01800978 
0180 0 979 
01800930 
01800981 
01800962 
01800983 
01800984 
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0996 

P0 2AB 

0 A 0 1 


ENA 1 

0997 

P 0 2 AC 

6110 


STA- NOTLNK, 

0998 

P02AD 

18 0 F 


JMP* PATCH5 

0999 

P'O 2 At 

El OF 

PATCH 6 

LDQ- INPCTR, 

1000 

PQ2AF 

C 2 03 


LDA - 3,0 

1001 

P0 2B0 

61 OF 


STA- LINK, I 

1002 

P02B1 

51 68 


RTJ- LINK!, I 

1003 

P02B2 

E10F 


LDQ- INPCTR, 

1004 

1005 

P02B3 

C2 01 


LDA- 1,Q 

100 6 

P02B4 

B142 


EOR- M 8 0 0 0 , I 

1007 

P02B5 

6805 


STA* PATCH? 

10 0 8 

P02B6 

Cl 7C 


LDA- EXT A 0 R, 

1009 

P02E7 

0 9 FC 


INA -3 

1010 

P02B3 

5800 


RTJ OISKWR 

1011 

PO 2B9 
PQ2BA 

029F 
00 0 0 

PATCH7 

NUM Q 

1012 

P02BB 

8 0 0 0 


NUN $8000 

1013 

P02BC 

C17C 

PATCH5 

LDA- EXT ADR, 

1014 

P02BD 

91 07 


SUB- EXTCTR, 

1015 

PQ2BE 

0121 


SAP PATCH8- 

1016 

P02BF 

18 DO 


JMP* PATCH1 

1017 

P0 2C0 

1CC9 

PATCH8 

JMP* I PATCH) 


NO, SET THE NOTLNK FLAG SAYING THAT THERE 

IS AT LEAST ONE UNPATCHED EXTERNAL 

GO TO PROCESS NEXT EXTERNAL 

RESTORE THE INDEX TO THE INPUT BUFFER 

PICKUP THE EXTERNAL ADDRESS 

SAVE THE LINK ADDRESS 

PATCH THE EXTERNAL STRING „ 

PICKUP THE ADDRESS OF THE START OF THE 
EXTERNAL STRING 

PICKUP THE SECOND WORD OF THE EXTERNAL NAME 
SFT BIT 15 SAYING EXTERNAL PATCHED 
STORE THE WORD IN THE WRITE PARAMETER LIST 
PICKUP THE ADDRESS OF THE NEXT EXTERNAL 
SET THE POINTER BACK TO WORO TWO OF THIS EXT, 
UPDATE THE EXTERNAL SLOCK TO SAY ITS PATCHED 

UPDATED WORD TWO OF EXTERNAL BLOCK 
FLAG SAYING ADDRESS IS IN ENT/EXT PAGE 
PICKUP NEXT AVAILABLE EXTERNAL ADDRESS 
COMPARE TO END OF EXTERNAL TABLE 
SKIP IF AT END OF TABLE 
GO BACK TO GET NEXT EXTERNAL 
RETURN TO CALLER 


01800985 
01800986 
0180098/ 
0180 0 988 
01800989 
0 18 00 99 D 
01800991 
01800992 
01800993 
01800994 
01800995 
01800996 
01800997 
01800998 
01800999 

01801000 
01801 001 
01801002 
01801003 
0180 100 A 
0180 100 5 
01801006 
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ROUTINE TO LINK EXTERNALS 


01801903 


PQ2C1 C10E LINKil LDA- LINK, I 

P02C2 6830 ST A* LNKSAV 

PC2C3 0 8 22 TRA Q 

P02C4 B143 EOR- NFFFF , I 

P02C5 0114 SAN LINKlA-'*-i 

P0 2C6, 0 814 TRQ A 

PG2C7 A 1 41 AND- M7FFF,I 

PQ2CR 61 OE STA- LINK, I 

P02C9 18 OF JMP* LINKA 

P02CA 0814 LINK1A TRO A 

P02CB 9141 LINK2 SU3- H7FFF, I 

P02CC 011B SAN LINKA-*-! 


PICKUP THE EXTERNAL LINK ADDRESS 
SAVE ADDRESS FOR LATER COMPARISON 

TEST IF FIRST ADDRESS IS PROGRAM RELOCATABLE' 
AND WAS ABSOLUTIZED TO SFFFF BY EXTPRO 
YES, CLEAR THE UPPER BIT AND SET THE 
LINK ADDRESS TO $7FFF 


PUT TH'E LINK ADDRESS BACK INTO A- 
TEST FOR END OF EXTERNAL STRING 
SKIP IF NOT AT END OF STRING 


■REGISTER 


0180 
0180 
0180 
0180 
0180 
0180 
0180 
018 0 
0180 
0180 
0180 
0180 


1 D 1 0 
1011 
1012 
181 3 

1014 

1015 

1016 
loir 
1018 
1019 
1 020 
1021 


TEST TO 


LINK TABLE 


01801023 


P02CD E170 
P0 2CE Cl 71 


P0 2CF 
PO 2D 0 
PO 2D1 
P02D2 
P02D3 
P02D4 


0 8 64 
08 34 
0105 
C 622 
882C 
0103 


PO 2D 5 0001 
P'0 2D 6 13 FT 

P02D7 116 7 
P02B3 C10E 


PO 2D9 
P02DA 
P02DB 
P0 2DC 
P02DD 
P02DE 
P02DF 
P02E0 


58 0 0 

0 2 7A 
0 0 00 
61 0 A 
E 1 57 

01 46 
El 43 
0114 


LNB 

LINKA 

■* 


LDQ- 

LDA- 


TCA 

A A 0 

SAZ 

LDA- 

EOR* 

SAZ 


LNKSTR, I 
LNKCTR, I 


LNB-*-i 
(ZERO) , Q 
LNKSAV 
LINKA-*-! 


INQ 

JMP* 

JMP- 

LDA- 


ADC 

STA- 

LDQ- 

SQZ 

EOR- 

SAN 


LK1XIT, I 
LINK, I 

OISKRD 


INPWRD, I 
ARIT15. I 
LINB-*-l 
MFFFF , I 
LINB-*-l 


PICKUP THE ADDRESS OF THE LINK TABLE 01801025 
PICKUP THE NEXT AVAILABLE ADDRESS IN LINK T8L .0180- 1 026 
THE FIRST TIME THROUGH TEST FOR EMPTY TABLE* 01801027 
ALL OTHER TIMES CHECK FOR END OF TABLE 01801028 

01801029 

018Q103D 

SKIP OUT OF CHECK IF AT END OF TABLE 01801031 
COMPARE THE ADDRESS IN THE LINK TABLE TO 01801032 
THE ADDRESS OF THIS EXTERNAL. IF THE ADDRESSE SOI 8 0 1 0 33 
ARE IDENTICAL THEN THE S7FFF IS A POINTER 0180 1 334 
TO THE NEXT LINK ADDRESS AND DOES NOT 0180 1035 
SIGNIFY THE END OF AN EXTERNAL STRING. 01801036 
THE EXTERNAL ADDRESS DOES NOT MATCH THE 01801037 
ADDRESS IN THE LINK TABLE, SO INCREASE THE 01801038 
LINK TABLE POINTER AND CHECK THE NEXT ENTRY 01801039 
END OF EXTERNAL STRING, EXIT 01801040 
PICKUP THE CONTENTS OF THE NEXT WORD IN 01801041 
THE EXTERNAL STRING 01801042 
READ STRING WORD VI A PAGE 01801043 

FLAG SAYING THIS IS A COMMAND SEQUENCE A DDRESSO ISO 1 044 
SAVE THIS LINK ADDRESS IN INPWRD 01801045 
TEST FOR 15 BIT ARITHMETIC WHICH SAYS 01301046 
THAT MULTILEVEL INDIRECT IS LEGAL 01801047 
16 BIT ARITHMETIC - CHECK FOR MULTILEVEL 01801D48 
AND PRINT ERROR 9 IF MULTILEVEL FOUND 0180 1049 


I LOAD 
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DATES 08/19/99 


1061 

P0 2E1 

0A39 


ENA 

$39 

1062 

P02E2 

5136 


RTJ- 

PRINT3, 

1063 

P02E3 

5 8 ID 


RTJ* 

BADEXT 

1064 

P0 2F4 

11 67 


JMP- 

LK1XIT, 

1065 

P02E5 

Cl CD 

LINS 

LOA- 

ENTPNT, 

1066 

PO 2E6 

El 09 


L D Q — 

ABRLSW, 

1067 

PO 2E7 

0178 


SQM 

LK1J11- 

1068 

P0 2E8 

E 1 57 


LDQ- 

ARIT15, 

1069 

P0 2E9 

0141 


SQZ 

LK1 J12- 

1070 

P0 2FA 

1807 


JMP* 

LK1J10 

1071 

P0 2EB 

0822 

LK1J12 

TRA 

Q 

1072 

P0 2EC 

C10A 


LDA- 

INPWRD, 

1073 

P02ED 

A 1 42 


AND- 

M80 00 , I 

1074 

P02EF 

0 8 74 


EAO 

A 

1075 

PQZEF 

18 02 


JMP* 

LK1J1Q 

1076 

P02F0 

9 1 GE 

LKUli 

SUB- 

LINK, I 

1077 

P0 2F1. 

68 04 

LK1J1 D 

ST A* 

VALINK 

10 78 

PO 2 F? 

C, 1 G F 


LOA- 

LINK, I 

1079 

P02F3 

58 0 0 


RTJ 

DISKWR 


P02F4 

0 264 



0 

10 80 

P02F5 

0 0 00 

VALINK 

NUM 

1081 

P02F6 

0 0 0 0 


NUM 

0 

1082 

P32F7 

C1DE 


LDA- 

LINK, I 

1083 

P02F8 

6807 


STA* 

LNKSAV 

1084 

P32F9 

Cl OA 


LDA- 

INPWRD, 

1085 

P02FA 

El 57 


LDQ- 

ARIT15, 

1086 

P02FB 

0151 


SQN 

LINK3-* 

1087 

P02FC 

A 141 


AND- 

M7FFF , I 

1088 

P02FD 

610E 

LINKS 

STA- 

LINK, I 

1089 

P02FE 

18 CC 


JMP* 

LINK2 

1091 

P0 2FF 

0 0 0 0 

LNKSAV 

NUM 

0 

1092 

P 0 30 0 

OBOG 

BAOEXT 

NOP 

0 

1093 

P 0 30 1 

5835 


RTJ* 

BDEXT2 

1094 

P 0 3 0 2 

41 4E 

BDEXT1 

ALF 

*,AN IL 


PO 303 

2 0 4g 





P G 3 0 4 

4C4C 





P0305 

4547 





P0306 

4 1 4C 





P0307 

2 0 4D 





P 0 3 0 8 

55 4C 





P 0 3 0 9 

5449 





P 0 3 0 A 

4C45 





P 8306 

5645 





P03QC 

4C20 





P 0 300 

494E 





P030E 

4449 





P 03 OF 

5245 





P031Q 

43 54 





PO 311 

2 0 49 





P 0 3 1 2 

5320 





P0313 

49 4E 





*-i 

I 


LOG ERROR 

ABORT PATCHING THIS STRING 
PICKUP THE ENTRY POINT ADDRESS 
PICKUP RELATIVE/ABSOLUTE SWITCH 
SKIP IF RELATIVE EXTERNAL 
CHECK FOR 15 OR 16 SIT ARITHMETIC 
SKIP IF 15 BIT ARITHMETIC 
16 BIT ARITHMETIC-RETURN 
SAVE ENTRY POINT ADDRESS. 

PICKUP EXTERNAL LINK. 

SAVE INDIRECT BIT OF LINK ADDRESS. 

COMBINE BIT 15 OF LINK WITH BITS 0-14 
OF ENTRY POINT ADDRESS. 

COMPUTE THE 'RELATIVE DISPLACEMENT 
SAVE THE VALUE TO REPLACE LINK ADDRESS 
PICKUP THE ADDRESS TO STORE INTO 
STORE THE EXTERNAL ADDRESS VIA PAGE 

'VALUE TO BE STORED 

FLAG SAYING ADDRESS IS COMMAND SEQUENCE 

PICKUP AND SAVE THE LAST LINK ADDRESS FOR LNA 

TO USE IN DECIDING IF S7FFF IS END OF STRING 

PICKUP THE NEXT ADDRESS IN THE STRING 

IS 15 BIT ARITHMETIC SPECIFIED 

NO, GOTO PROCESS THE NEXT LINK 

YES, CLEAR THE INDIRECT BIT 

UPDATE TO THE NEXT LINK ADDRESS 

LOOP BACK TO PROCESS NEXT LINK IN STRING 


LINK ADDRESS OF LAST ENTRY IN STRING 
ROUTINE TO IDENTIFY START OF EXTERNAL 
STRING EITH ILLEGAL MULTILEVEL INDIRECT 
MULTILEVEL INDIRECT IS IN THE EXTERNAL* 


01801050 
01801051 
01801052 
01801053 
01601054 
01801055 
01801056 
01801057 
01801058 
01801059 
01801060 
01801061 
01801062 
01801063 
01881064 
0180 1065 
01801066 
01801067 
01801068 

01801069 
01801070 
01801071 
01801072 
01801073 
01801074 
01801075 
0180 1076 
01801077 
0180 1078 


01801080 
018G1 081 
0 180 1082 
0 18 G 1 08 3 



JMP* IBADEXT1 


01801 084 
01801085 


01801086 
0180 1087 
01801088 
01801089 


01801090 
0180 1091 
01801092 
01801093 
01801094 
01801095 
01801096 
01801097 
01801098 
01801099 
0180 1100 
01801101 
01801102 
01801103 
0180 1104 
01801105 
01801106 
0 18 0 1 ID 7 
01801108 

01801109 


o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


I 


o 
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DATES 08/19/99 


ROUTINE T 
TABLE FOR 


SEARCH i 
DUPLICATE 


ENTRY 


POINT 


ENTRIES 


01801111 

01801113 


PQ 348 
P0349 
P034A 
P034R 
P0 34C 
P034Q 
P034E 
P034F 
P 0 35 0 
PO 351 
PO 352 
P 0 3 5 3 
PQ354 
P0355 
PO 35 6 
P0357 
PG 358 
PO 35 9 
P 0 3 5 A 
P035B 
P035C 
P035D 
P035E 
P035F 
P 0 36 0 
P 0 361 
P 0 3 6 2 


C 1 6 B 
912C 
0105 
Cl 6R 
612B 
E12C 
41 2E 
5 814 
C14E 
G9FB 
010 A 
0121 
181C 
C 1 65 
013 1 
1819 
Cl 74 
61 2 B 
E18C 
41 2 ; E 
53 07 
Cl 73 
6 1 2 B 
E18B 
41 2F 
5802 
1 8 0 E 


SCHT81 


SCHTB 2 


SCHTB3 


SCHT84 


ENTERED BY THE 
RTJ- TABSCH, I 


ENTRANCE PARAMETERS 
INPCTR = ADDRESS OF 


NAME 


ENTRY POINT 


EXIT PARAMETERS 


SCHTBL 


LDA- 
SUB- 
S A Z 


ENTPGSf 
MAXENT, 
SCHTB 1 


LOA- ENTPGS-, I 


STA- 
LDQ- 
STQ- 
RTJ* 
LOA- 
INA 
SAZ 
SAP 
JMP* 
LDA- 
SAN 
JMP* 
LOA- 
STA- 
L DO- 
ST GI- 
RT J* 
LDA- 
STA- 
LDQ- 
STO- 
RTJ* 
JMP* 


CENTAL), I 
MAXENT, I 
TEMPI , I 
TESCHO 
CSNArtE, I 
-4 

SCHTB4 
SCHTB 2 
TSEXIT 
AINPUT, I 
SCHTB 3 
TSEXIT 
ENTST1, I 
CENTAD, I 
ECREP1, I 
TEMPI, I 
TBSCHQ 
ENTSTO, I 
CENTAD, I 
ECREP, I 
TEMPI ,1 
TBSCHQ 
TSEXIT 


01801115 

FOLLOWING SEQUENCE 01801116 

01801117 
01801118 
01801119 
01801120 

NAME OF ENTRY POINT 01801121 

01801122 
01801123 
01801124 
01801125 

ISTER =-0 NO MATCH FOUND 01801126 

ISTER „NE. 0 MATCH FOUND A= ADDRESS OF ENTRYO 180 1 127 

01801128 
01801129 

IS THERE ANY ENTRY POINT TABLE FOR THIS LOAD 01801130 
NO, CHECK FOR OTHER TABLES 1 32*51 27** ** *** * 

YES, SET THE ADDRESS OF THE ENTRY BEING 01801132 

CURRENTLY EXAMINED TO THE START OF THE TABLE 01801133 

132*5127******** 

SET END OF ENTRY POINT TABLE 132*5127******** 

SEARCH TABLE 132*5127******** 


A-REGISTER 

A-REGISTER 


=-0 

„NE. 


NO MATCH FOUND 

MATCH FOUND A= ADDRESS OF 


SKIP 

SKIP 

JUMP 


*LP 

* M OR *MP 
*L 

LINK EXTERNALS FUNCTION 


SEARCH 
SET TO 


LINK 


TABLE 
LINK TO 


CREP1 


GR EF 0 


SEARCH TABLE 


132*5127******** 
132*5127******** 
132*5127******** 
132*5127******** 
132*5127******** 
132*5127******** 
132*5127******** 
132*5127******** 
1 77 ¥*¥*-**¥* 

132*5127******** 

132*5127******** 

132*5127******** 
132*5127******** 
1 37 * 51 77 *»****** 
1 32*5127******** 
132*5127******** 
132*5127******** 
132*5127******** 
1 32*5127******** 
132*5127******** 


1168 P 0 363 0800 

1169 PO 364 5 8 0 F 


TBSCHQ NOP 0 
TBSCH1 RTJ* SEARCH 


IS CURRENT TABLE ENTRY A MATCH 


132*5127******** 

01801134 


ILOAD 
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DATEJ 08/19/99 


1170 

P 0 36 5 

1127 


JMP- SCHXIT , 

I 

1171 

P 0 366 

Cl 2 B 


LDA- CENTAD, 

I 

1172 

P0367 

09 04 


INA 4 


1173 

P0368 

61 2 B 


STA- CENTAD, 

I 

1174 

P 0 3 6 9 

E12E 


LDQ- TEMPI ,1 


1175 

P036A 

aa 52 


TCQ Q 


1176 

P036B 

0832 


A AO Q 


1177 

P036C 

0D00 


INQ 0 


1178 

P036D 

01 71 


SQM TSOKl—* 

-1 

1179 

P036E 

1C F4 


JMP* (TBSCHO') 

1180 

P036F 

18F4 

TSOKl 

JMP* TBSCH1 


1181 

P 0 370 

0 AFF 

TSE XI T 

ENA -0 


118 2 

P 0 37 1 

61 1C 


STA- S W6 , I 


1183 

P 0 372 

1127 


JMP- SCHXIT, 

I 


YES, EXIT WITH SW6=0 A=ENTRY ADDRESS 
NO, UPDATE CURRENT ENTRY ADDRESS 


CHECK FOR END OF ENTRY POINT TABLE 132*512 
ADD COMPLEMENT OF TABLE LENGTH TO ADDRESS 
OF NEXT ENTRY TO DETERMINE IF AT END OF TABLE 

NOT AT END, CONTINUE TABLE SEARCH 

132*512 

LOOP BACK TO CHECK NEK ENTRY 
SET BOTH A-REGISTER AND SW6 TO MINUS ZERO 
TO INDICATE THAT NO MATCH WAS FOUND 
RETURN TO CALLER 


01801135 

01801136 

01801137 

01801138 

0 1801 140 
01801141 
01801142 
01801143 
* 

01801145 
0180 1146 
0180 1147 
01801148 


35 


DATES 08/19/99 


1185 

1187 


1189 
119 0 

1191 

1192 

1193 
119 4 

1195 

1196 
119 7 
1193 


1200 
1201 
120 2 
1203 
120 4 
1205 
120 5 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 


I'LOAD 


PAGE 


* 


ROUTINE TO 
TABLE FOR 


SEARCH ENTRY/EXTERNAL 
A SPECIFIC NAME 


01801150 

01801152 


* 

* 

* 

* 

■» 

* 

* 

•s 

* 

X 


ON ENTRY TO THIS ROUTINE THE A-REGISTER IS EQUAL TO THE NEXT 
WORD TO BE CHECKED IN THE ENTRY OR EXTERNAL TABLE. THE LOCATION 
INECTR IS SET EQUAL TO THE ADDRESS OF THE ENTRY OR EXTERNAL 
BEING SEARCHEO FOR IN THE TABLE. 

EXIT IS TO P+1 IF A MATCH IF FOUND OR TO P+2 IF NO HATCH FOUND 

IN THE CASE OF A. HATCH FOUND, THE A-REGISTER IS EQUAL TO THE 
ADDRESS OF THE ENTRY POINT VALUE OR TO THE ADDRESS OF THE 
EXTERNAL LINK ADDRESS AND SW6 IS EQUAL TO POSITIVE ZERO. 


01801154 
0 18 G 1 15 5 
0180 1 15 6 
01801157 
01801158 
01801159 
01801160 
01801161 
01801162 
01801163 


PO 373 

0 RGG 

SEARCH 

NOP 0 

P0 374 

61 2D 


STA- TEMP, I 

PG375 

OCFC 


ENQ -3 

P0376 

411C 


STQ- SW6,I 

P0377 

5814 

TBSCH2 

RTJ* GET 

PO 37 8 

61 58 


STA- PRESET, I 

P0379 

A 1 41 


AND- M7FFF , I 

P 0 3 7 A 

61 8 6 


STA- AHOLD, I 

P037B 

El 1C 


LDO- S W6 , I 

P037C 

F10F 


AOQ- I NPCTR , I 

P 0 370 

C203 


LDA- 3,0 

P037E 

A 1 41 


AND- M7FFF , I 

PQ37E 

R1 88 


FOR- AHOLD, I 

PO 38 0 

0102 


SAZ TBSCH3- V -1 

P 0 33 1 

D 3 FI 


RAO* SEARCH 

PO 38 2 

1CF0 


JMP* ((SEARCH) 

P 0333 

one 

TBSCH3 

RAO- SW6 , I 

P 0 334 

D 1 2D 


RAO- TEMP, I 

P0385 

Cl 20 


LDA- TEMP, I 

PC 3 86 

E11C 


LDO- SWS,I 

P 0 387 

01 41 


SQZ TBS CH4-*-i 

P0388 

1 SEE 


JMP* TBSCH2 

PQ389 

5802 

TBSCH4 

RTJ* GET 

PQ38A 

1CE8 


JMP* I SEARCH) 


ROUTINE TO FIND AN ENTRY IN THE ENT /EXT TABLE 01801165 
SAVE CURRENT ADDRESS IN ENT/EXT TABLE 01801166 
SET LOOP COUNTER FOR THREE TIMES THROUGH LOOP 01801167 
SW6 = LOOP COUNTER 01801168 
GET THE ADDRESSED WORD INTO CORE VIA PAGE 01801169 
SAyE CONTENTS OF ADDRESSED WORD 01801170 
CLEAR BIT 15 WHICH IS A FLAG BIT 01801171 
SAVE CONTENTS OF ADDRESSED WORD WITHOUT BIT 1501801172 
COMPUTE ADDRESS OF NAME BEING SEARCHEO FOR 01801173 

01801174 

PICKUP WORD BEING CHECKED FOR 01801175 
MASK OFF BIT 15 OF THE EXTERNAL NAME 01801176 
1 BIT 15 IS SET ON RELATIVE EXTERNALS T> 018G1177 
COMPARE TO WORD IN ENT/ EXT TABLE 0180 1178 
SKIP TO TBSCH3 IF MATCH OCCURS BETWEEN WORDS 01801179 
INCREMENT RETURN ADDRESS 01801180 
NO MATCH, RETURN TO P+2 01801181 
INCREMENT LOOP COUNTER 01801182 
INCREMENT CURRENT ADDRESS IN ENT/EXT TABLE 01801183 
PICKUP CURRENT ADDRESS FOR NEXT ITERATION 018G1184 
HAS LOOP BEEN EXECUTED THREE TIMES 01801185 
YES, RETURN TO GALLER AT P+1 01801186 
COMPARE NEXT WORD 01801187 
GET ENTRY POINT ADDRESS 01801188 
RETURN FOR MATCH FOUND 01801189 


ILOAD 


AGE 
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DATES 08/19/99 


122 

6 

PO 

3SB 

0 

BOO 

122 

7 

PO 

38C 

5 

a do 



PO 

380 

0 

1C7 

122 

8 

PQ 

38E 

8 

000 

122 

9 

PO 

38F 

1 

CFB 

123 

0 






GET 

NOP 

0 


RTJ 

DISKRD 


NUM 

330 0 0 


JMP* 

(GEI) 


* 


ROUTINE TO GET THE NEXT 
INTO CORE VIA USE OF TH 

SIT 15 SET FLAGS EN TRY/ 
RETURN TO CALLER WITH C 
WORD IN THE A-REGISTER. 


WORD BEING CHECKED 

0 

18 0 

1191 

E PAGE ROUTINE 

0 

180 

1192 

EXTERNAL PAGE READ 

0 

180 

1193 

ONTENTS OF SPECIFIED 

0 

18 0 

1194 


0 

180 

1195 


1232 

PQ 39 0 

0B00 

EXT SC H 

NOP 

0 


1233 

PO 39 1 

0 AGO 


ENA 

Q 


1234 

P 0 39 2 

61 55 


STA- 

EXTPCH, 

I 

1235 

PO 393 

Cl 76 


LDA- 

EXTSTR, 

I 

1236 

PQ 394 

61 7C 

T8SCH7 

STA- 

CEXTAQ, 

I 

1237 

P 0 395 

Bi 07 


EOR- 

EXTCTR, 

I 

1238 

P 0 3 9 6 

0113 


SAN 

TRSCH5- 

■ 5 '- 

1239 

PO 3 97 

OAFF 


ENA 

-Q 


1240 

P0398 

61 1C 


STA- 

SW6,I 


1241 

P 0399 

1CF6 


JMP* 

(EXTSCH 


1242 

PG39A 

C17C 

TBSCH5 

LDA- 

CEXTAD, 

I 

1243 

PO 39 B 

58D7 


RTJ* 

SEARCH 


1244 

P039C 

1304 


JMP* 

TRSCH6 


1245 

P039D 

Cl 7C 


LDA- 

CEXTAD, 

I 

1 2 A 6 

P039E 

09 04 


IN A 

4 


1247 

PQ 39F 

1 8F4 


JMP* 

T8SCH7 


1248 

P03AG 

0 9FO 

TBSCH6 

INA 

-2 


1249 

PO 3A1 

58E9 


RTJ* 

GET 


1250 

P03A2 

61 55 


STA- 

EXTPCH, 

I 

1251 

PO 3A3 

1CFC 


JMP* 

(EXTSCH 

) 

1252 

P03A4 

0000 

STRADR 

NUM 

0 



ROUTINE TO SEARCH EXTERNAL TABLE FOR A 01801197 
SPECIFIC NAME 01801198 
CLEAR EXTERNAL PATCHED FLAG TO ZERO 01801199 
PICKUP STARTING ADDRESS OF EXTERNAL TABLE 01801200 
SAVE ADDRESS OF NEXT EXTERNAL TO BE EXAMINED 01801201 
COMPARE AGAINST NEXT AVAILABLE LOCATION IN TBLO18012G2 
CONTINUE SEARCH IF NOT AT END OF TABLE 01801203 
NO MATCH, SET BOTH A-REGISTER AND SW6 TO 01801204 
MINUS ZERO AND RETURN TO CALLER 01301205 

01801206 

PICKUP CURRENT ADDRESS IN EXTERNAL TABLE TO BE018012Q7 
CHECKED FOR A MATCH 01801208 
MATCH FOUND 01801209 
UPDATE CURRENT TABLE ADDRESS TO POINT 01801210 
TO NEXT ENTRY IN EXTERNAL TABLE 01801211 
GO TO CHECK NEXT ENTRY 01801212 
A MATCH WAS FOUND. PICKUP THE SECOND WORD 01801213 
OF THIS EXTERNAL ENTRY AND STORE IN EXTPCH 01801214 
SO THAT THE USER CAN DETERMINE IF THIS 01801215 
EXTERNAL HAS BEEN PATCHED. 01601216 
NEXT AVAILABLE ADDRESS IN ENT / EXT TABLE 01801217 


ILOAD 
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DATE". 08/19/99 


1254 



* 

ROUTINE 

1256 



* 

ENTRY P 

1258 



* 

EXT. ERNAL 

1260 

PD3A5 

OBOO 

ENTSTR 

NOP 0 

1261 

P03A6 

C12C 


LD A- MAXFNT , I 

1262 

P03A7 

0904 


INA 4 

1263 

P03A8 

9176 


SUR- EXTSTR, I 

1264 

PB3A9 

0 132 


SAM ENTST-* -1 

1265 

P03AA 

0 A36 


FN A $36 

1266 

P03AB 

113B 


JMP- PRINT 2, I 

1267 

P03AC 

C12C 

ENTST 

LD A- MAXENT,I 

1268 

P03AD 

68F6 


STA* STRADR 

1269 

PG3AE 

09 04 


INA 4 

1270 

P03AF 

612C 


STA- MAX ENT , I 

1271 

PG3B0 

5 8 OE 


RTJ* STORIT 

1272 

PO 3B1 

1CF3 


JMP* C ENTSTR 1 ) 

1273 

P0 3B2 

OBOO 

EXSTOR 

NOP 0 

1274 

P03B3 

CIO? 


LOA- EXT CTR, I 

1275 

P03B4 

68EF 


STA* STRADR 

1276 

P 0 385 

0 904 


INA 4 

1277 

P03B6 

6107 


STA- EXTCTR, I 

1278 

P03B7 

912F 


SUB- WMXSEC, I 

1279 

P03B3 

0122 


SAP EXSTR1-*-! 

1280 

P03B9 

5305 


RTJ* STORIT 

1281 

P03BA 

1CF7 


JMP* T E X S T 0 R ') 

1282 

P03BB 

C3 0G 

EXSTR1 

LDA = Ai 6 


P0 3BC 

3136 



1283 

P03BD 

1 1 3 B 


JMP- PRINT2, I 

1264 

PC3BE 

OBOO 

STORIT 

MOP 0 

1285 

P03BF 

OCFE 


END -1 

128 6 

P03C0 

5813 


RTJ* ESTORE 

128 7 

P03C1 

ocoo 


END 0 

1288 

P0 3C? 

5811 


RTJ* ESTORE 

1289 

P03C3 

0C01 


ENQ 1 

1290 

PG3C4 

58 OF 


RTJ* ESTORE 

1291 

P03C5 

Cl 00 


LDA- ENTPNT, I 

129? 

P03C6 

68 04 


STA* VALUX 

1293 

P03C7 

C8 DC 


LDA* STRADR 

1294 

P03C8 

5800 


RTJ DISKWR 


P03C9 

0 18F 



1295 

P03CA 

00 00 

VASLUX 

NUM 0 

129 6 

P03CB 

80 0 0 


NUM $8000 

1297 



* 


1298 

P03CC 

C8D7 


LDA* STRADR 

129 9 

PQ3C0 

0901 


INA 1 

1300 

P03CE 

58 00 


RTJ DISKWR 


P03CF 

0189 



1301 

P03D0 

FFFF 


NUM SFFFF 


TO STORE 
INI VALUE 


INTO 


THE 


E I T H E R 
OR AN 
LOADER 


A N 


T A B L E 


RETURN ADDRESS 

MAKE SURE THAT THE 'ENTRY POINT TABLE DOES 

NOT OVERFLOW INTO THE EXTERNAL TABLE 
OK, NO OVERFLOW 

ERROR 6, ENTRY POINT TABLE OVERFLOW 

PICKUP LWAH OF ENTRY TABLE AND 

SAVE IT AS THE NEXT ADDRESS TO STORE INTO 

INCREASE THE SIZE OF THE ENTRY POINT 

TABLE TO INCLUDE THE NEXT ENTRY 

STORE THE NEW ENTRY POINT 

RETURN TO CALLER 

'RETURN ADDRESS 

SAVE ADDRESS TO STORE INTO 

INCREASE SIZE OF EXTERNAL TABLE TO INCLUDE 

SUBTRACT ADDRESS OF MAXSEC TO TEST FOR 
TOO MANY EXTERNALS 
STORE THE NEW EXTERNAL 
R FT URN TO CALLER 
EXTERNAL TABLE OVERFLOW 

FATAL ERROR 35 ***** 

RETURN ADDRESS 

PICKUP FIRST WORD OF NAME 

STORE WORD IN PROPER TABLE CELL 

PICKUP SECOND WORD OF NAME 

STORE WORD IN PROPER TABLE CELL 

PICKUP THIRD WORD OF NAME 

STORE WORD IN PROPER TABLE CELL 

PICKUP VALUE ASSOCIATED WITH ENT OR EXT 

STORE IN WORD TO BE WRITTEN OUT 

PICKUP ADDRESS TO PUT ENT/EXT VALUE INTO 

MAKE ENTRY IN PAGE 

VALUE OF ENTRY OR EXTERNAL 
FLAG SAYING ENT/EXT PAGE 
STUFF SFFFF INTO THE LAST WORD OF 
BOTH CREP AND CREP1 TABLES SO THE 
MS OS LOADER CAN DETECT THE END OF 
THE ENTRY POINT TABLES, 

VALUE TO STORE INTO TABLE 


0130 1219 
01801221 
01801223 


0180 122 5 
01601226 
01801227 
01,801228 
0 18 G 1 22 9 
0160123 0 
0 18 0 1 23 1 
01801232 
01801233 
01601234 
01801235 
01801236 
01801237 
01801238 
01801239 
01801240 
01801241 
01801242 
01801243 
0 1801244 
018 D 124 5 
01801246 
01801247 

01801248 
01801249 
018 01. 25 0 
01801251 
01801252 
01801253 
01801254 
01801255 
01801256 
018 0125 7 
0180 1258 
01801259 

01801 260 
01801261 
01801262 
01801263 
01801264 
01801265 

01801266 
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DATE: 08/19/99 


1302 

P03D1 

8000 

NUM $8000 

1303 

PO 302 

1 C Ffl 

JWP* (STORIT) 


1305 

P03D3 

OBOO 

ESTORE 

NOP 

0 

1306 

P03D4 

F10F 


A DO- 

INPCTR, I 

130 7 

P03D5 

C201 


L'D A - 


1308 

PO 3D 6 

68 0 L 


ST A* 

EVALUE 

1309 

P03D7 

C8CC 


LOA* 

STRADR 

1310 

P03D8 

P03D9 

58 00 
017F 


RTJ 

DISKWR 

1311 

PO 30 A 

0 0 0 0 

EVALUE 

NUM 

0 

1312 

P03DB 

8 0 0 0 


NUM 

$8000 

1313 

P03DC 

D 8 C 7 


RAO* 

STRADR 

131 A 

P0 3DQ 

1CF5 


JMP* 

l ESTORE') 


FLAG SAYING ENT/EXT TABLE 01801267 

RETURN TO CALLER 01801268 


ROUTINE TO PUT ENTRY OR EXTERNAL NAME 

FORM ADDRESS OF WORD IN Q 

PICKUP A WORD OF THE NAME 

SAVE VALUE TO BE WRITTEN INTO PAGE 

PICKUP ADDRESS TO WRITE INTO 

STORE THE WORD VIA PAGE 

WORD OF ENTRY OR EXTERNAL NAME 
FLAG SAYING ENTRY OR EXTERNAL PAGE 
INCREMENT THE ADDRESS ON THE PAGE 
RETURN TO CALLER 


IN TABLE018 01 270 
01801271 
01801272 
0 18 01273 
018G127L 
01801275 

0180127 6 
01801277 
018Q1278 
01801279 
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DATE: 08/19/99 


1316 
131 8 


* 

* 


ROUTINE TO 
EXTERNALS 


PRINT 


UNPATCHED 


01801281 

01801283 


1320 

P0 3DE 

Clio 


PRNEXT 

LOA- 

NGTLNK, I 

1321 

P03DF 

0112 



SAN 

PEXTl -*-l 

1322 

P03E0 

1C00 



JMP 

(ILOAD* 


P03E1 

FC IF 





1323 

P0 3E2 

58 IE 


PEXTl 

RTJ* 

PEXT2 

1324 

PG3E3 

0 D 0 A 



NUH 

$00 0 A 

1325 

P03E4 

2 0 2 A 



ALF 

Z, * * * 


P03E5 

2 D2A 






P0 3E6 

2 0 2 A 






P03F7 

2020 






P03E3 

5520 






P03E9 

AE20 






PQ3EA 

5020 






P03ER 

4120 






P03EC 

5420 






PG3ED 

4320 






P0 3EE 

4820 






P03EF 

4520 






P03FG 

4420 






P03F1 

2020 






P03F2 

2045 






P03F3 

2Q 58 






PG3F4 

20 54 






P03F5 

2045 






P03F6 

2052 






P0 3F7 

2 0 4E 






P03F8 

2041 






P03F9 

2 0 AC 






P03FA 

2 0 53 






P03FR 

2020 






P03FC 

2020 






P03FD 

2A20 






P03FF 

2 A 2 0 






P03FF 

2 A ? 0 





1326 

P 0 40 0 

0 B 0 0 


PEXT2 

NOP 

Q 

1327 

PO AO 1 

C8FE 



LB A* 

PFXT2 

1328 

PO AO? 

FO 00 



LOQ 

= XP EXT2 -P 


P 0 A 0 3 

0010 





1329 

PO 40 4 

5800 

X 


RTJ 

QCOM 


P 0 AO 5 

OOCO 

X 




1330 

PO A06 

Cl 76 



LDA- 

EXTSTR , I 

1331 

PO A07 

6 1 0 F 



STA- 

INPCTR, I 

1332 

PO A08 

Cl 0 F 


PFXT3 

LDA- 

INPCTR, I 

1333 

P Q 409 

0 901 



INA 

1 

1334 

PO AO A 

5800 



RTJ 

DISKRD 


PO A08 

01 49 






ARE THERE ANY UNPATCHED EXTERNALS 

YES, LIST THEM 

NO, RETURN TO CALLER 

CARRIAGE RETURN - LINE FEED 
UNPATCHED EXTERNALS 


* * *Z 


01801285 
01801 28 6 
01801287 

01801288 

01801289 

01801290 


BUFFER ADDRESS 
PICKUP BUFFER ADDRESS 
•1 PICKUP WORD COUNT 

OUTPUT MESSAGE 

PICKUP START OF EXTERNAL TABLE 
SAVE AS POINTER FOR TABLE SEARCH 

PICKUP SECOND WORD OF THE EXTERNAL POINTED 
TO BY INPCTR 


01801291 

01801292 

01801293 

**MSQS A. 1**01801294 


01801295 
01801296 
01801297 
01801 298 
0 180 1 29 9 
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1335 

P040C 

80 00 


NUM 

$8000 


133 6 
1337 

P04QQ 

0132 

if 

SAM 

PEXT4-* 

-1 

1338 

P 0 4 OF 

5800 


RTJ 

PRINT 6 



P040F 

0 034 





1339 

P0410 

C10F 

PEXT4 

LDA- 

INPCTR, 

I 

1340 

P0411 

09 04 


INA 

4 


1341 

P 0 412 

61 0 F 


STA- 

INPCTR, 

I 

1342 

P 0 41 3 

9107 


SUB- 

E XTCTR, 

I 

1343 

P0414 

0132 


SAM 

PEXT5-* 

-1 

1344 

P0415 

1C00 


JMP 

IILOADJ 



P0 416 

FBEA 





1345 

P 0 41 7 

1 8 F 0 

PEXT5 

JMP* 

PEXT3 



DATE-: 08/19/99 


FLAG SAYING ADDRESS IN A-REGISTER REFERS 
TO ENTRY/EXTERNAL PAGE 
SKIP IF EXTERNAL PATCHED 
PRINT THE EXTERNAL 

INCREMENT THE INDEX TO POINT 
TO THE NEXT EXTERNAL IN THE TABLE 

HAS THE ENTIRE TABLE BEEN CHECKED 
NO 

YES, RETURN TO CALLER 
TEST NEXT EXTERNAL 


0180 

1300 

0180 

1 301 

016 0 

1302 

0180 

1303 

0180 

1304 

0160 

1305 

018 0 

1306 

0180 

1307 

0180 

1308 

0180 

1309 

0180 

1310 


ILOAD 


PAGE 


41 


DATES 08/19/99 


1347 




L 0 

A D E R PR 

INTOUT RO 

U T I N E S 

1349 




COME 

HERE TO PRINT 

OUT LOADER ERRORS 

(BOTH PRINT2 AND 

1351 

PO 41 8 

D8 00 X 

PRNT3 

RAO 

ERFLAG 




PO 41 9 

7FFF X 






1352 

PO 41 A 

58 0 A 


RTJ* 

PR3 J1 



1353 

PO 41 B 

2 0 00 

COMSGE 

NUM 

$2000 

BUFFER SPACE - 

CARRIAGE RETURN 

1354 

P041C 

4C4F 


ALF 

7, LOADER ERROR 



PRINT3J 


P041D 
P041E 
P041F 
P0 420 
P 04 21 
PO 42 2 


4144 
4552 
2 0 45 
52 52 
4F52 
2020 


1355 

PO 423 

2020 



NUM 

$2020 

1356 

PO 42 4 

OBOG 


PR3 Jl 

NOP 

0 

135^ 

1358 

PC425 

6 8 FD 



STA* 

*-2 

1.35 9 

P 0 42 6 

C8FO 



LDA* 

PR3J1 

1360 

PO 427 

OC 0 9 



ENQ 

9 

1361 

PO 428 

5800 

X 


RTJ 

TELOUT 


P0429 

0 3 46 

X 




1362 

P042A 

1135 



JMP- 

PR3XIT, I 

1364 

1365 





ENT 

STOP 

1365 

P0 42B 

0 A 0 0 


STOP 

ENA 

0 

1367 

P0 42C 

61 7B 



STA- 

CSQCTR, I 
NXTBIN 

1368 

P0 42D 

58 00 


STOP1 

RT J 

P042E 

FBEB 




INPUT, I 

1369 

P042F 

Cl 96 



LOA- 

1370 

P 0430 

A 1 44 



ANO- 

MFFOO , I 

1371 

PO 431 

OF 48 



ARS 

8 

1372 

PO 432 

0905 



IN A 

-32 A 

1373 

PO 433 

Q 1 0 1 



SAZ 

ST0P2-*-! 

1374 

P 0 43 4 

18F8 



J'MP* 

STOP1 

1375 

PO 43 5 

1800 

X 

STOP2 

JMP 

CM65 


PO 436 

7FFF 

X 





ERROR CODE 

ABSOLUTE CORE ADDRESS OF BUFFER 
A-REGISTER CONTAINED ERROR CODE, STORE THE 
ERROR CODE INTO THE MESSAGE BUFFER 
ADDRESS OF BUFFER 
WORD COUNT 

LOG ERROR ON TELETYPE 
RETURN TO CALLER 


01801312 

01801314 

01801316 

01801317 

01801318 

01801319 


0180 
0180 
018 0 
0180 
0180 
0180 
0180 


1 32 0 

1321 

1322 

1323 

1324 

1325 

1326 


01801327 


01801329 

COME HERE AFTER LOGGING FATAL ERROR VIA PRI NT30180 1 33 0 

01801331 

CLEAR PROGRAM LENGTH TO ZERO 01801332 

READ IN A RECORD 01801333 


ISOLATE THE FIRST CHARACTER 


IS THE FIRST CHARACTER 
YES, RETURN TO CONTRL 
NO, READ NEXT RECORD 


AN ASTERISK 


0180 
0180 
0180 
018 0 
0180 
0130 
0180 


133 4 
133 5 
133 6 

1337 

1338 

1339 

1340 


137 7 

1378 

1379 

1380 

1381 


P 0 437 4 8 EC PRNT4 STQ* PR3J1 

PO 43 8 51 5A RTJ- CONVRT , I 

P 0 43 9 E3EA LD 0* P R3J1 

PG43A Cl 33 LDA- 8INASC,I 


COME HERE TO PRINT OUT PROGRAM NAME AND LOAD ADDRESS 


SAVE THE ADDRESS OF THE PRINT BUFFER 
CONVERT THE LOAD ADDRESS TO ASCII 
PICKUP THE BUFFER ADDRESS 

PICKUP THE FIRST HALF OF THE LOAD ADDRESS 


01801342 

01801343 

01801344 

01801345 

01801346 




o 



o 

o 


o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 


o 

o 

o 


o 

o 


o 

o 



1390 

1392 

1393 

1394 


1395 

1396 
139 7 
1396 

1399 

1400 

14Q 1 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 


1414 


1416 

1417 


1418 



I LOAD 
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* 

COME 

HERE TO PRINT 

P 0 443 

0B00 


PRINT 6 

NOP 

0 

PO 444 

58 05 



RTJ* 

PR6 

PO 445 

20 20 


BUF6 

ALF 

4, 

P0446 

2020 





P 0 447 

2020 





P0448 

2020 





P 0 449 

0 BOO 


PR6 

NOP 

0 

P O 44 A 

CiOF 



LQA- 

INPCTR, I 

P0 44B 

68 03 



STA* 

PR6 A* 1 

P044C 

OCOO 



ENQ 

0 

P0 44D 

C2Q0 


PR6A 

LD A 

= XQ , Q 

P044E 

0 0 00 





P044F 

5 800 



RTJ 

DISKRD 

P 045 0 

G 1 G 4 





P 0 45 1 

8000 



NUM 

S8000 

PO 452 

A1 41 



AND- 

M7FFF , I 

P 0 453 

6AF2 



STA* 

3UF6+1, Q 

P 0 4 5 4 

0 DO 1 



INQ 

1 

P 0455 

0 AFC 



FNA 

~3 

PQ456 

0 8 34 



A AQ 

A 

P0457 

0101 



SAZ 

PR6B-*-i 

P 0 458 

18F4 



JMP* 

PR6A 

PO 45 9 

C8EF 


PR6B 

LD A* 

PR 6 

P045A 

0 C 0 4 



ENQ 

4 

P045'B 

58 00 

X 


RTJ 

QCOH 

P045C 

0441 

X 




PG45D 

1CF5 



JMP* 

CPRINT6) 


DATE: 08/19/99 


RETURN ADDRESS 

RTJ TO PICKUP ABSOLUTE CORE ADDRESS OF BUFFER 


01801355 

01801357 

01801358 

01801359 


ABSOLUTE ADDRESS OF PR6 BUFFER 
PICKUP EXTERNAL ADOR'ESS 

SET POINTER FOR FIRST WORD OF EXTERNAL IN 
PICKUP THE NEXT WORD OF THE EXTERNAL NAME 

READ REQUEST FOR SUBROUTINE PAGE 

FLAG SAYING ADDRESS IS AN ENT/EXT PAGE 
CLEAR THE UPPER BIT FROM THIS WORD OF THE 
SAVE THIS WORD OF THE EXTERNAL NAME 

HAVE ALL THREE WORDS OF THE EXTERNAL NAME 

BEEN TRANSFERRED TO THE PRINT BUFFER 

YES, SETUP THE PRINT 

NO, GET THE NEXT WORD 

PICKUP THE STARTING BUFFER ADDRESS 

SETUP THE WORD COUNT 

PRINT THE UNPATCHEX EXTERNAL **M50S 


01801360 
01801361 
01801362 
TBL. 01801363 
01801364 

01801365 

01801366 
N AMEO 18 01 36 7 
01801368 
01801369 
01801370 
01801371 
01801372 
01801373 
0 18 Q 1 374 
01801375 
4.1**01801376 

01801377 


* COME HERE TO PRINT OUT DUPLICATE ENTRY POINT NAMES 


01801379 


P 0 4 5 E 

5810 

PRNT5 

RTJ* 

PR5J1 


P045F 

4455 


ALF 

11, DUPLICATE 

ENTRY POINT 

P 0 460 

50 4C 





P 0 461 

4943 





P0462 

4154 





PO 463 

4520 





P 0 464 

454E 





P0465 

5452 





PO 46 6 

5920 





P 0467 

504F 





P 0 468 

494E 





PO 469 

5420 





PO 46 A 

20 20 

BUF5 

ALF 

4, 

BUFFER FOR ENTRY POINT NAME 

P0 46B 

2020 






01801 381 
01801382 


01801383 


ILOAD 
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DATE: 08/19/99 



o 

o 

o 

o 

o 


P0 46C 
P046D 
1419 PD 46 E 
1 42 D P046F 

1421 P C 470 

1422 P 0 471 

1423 P D 472 

1424 PD 473 

1425 P0 47*+ 

1426 P0475 

1427 P0 476 

142 8 PD 477 
1429 P0478 

143 0 PO 479 

P047A 
1431 P 047 B 


20 20 
2020 

OBOO PR5J1 
El GF 
C622 
A141 
68F8 
C201 
68F7 
C 2 0 2 
68F6 
C8F6 
0C OF 
58 0 0 X 
0 4 5C X 
11 61 


NOP 0 

LDQ- INPCTR, I 
L0 A- {ZERO') » Q 
AND- M7FFF * I 
STA* BUF5 *-1 
LD A - 1,0, 

STA* BUF5+2 
LD A- 2 , Q 
STA* 3UF5*3 
LDA V PR5J1 
ENO 15 
RTJ QCOM 

JMP- PR5XIT, I 


ABSOLUTE ADDRESS OF PRINT BUFFER 01801384 
PICKUP THE ADDRESS OF THE ENTRY POINT NAME 01801385 
PICKUP THE FIRST WORD OF THE NAME 01801386 
MASK OFF THE UPPER BIT 01801387 
STORE INTO SECOND WORD OF BUFFER 01801388 
PICKUP THE SECOND WORD OF THE ENTRY POINT NAHEOI801389 
STORE INTO THIRD WORD OF BUFFER 01801390 
PICKUP THE THIRD WORD OF THE ENTRY POINT NAME 01801391 
STORE INTO FOURTH WORD OF BUFFER 01801392 
PICKUP THE STARTING BUFFER ADDRESS 01801393 
SETUP THE WORD COUNT 01601394 
PRINT DUP ENTRY POINT NAME **HSOS 4. 1** 0 18 0 1 39 5 


RETURN TO CALLER. 


01801396 


o 


o 

o 


o 


o 


o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE'S 

08/19/99 


143 3 


R 0 

U T I N E TO 

C 0 N V E 

RT ONE WORD 

01801398 

1435 

* 

F R 

OM BINARY 

TO A 

SCII 

01801400 

1437 

* 

THE 

NUMBER TO BE CONVERTED IS IN THE A-REGISTER ON ENTRY 

01801402 

143 9 
1440 

* 

THE 

AND 

ASCII COOES FOR THE 
BINASC*! ON EXIT 

NUMBER ARE 

STORED IN BINASC 

01601404 

01801405 


1442 P047C 5 3 Q 13 

1443 P047D 0FA8 

1444 PQ47F 4133 
14^5 PD47F 5 8 0 A 

1446 P048Q F 1 33 

1447 Pfl 48 1 4133 
144 8 PO 482 5 8 0 7 

1 44 9 PO 433 0FA8 

1450 P 0 48 4 4134 

1451 P0485 5804 

145 2 PO 486 FI 34 

1453 PO 487 4134 

1454 P 0488 1159 


CNVERT 


RTJ* 

QLS 

STQ- 

RTJ* 

ADQ- 

STQ- 

RTJ* 

QLS 

STQ- 

RTJ* 

A D G- 


STQ- 

JMP- 


C\?T 

3 

BINASC, I 
CV T 

BINASC, I 
BINASC, I 
CVT 
8 

8INASC+1 ,1 
CVT 

8INASC*-1,I 
BINASC+1,1 
CNVXIT, I 


CONVERT THE LEFT MOST HEX DIGIT TO ASCII 
SHIFT THE DIGIT TO ITS POSITION 
SAVE THE ASCII CODE 

CONVERT THE SECOND HEX DIGIT TO ASCII 
COMBINE THE FIRST AND SECOND DIGIT 
SAVE THE TWO UPPER CODES IN BINASC 
CONVERT THE THIRD HEX DIGIT TO ASCII 
SHIFT THE DIGIT TO ITS PROPER POSITION 
SAVE THE ASCII CODES FOR THE DIGIT 
CONVERT THE LAST HEX DIGIT TO ASCII 
COMBINE THE THIRD AND FOURTH DIGITS 
SAVE THE TWO LOWER CODES IN BINASG+i 
RETURN TO CALLER 


01801407 
0180140 8 
018 01409 
01801 410 
01801411 
01601 412 
01801413 
0180 1 414 
01801 415 
0180 1 41 6 
01801417 
018 01418 
01801419 


1456 

1457 

P 0 489 

0 BOO 

* 

CVT 

NOP 

0 

1458 

P048A 

0 8 42 


CLP 

Q 

1459 

PD48B 

0FE4 


LLS 

4 

1 46 G 

P048C 

0DF5 


INO 

-$A 

1461 

P043D 

0171 


SQM 

CVT l-*-i 

1462 

PQ48E 

QD 07 


INQ 

7 

1463 

P048F 

0 D 3 A 

evil 

INQ 

$3A 

1464 

PO 490 

1 C F8 


JMP* 

ICVT) 


COME HERE TO PICKUP THE NEXT HEX DIGIT IN 
THE A-REGISTER AND CONVERT IT TO ASCII 

SHIFT THE HEX DIGIT INTO THE Q- REGISTER 

IS THE DIGIT LESS THAN $A 

TES 

NO, IT MUST BE IN THE RANGE A - F 
CONVERT Q-RE6ISTER TO ASCII CODE 
RETURN TO CALLER 


01801421 
01801 422 
018Q1 423 
0.1801 424 
018 01 42 5 
01301426 
0130 1 427 
01801 42 8 
018 01429 


o 


I LOAD 
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146 6 



*• 

R O L 

TINE 

o 

1468 



* 

F I E 

L O F 

r\ 

1470 

P0 491 

0 CO 0 

ISCAN 

ENQ 

0 

LJ 

1471 

P0492 

4147 


STQ- 

NEGSW ,1 


1+72 

PO 493 

4149 


STQ- 

SCNINP, I 


147 3 

PQ 49 + 

El 12 


LOQ- 

BLANKS, I 

r~\ 

147 + 

PO 495 

4113 


STQ- 

SYMSTR, I 


1475 

P0 +9 6 

411+ 


STQ- 

SYMSTR+1, 1 


1476 

P0 49 7 

+ 115 


STQ- 

SYMSTR +2, I 


1477 

PO 498 

F 1 16 


ADQ- 

SCANSW, I 


1478 

P 0 499 

4116 


STQ- 

SCANSW, I 

U 

1479 

P049A 

61 48 


STA- 

SCNTRM, I 


1480 

PG 499 

0113 


SAN 

SCA N2-* -1 


148 1 

PG+9C 

5800 

SCAN1 

RTJ 

GHPU 



P049D 

0 0 A2 




o 

1432 

P Q 49E 

C 1 48 


LDA- 

SCNTRM, I 


1+83 

PG49F 

09D8 

SCAN2 

I N A 

-'$2 4 


1484 

P04AG 

0101 


SAZ 

SCAN3-*-l 


1485 

P04A1 

1 8 0A 


JMP+ 

PLUS 

u 

1486 

PG4A2 

GAFE 

SCANS 

ENA 

-1 


1487 

P 0 4 A3 

Ail 6 


AND- 

SCANSW, I 


148 8 

PG4A4 

0901 


INA 

1 


1489 

P 0 4 A 5 

6116 


STA- 

SCANSW, I 

u 

1490 

PD4A6 

0 A 0 0 


ENA 

0 


1491 

PG4A7 

61 49 


STA- 

SCNINP, I 


1+92 

P0 4A8 

OAFA 


ENA 

-5 


1493 

P0 4A9 

6119 


STA- 

COUNT1, I 

u 

1494 

PG4AA 

1832 


JMP* 

SCAN4 


1495 

P04AB 

09F8 

PLUS 

INA 

-7 


1496 

P04AC 

0117 


SAN 

MINUS-®" -1 


149 7 

P04AD 

S A 0 2 


ENA 

2 

u 

1498 

P04AE 

A i 16 


AND- 

SCANSW, I 


1499 

PG4AF 

0111 


SAN 

SCANS--® -1 


1500 

PG4B0 

1 i 4A 


JMP- 

SCNXIT, I 

r\ 

1501 

P0 4B1 

0 A 0 1 

SCAN5 

ENA 

1 

\ J 

150 2 

P0 482 

6147 


STA- 

NEGSW, I 


1503 

P0 4B3 

1 8E8 


JMP+ 

SCAN1 


1504 

P 0 48 4 

09FD 

MINUS 

INA 

-2 


1505 

P04B5 

0117 


SAN 

ALFNUM- *-i 


1506 

P0 466 

0 A 0 4 


ENA 

4 


1507 

PD4B7 

A 116 


AND- 

SCANSW, I 


1508 

P04B8 

0111 


SAN 

SCANS-* 1 -1 

r\ 

1509 

P0 4B9 

11 4A 


JMP- 

SCNXIT, I 


1510 

P0 4BA 

0 AFE 

SCAN6 

ENA 

-1 


1511 

P0 4BB 

61 47 


STA- 

NEGSW, I 


1512 

PG4BC 

18DF 


JMP* 

SCAN1 


O 

o 


S E D 
M A 


DATE: G 8/19/99 


o 


TO EXTRACT A 018G1431 

CONTROL STATEMENT 018 0143 3 


SET THE FOLLOWING LOCATIONS EQUAL TO ZERO 
CURRENT LEGAL ALGEBRAIC SIGN 
BINARY VALUE OF NUMERIC OPERAND 
BACKROUND SYMSTR, SYMSTR+i, AND SYMSTR+2 
TO SPACES C$2020) 


01801435 
01801436 
0160143? 
01801 438 
018 01 43 9 
0180 1440 
01801441 


BACKROUND SCANSW TO SPACES PLUS THE FLAG BITS 01801442 

01801443 


SAVE A TEMPORARILY. 
IS IN INPUT BUFFER. 
IS IN A-REGISTER 


IF A=0 FIRST CHARACTER 01801444 
OTHERWISE FIRST CHARACTER 01801445 

01801446 


PICKUP CHARACTER TO BE PROCESSED 
IS THIS CHARACTER A $ 

YES, SET BIT 0 OF SCANSW 

NO* GO DOWN TO CHECK FOR 9- SIGN 

MAKE SURE BIT 0 IS CLAAR 
SET THE BIT 
HE X S W= 1 

CLEAR BINARY VALUE OF NUMBER TO ZERO 

SET COUNT1 TO PICKUP 4 HEXADECIMAL DIGITS 
GO TO PROCESS FIELD 
IS THIS CHARACTER A * 

NO, GO DOWN TO CHECK. FOR - SIGN 
CHECK BIT 1 OF SCANSW TO SEE IF * IS 
A LEGAL PRECEEDING ALGEBRAIC SIGN 
LEGAL, CONTINUE PROCESSING 
ILLEGAL SIGN RETURN TO P+1 

SET LEADING ALGEBRAIC SIGN TO + 

LOOP BACK TO GET NEXT CHARACTER 
IS LEADING ALGEBRAIC SIGN MINUS 
NO, PROCESS AS ALPHANUMERIC F IELD , 

YES, IS MINUS A LEGAL ALGEBRAIC SIGN 
- IS LEGAL ONLY IF BIT 2 OF SCANSW =1 
LEGAL 

ILLEGAL SIGN RETURN TO P+1 



01801447 
01801 448 
018014+9 
01801450 
01801451 
01801452 
01801453 
01801454 
01801 455 
01801456 
01801 457 
01801458 
018D1 459 
0180 1 460 
01801461 
0180 1 462 
01801 463 
01801+64 
01801465 
0180146 6 
01801 467 
01801 468 
01801469 
01801470 
01801 471 
01801472 
01801473 
01801474 
01801475 
01801476 
01801477 


O 

^•s 

u 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


I LOAD 


PAGE 47 


DATE! 08/19/99 


1514 

F04BD 

58 48 

ALFNUM 

RTJ* NUMBER 

151 5 

P04BE 

0131 


SAM SCAN7-+-1 

1516 

P04BF 

18 15 


JMP* NUMTRM 

1517 

P04C0 

585A 

SCAN7 

RTJ* LETTER 

1518 

P04C1 

0131 


SAM SCA N 8 -* -1 

1519 

P0 4C2 

18 02 


JMP* ALFTRM 

152 0 

PQ4C3 

114A 

SCANS 

JMP- SCNXIT, I 

15 21 

P0 4C4 

0 A F9 

ALFTRM 

ENA -6 

1522 

P04C5 

6119 


STA- COUNT 1 , I 

1523 

P0 4C6 

COFF 


LDA- I 

1524 

P04C7 

0913 


INA 19 

1525 

P04C8 

0 FC1 


ALS 1 

1526 

PO 4C9 

6 1 1 B 


STA- COUNT 2,1 

1527 

P04CA 

5861 

SCAN9 

RTJ* STRCHR 

1528 

P 0 4GB 

5 874 


RTJ* CHPU 

1529 

P0 4CC 

Di 19 


RAO- COUNT1, I 

1530 

P04CD 

Cl 19 


LDA- COUNTl.I 

1531 

P04CF 

0111 


SAN SCAN1 0- *-l 

1532 

PQ4CF 

1 1 4A 


JMP- SCNXIT, I 

1533 

P 0400 

58 4A 

SCAN1D 

RTJ* LETTER 

1534 

P04D1 

0121 


SAP SCAN1 l-*-l 

153 5 

P04D2 

11 4A 


JMP- SCNXIT, I 

1536 

P04D3 

18F6 

SC A Nil 

JMP* SCAN9 

153 7 

PQ4D4 

5 8 77 

NUMTRM 

RTJ* GETBIN 

1538 

P04D5 

61 49 


STA- SCN INP, I 

1539 

PQ4D6 

OA 01 


FN A 1 

1540 

PQ4D7 

A 116 


AND- SCANSW, I 

1541 

P0 4D8 

OCFA 


END -5 

1542 

P04D9 

0111 


SAN SCAN1 2-*-l 

1543 

P04DA 

0CF8 


END -4 

1544 

PO 40 B 

4119 

SCAN12 

STQ- COUNTl.I 

1545 

P04DC 

0 A00 

SCAN4 

ENA 0 

1546 

P0 4DD 

6113 


STA- SYMSTR, I 

1547 

PO 40 E 
P04DF 

COFF 


LDA- I 

1548 

0 914 


INA 20 

1549 

P04EQ 

OF Cl 


ALS 1 

1550 

P04E1 

6118 


STA- COUNT 2, I 

15 5 1 

P04E2 

0 A08 

SCAN13 

ENA 8 

1552 

PO 4E3 

A 1 1 6 


AND- SCANSW, I 

1553 

P04E4 

0106 


SAZ SGAN14-*~i 

155u 

PO 4E 5 

5846 


RTJ* STRCHB 

155 5 

P04E5 

5859 


RTJ* CHPU 

1556 

P 0 4E 7 

0119 


RAO- COUNTl.I 

1557 

P04E8 

Cl 19 


LOA- COUNTl.I 

1558 

F04E9 

0111 


SAM SCANIA-*-! 

1559 

PQ4EA 

1813 


JMP* SGNTST 

1560 

P04EB 

58 1A 

SCAN14 

RTJ* NUMBER 

1561 

P04EC 

0121 


SAP SCAN25-* -1 

1562 

1563 

P04ED 

1810 

w 

JMP* SGNTST 

1564 

PO 4EE 

585D 

SCAN2 5 

RTJ* GETBIN 

1565 

P04EF 

6307 


STA* BINVAL+ 1 

156 6 

P04F0 

0 A01 


ENA 1 


SEE IF FIRST CHARACTER IS A NUMBER 

MINUS INDICATES NOT NUMERIC 

PROCESS NUMERIC FIELD 

SEE IF FIRST CHARACTER IS A LETTER 

MINUS INDICATES NOT ALPHABETIC 

PROCESS ALPHABETIC FIELD 

FXIT TO P + 1 UNRECOGNIZE'BALE INPUT 

SETUP COUNT1 TO PROCESS A NAME OF 

MAXIMUM SIZE 6 CHARACTERS 

SETUP COUNT 2 TO REFERENCE CHARACTER POSITIONS 

IN THE SYMSTR BLOCK. BITS 1-15 ARE THE 

CHARACTER STORAGE ADDRESS. BIT ZERO IS THE 

RIGHT / LEFT INDICATOR. 0 = L EFT , 1= RIGHT 

STORE LAST CHARACTER PROCESSED INTO SCNT’RM 

PICKUP NEXT CHARACTER 

INCREMENT CHARACTER COUNT 

HAVE ALL CHARACTERS BEEN PROCESSED 

NO, KEEP GOING 

YES EXIT TO CALLER AT P+1 

CHECK FOR LETTER 

ALPHANUMERIC CHARACTER, SAVE IT 

INVALID CHARACTER, EXIT TO CALLER AT P+1 

LOOP BACK TO STORE CHARACTER 

CONVERT NUMERIC TO BINARY 

SAyE BINARY VALUE 


TEST TO SEE IF FIELD IS DECIMAL OR HEX 
SET COUNT! TO FIVE FOR DECIMAL DIGITS 


SET COUNT1 TO FOUR FOR HEX DIGITS 
SAVE COMPLEMENT OF NUMBER OF DIGITS 
CLEAR SYMSTR TO ZERO TO INDICATE THAT 
A NUMERIC OPERAND IS BEING PROCESSED 
SETUP COUNT 2 TO REFERENCE CHARACTER, POSITIONS 
IN THE SYMSTR BLOCK. BITS 1-15 ARE THE 
CHARACTER STORAGE ADDRESS. BIT ZERO IS THE 
RTGHT / LEFT INDICATOR. 0 = LEFT , 1 -RIGHT 
TEST BIT 3 OF SCANS W TO SEE IF IT IS SET 
IF SET THEN SAVE THE ASCII CODES FOR THE 
FIELD BEING PROCESSED IN LOCATIONS SYMSTR, 
SYMSTR+i, AND SYMSTR+2 
PICKUP NEXT CHARACTER 

INCREMENT COMPLEMENT OF CHARACTER COUNT 
SEE IF CHARACTER COUNT HAS GONE TO ZERO 
INDICATING THAT THIS FIELD IS DONE 
FIELD COMPLETED, TEST SIGN 
PICKUP NEXT CHARACTER 
SKIP IF VALID DIGIT 10-9) 

GO TO CHECK SIGN, FIRST INVALID CHARACTER 
TERMINATES THIS SCAN 

PICKUP THE BINARY VALUE FOR THIS ASCII DIGIT 

SAVE THIS BINARY VALUE 

TEST TO SEE IF BIT 0 OF SCANSW IS SET 


01801479 
01801 480 

0 1801481 
01801482 
01801483 
01801484 
01801485 
01801486 
01801487 
0180 1 488 
01801 489 
01801490 
01801 491 
01801492 
01801493 
01801494 
018D1495 
01801496 
018 0149 7 
0180 1498 
01801 499 
0180 1500 
018 01 501 
01801502 
01801503 
018 0 1504 
01801 50 5 
01801506 
01801507 
01801508 
0180150 9 
01801510 
01801511 
01801512 
01801513 
0.1801514 
018 01515 
01801 516 
01801 517 
01801518 
01801519 
01801520 

01 BO 1521 
01801522 
01801 523 
01801 524 
01801525 
01801526 
01801527 
018Q1528 
01801 529 
01801530 
01801531 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1567 P04F1 Alls 

1568 PC4F2 0822 
1559 PG4F3 C149 

1570 PQ4F4 OFt.A 

1571 P04F5 B 0 0 0 
P04F6 FFFF 

157? P04F7 0153 

1573 PQ4F8 0 A 0 A 

1574 P04F9 2149 

1575 P04FA 8 8 F B 

1576 

1577 PG4FB 6149 

1578 

1579 P04FC 18E5 

1580 P04FD F 1 49 

1581 P04FE Cl 47 
158? P04FF 0124 

1583 P05Q0 0852 

1584 P0501 OAOfl 

1585 P0502 4149 

1586 PO503 6147 

1587 P0 504 114A 

1588 P0505 FFFF 

1589 P0 506 E 1 48 

159 G P0507 0 DCF 

1591 PQ508 0174 

1592 P05G9 0DF5 

1593 PQ50A 0164 

1594 P0508 D 1 48 

1595 P050C 1CF8 

1596 P050D 0AFF 

1597 P050F IGF 6 

1598 P05QF 0 A 0 1 

1599 PQ510 A 1 16 

1600 P0511 0111 

1601 P0512 1 8 FA 

160 2 P051 3 0 0 F 8 
1603 P0514 0161 
1634 P0515 18F7 
15 0 5 P0516 0 Q F 9 
1606 P0 517 0171 
160 7 P 0 5 1 8 1 8 F 4 
160 3 PQ519 1 8F1 

1609 P051A FFFF 

1610 PQ51B Cl 48 

1611 P051C 0 9CF 

1612 P051D 0136 

1613 P051F 09F5 

1614 P051F 0122 

1615 P0520 C 1 48 

1616 P0 521 1CF8 

1617 P0 522 Q9F3 

161 8 P0523 0122 


AND- SC A NSW, I 
TRA Q 

LDA- SCN INP, I 
ALS 4 

BINVAL EOP =N$FFFF 

SQN NUMSTR-*-! 
ENA 10 
HU I— SCN INF, I 
ADD* BINVAL+1 

* 

NUMSTR STA- SCNINP,I 
» 

JMP* SCANl 3 
SGNTST LOG- SCN INP, I 
LDA- N EGSW , I 
SAP SCA Ni 5- *-l 
TOO Q 
ENA 0 

STQ- SCN IN P, I 
STA- NEGSW , I 
SCANl 5 JHP- SCNXIT, I 
NUMBER NUM $FFFF 

LDQ- SCNTRH, I 
INQ -S3 0 
SQM N0TNUM-*-i 
INQ - $ A 
SQP HEXTST- *--1 
NUMXIT LDA- SCNTRf', I 
JMP* (NUMBER) 
NOT NUM ENA -0 

JMP* (NUMBER) 
HEXTST ENA 1 

AND- SCANSW , I 
SAN SCAN16- *-i 
JMP* NOTNUM 
SCANl 6 INQ -7 

SQP SCANl 7- *-l 
JMP* NOTNUM 
SCANl 7 INQ -6 

SQM SCANl 8- *-l 
JMP* NOTNUM 
SCANl 8 JMP* NUMXIT 
LETTER NUM SFFFF 

LDA- SDNTRM, I 

T N A -S3Q 

SAM NOT ALF- *-l 

T Kl A - <t A 

SAP SCA N1 9 -* -1 
LDA- SCNTRF, I 
JMP* (LETTER) 
SCAN19 INA -7 

SAP ALFTST-*-! 


D ATE? 0 8/19799 


INDICATING THAT THIS IS A HEXADECIMAL FIELD 01801532 

01801533 

PICKUP THE LAST BINARY VALUE COMPUTED 01801534 

SHIFT THAT VALUE UP 01801535 

ADD ON THE LATEST DIGIT 01801536 


SKIP DOWN TO STORE IF FIELD IS HEXADECIMAL 01801537 
IF FIELD IS DECIMAL THEN CONVERT TO 01801538 
BINARY BY MULTIPLYING THIS DIGIT BY TEN IN 01801539 
THE BASE 16 NUMBER SYSTEM AND ADDING THE 01801540 
PREVIOUS VALUE TO THE VALUE OF THE NEW DIGIT 01801541 
SAVE THE RESULT OF THE CONVERSION TO USE 01801542 
THE NEXT TIME THROUGH THE LOOP 01801543 
LOOP BACK TO GET THE NEXT DIGIT 01801544 
PICKUP THE BINARY VALUE OF THE NUMBER 01801545 
PICKUP THE LEGAL LEADING ALGEBRAIC SIGN 01801546 
SKIP AHEAD IF THE NUMBER IS POSITIVE 01801547 
COMPLEMENT THE NUMBER IF ITS SIGN IS NEGATIVE 01801548 

01801 549 


STORE THE NEW NUMEER AS THE 
SET THE SIGN TO POSITIVE 
EXIT TO CALLER AT P+1 
ROUTINE TO TEST FOR DECIMAL 
PICKUP THE CURRENT DIGIT 
IS IT GREATER THAN $30 
NO, GO TO NOTNUM 


VALUE OF THE FIEL 0018 0 1 55 0 

01801551 
01801 552 

NUMBERS 01301553 

01801554 
01801555 
018 01 556 
01801 557 


TEST FOR HEX DIGIT IF GREATER THAN $3A 

RETURN TO CALLER WITH THE ASCII CODE FOR A 

VALID NUMBER IN THE A -REGIS TER 

RETURN TO CALLER WITH -0 IN THE A-REGISTER 

INDICATING A NON- NUMERICAL CODE 

ROUTINE TO CHECK FOR VALID HEX DIGITS 

CHECK BIT ZERO OF SCANSW TO SEE IF A HEX 

NUMBER IS LEGAL 

NO, RETURN VIA ERROR EXIT 

YES, IS THE DIGIT $41 OR GREATER 

YES, CONTINUE TEST 

NO, DIGIT WAS BETWEEN $39 AND $41 ERROR EXIT 
IS O I G IT LESS THAN $47 (F CODE) 

YES, CONTINUE 

NO, NOT A HEX CHARACTER 

TAKE NORMAL RETURN WITH ASCII CODE IN A-REG. 
ROUTINE TO TEST FOR ALPHANUMERIC CHARACTERS 
PICKUP THE LAST CHARACTER FOUND 
IS IT LESS THAN $30 ( ZERO CODE) 


YES, INVALID CHARACTER 

IS IT LESS THAN $3A (AMPERSAND CODE) 

NO, SKIP DOWN TO CONTINUE TESTING 

YES, RETURN TO CALLER WITH ASCII CODE FOR 

A VALID DECIMAL DIGIT IN THE A-REGISTER 


IS THIS CHARACTER CODE GREATER THAN $41 
($41 IS THE CODE FOR AN ASCII A) 


01801 558 
01801559 
01801560 
0180 1561 
0180 1 562 
01.801563 
01801564 
01801565 
01801566 
01801567 
01801 568 
01801 569 
0180 1 570 
01801571 
01801 572 
01801573 
01801574 
01801 575 
018Q1576 
0180157 7 
01801 578 
01801 579 
0180158 0 
01801581 
018Q15B2 
01801 583 


o 

LJ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATES 08/19/99 



o 

1619 

P 0 5 2 4 

0 AFF 

NOTALF 

ENA 

-0 

NO, RETURN TO CALLER WITH A-REGISTER MINUS 

01801584 

O 


1620 

P0 525 

1 C F 4 


JMP* 

(LETTER) 

INDICATING INVALID ALPHANUMERIC CODE 

01801 585 


o 

1621 

PO 526 

0 9F5 

ALFTST 

INA 

-Si A 

IS CODE LESS THAN $5B iONE CODE PAST Z) 

01801586 

o 

1622 

PO 527 

0131 


SAM 

SCAN2G-*-i 

YES, CONTINUE TEST 

01801 587 


162 3 

PO 52 8 

1 8FB 


JMP* 

NOTALF 

NO, RETURN 10 CALLER WITH ERROR SET 

01801588 



1624 

P 0529 

Cl 48 

S CAN? 0 

LDA- 

SCNT R N , I 

A VALID ALPHANUMERIC HAS BEEN FOUND. RETURN 

0 1801589 


o 

1625 

P052A 

1C FF 


JMP* 

ILETTER S 

TO CALLER WITH CHARACTER CODE IN A-REGISTER 

01801590 

o 

1626 

P052B 

FFPF 

STRCHR 

NUM 

SFFFF 

ROUTINE TO STORE CHARACTERS IN SYHSTR BLOCK 

01801591 


162 7 

P052C 

CUB 


LDA- 

COUNT 2 , I 

PICKUP STORAGE ADDRESS REGISTER AND RIGHT - 

01801592 



162 8 

P 0 520 

ocoo 


ENQ 

0 

LEFT INDICATOR 

01801 593 


o, 

162 9 

P052E 

OF FF 


LLS 

15 

ISOLATE STORAGE ADDRESS 

01801 594 

o 


1630 

F052F 

4189 


ST GI- 

QHOLD , 1 

SAVE STORAGE ADDRESS IN TEMPORARY CELL 

01801 595 


1631 

P O 53 0 

El 48 


LO Q- 

SCNTRM, I 

PICKUP LAST CHARACTER PROCESSED 

01801596 



1632 

P0531 

0131 


SAM 

SCAN21-*-l 

MINUS MEANS STORE CHARACTER IN RIGHT HALFWORD 

01801597 


o 

1633 

PO 532 

0 F A 8 


QLS 

3 

SHIFT TO LEFT HALFWORD IF FLA G=0 

0180 1 598 

Q 

163 4 

P 0 533 

418 8 

SCAN21 

STQ- 

AHOLD, I 

SAVE CHARACTER IN TEHPORY CELL 

018C1599 


1635 

PO 534 

0C7F 


ENQ 

127 

LOAD Q-REGISTER WITH CHARACTER MASK J$7F) 

0 18 0 1 60 C 



1636 

P0535 

0121 


SAP 

SCAN??-'*-! 

SKIP IF NEW CHARACTER GOES IN LEFT HALFWORD 

01801601 


o 

1637 

PO 536 

0 F A 8 


QLS 

8 

SHIFT MASK IF NEW CHARACTER FOR RIGHT HALFWORD01801 602 

O 

163 8 

PO 537 

0 814 

SCAN? 2 

IRQ 

A 

PUT PROPER MASK INTO A-REGISTER 

01801603 


1639 

P 05.38 

OCFE 


ENQ 

-1 


01801604 



1640 

P 0 539 

FI 89 


AQQ- 

QHOLD, I 

PICKUP POINTER TO LAST CHARACTER PROCESSED 

01801605 


o 

1641 

P053A 

A 2 0 1 


AND- 

l.Q 

MASK GARBAGE BITS OFF LAST CHARACTER STORED 

01801606 

O 

1642 

PO 53 8 

81 88 


ADD- 

AHOLD, I 

ADD NEW CHARACTER INTO WORD 

01801607 


1643 

P053C 

6201 


STA- 

1, Q 

STORE CHARACTERS BACK INTO SYMSTR BLOCK 

01801608 



1644 

P 0 530 

0118 


RAO- 

COUNT? , I 

UPDATE RIGHT/LEFT INDICATOR AND STORAGE 

01801609 


o 

1645 



* 



ADDRESS TO POINT TO NEXT CHARACTER STORAGE CEL01801610 

O 

1646 

P053E 

ICED 


JMP* 

(STRCHR) 

EXIT BACK TO CALLER 

01801611 


1647 

P053F 

FFFF 

CHPU 

NUM 

SFFFF 

CHARACTER PICKUP ROUTINE 

01801 £12 



164 8 

PQ 540 

C 1 18 


LDA- 

WRDCNT, I 

PICKUP CHARACTER ADDRESS 

01801 613 


o 

1649 

P 0 5 4 1 

0118 


RAO- 

WRDCNT , I 

UPDATE CHARACTER ADDRESS 

01801614 

O 

1650 

PO 542 

OCOO 


ENQ 

0 


01801615 


1651 

P05*3 

OFEF 


LLS 

15 

ISOLATE WORD ADDRESS FROM CHARACTER ADDRESS 

0180 1616 



1652 

PO 544 

QDFE 


INQ 

-1 

LEAVE LEFT/RIGHT INDICATOR IN A-REGISTER 

0180 1 617 


o 

165 3 

P05 45 

E2 01 


LDQ- 

1,0. 

PICKUP WORD WITH NEXT CHARACTER IN IT 

01801613 

O 

1654 

PO 546 

0121 


SA P 

CHPUi-*-i 

SKIP IF RIGHT CHARACTER DESIRED 

01801619 


165 5 

PO 547 

OF A8 


QLS 

8 

SWAP WORD HALFS IF LEFT CHARACTER DESIRED 

01801620 



1656 

PO 548 

0 F E 8 

C.HPU1 

LLS 

8 

MOVE CORRECT CHARACTER TO BITS 0-7 OF A -'REG. 

01801621 


o 

1657 

PG 549 

61 48 


ST A- 

SCNTRM, I 

SAVE CHARACTER AS POSSIBLE FIELD TERMINATOR 

01801622 

O 

1658 

P354A 

1CF4 


JMP* 

(CHPU) 

RETURN TO CALLER 

01801 623 


1659 

P0 54B 

FFFF 

GET8IN 

NUM 

SFFFF 

ROUTINE TO GET BINARY VALUE OF ASCII DIGIT 

01801624 



1660 

PQ 54 C 

Cl 48 


LDA- 

SCNTRM, I 

PICKUP ASCII CODE FOR CHARACTER TO BE C0NVERTE018 01 625 


o 

1661 

PO 540 

OCOO 


ENQ 

0 


01801626 

O 

1662 

P 0 54 E 

0 FEC 


LLS 

12 

MOVE UPPER THREE BITS TO Q-REGISTER 

01801627 


1663 

P054F 

0FC4 


ALS 

4 

LEAVE LOWER FOUR BITS IN A-REGISTER 

01801628 



1664 

PQ550 

ODFC 


INQ 

-3 

IF Q=3 A CONTAINS THE BINARY VALUE OF DIGIT 

018B1 629 


o 

1665 

PO 551 

0141 


SQZ 

GT8INl-*-i 

IF Q IS NOT EQUAL TO THREE THEN A + 9 

01801630 

o 

1666 

PO 552 

0 9 09 


INA 

9 

IS EQUAL TO THE BINARY VALUE OF THE DIGIT 

01801631 

o 

1667 

PO 553 

1CF7 

GTBIN1 

JMP* 

(GETBIN) 

EXIT TO CALLER 

01801632 

o 

o 

o 









o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 


1699 
170 0 

1701 

1702 

1703 
170 4 

1705 

1706 
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1669 

¥> 

T 

H 

I 

S I 

1571 

#• 

H 

A 

N 

D L E S 

1673 

* 

U 

S 

A 

G E 

1675 

* 

C 

O 

M 

HAND 

1677 

* 

0 

R 


H O L 


0 F 


1579 

*■ 

CALLING SEQUENCE 

1680 

*■ 

RTJ DISKRD 

1681 

*• 

1682 

* 

NUM FLAG 

1683 

* 


1684 

* 


1685 

*■ 


1686 

'* 


168 7 

* 


1683 

& 



DATES 98/19/99 

THE ROUTINE 
THE STORAGE A 
MASS MEMORY 
SEQUENCE STORAGE 
NG ENTRY/EXTERNALS 


A WORD 


WHERE FLAG= $8000 IF THE WORD IS CONTAINED 
IN AN ENTRY POINT OR EXTERNAL FLAG, 

OR FLAG =0 IF THE WORD IS CONTAINED IN 
COMMAND SEQUENCE IMAGE RAGES 

IN EITHER CASE THE A-REGISTER IS EQUAL 
TO THE ADDRESS OF THE WORD TO BE READ 


CALLING SEQUENCE TO STORE A WORD 


RTJ DISKWR 
NUN VALUE 
NUM FLAG 


VALUE TO BE 
SAME AS FOR 


U 


O 


H A 

T 


01801634 


D 


* 

01801 636 

: ° 

F O 

R 

* 

01801638 


G E 


* 

01801640 

: O 

N A 

L S 

* 

01801642 

O 




O1801 644 
01801 645 
01801646 

; O 


01801 647 
0 18 Q 1 648 
01801649 
0180 1 65 0 
01801651 
01801652 
01801653 


01801 655 
01801 656 
01801657 

STORED IN THE WORD SPECIFIED 01801 658 

DISKRD .800 0 = ENT/EXT PAGE 01801659 

0000= CSQ PAGE 01801660 

01801661 

THE A-REGISTER IS EQUAL TO THE ADDRESS VALUE IS TO BE STORED INT001801662 


SEQUENCE TO 
RTJ WRT OUT 


WRITE ALL OF COMMAND SEQUENCE OUT TO DISK 

THIS CAUSES ALL PAGES THAT HAVE BEEN 
MODIFIED TO BE WRITTEN OUT TO THE 
MASS STORAGE DEVICE IN ORDER. ANY PAGE 
THAT HAS ANYTHING LOADED INTO IT IS 
CONSIDERED TO BE MODIFIED. 


01801664 
01801665 
01601 666 
01801 667 
0180 1 668 
01801669 
01801670 
01801671 


O 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 









o 

c 
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DATE* 08/19/99 


FI 

170 8 

P0 554 

0 BOO 

DISKED 

NOP 

0 

RETURN ADDRESS OF USER 

01801673 

j 


170 g 

P 0 55 5 

4 8 76 


STQ* 

so 

SAVE THE O-REGISTER FOR THE USER 

01801674 


o 

1710 

PO 556 

0842 


CLP 

Q 

SET READ/WRITE FLAG TO ZERO MEANING READ 

01801675 

O 

1711 

PQ 557 

180A 


JMP* 

DISKRW 


01801 676 

o 

1713 

P0558 

OBOO 

DISKWR 

NOP 

0 

RETURN ADDRESS 

01801678 

o 

1714 

PO 559 

4872 


STQ* 

SQ 

SAVE THE Q-REGISTER FOR THE USER 

01801679 


1715 

P055A 

E8FD 


LDQ* 

DISKWR 

MOVE THE RETURN ADDRESS TO DISKRD BECAUSE 

01801680 



1716 

P055B 

48 F3 


S T 07' 

OISKRD 

EXIT IS INDIRECT THROUGH DISKRD 

01801681 


o ■ 

w' 

1717 

P055C 

DDFE 


INQ 

-1 

■ PICKUP THE 15 OR 16 BIT ADDRESS VALUE 

01801682 

o 

1718 

P055D 

E2 01 


LDQ- 

i,Q 

FROM THE USERS CALL 

01801683 


1719 

P055E 

486E 


STQ* 

VALUE 

SAVE THE VALUE TO BE STORED 

01801 684 



172 0 

PO 55 P 

D3F4 


RAO* 

DISKRD 

INCREMENT THE RETURN ADDRESS TO COMPENSATE 

01801685 


o 

1721 




FOR THE EXTRA PARAMETER VALUE 

01801686 

o 

1722 

PO 56 0 

OCOi 


ENQ 

1 

SET READ/WRITE INDICATOR TO WRITE 

01801 687 

o 









o 

o 









o 


o 


o 


o 


o 


o 


o 


o 

' o 

o 

o 

o 

o 

o 

0 

o 

o 

o 

o 
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DATEl D 8/ 19/9 9 


1724 

PO 561 

4367 

QTSKRW 

STQ* 

RWFLAG 

1725 

P 0 562 

6868 


ST A* 

SA 

1726 



*■ 



1727 

PO 563 

E8F0 


LDQ* 

DISKRD 

172 8 

PO 56h 

ODFE 


INC 

-1 

172 9 

P 0 565 

E2 01 


L DO- 

1 » Q 

173 0 

PO 566 

4 8 63 


ST Q* 

PGEFLG 

1731 






1732 

PO 567 

D8EC 


RAO* 

DISKRD 

1733 

P0568 

0177 


SQM 

NOMP 

1734 

P0569 

C14E 


LDA- 

CSNAME, I 

1735 

P056A 

09F9 


IMA 

- 6 

173 6 

P956B 

0114 


SAN 

NOMP 

1737 

P056C 

C8 5E 


LD A* 

SA 

1738 

P056D 

9800 


SUB 

PARSTR 


P056E 

FBC9 




1739 

PO 56F 

68 5B 


ST A* 

SA 

1740 

PO 570 

C8 5A 

NOW P 

LDA * 

SA 

1741 

P0571 

0 8 *42 


CL R 

Q 

1742 

PO 572 

0101 


SAZ 

OB-*-i 

1743 

PO 573 

31 7A 


OVI- 

PAGE, I 

1744 



% 



1745 

P 0 574 

4859 

OB 

ST Q* 

WORD 

1746 

P 05 75 

E 8 54 


LDQ* 

PGEFLG 

1747 



ft 



174 8 



& 



17k 9 

P0576 

0 874 


EAO 

A 

1750 



ft 



1751 



ft 



1752 

PD 57 7 

6857 


ST A* 

PAGENO 

1753 



ft 



1754 

PO 578 

B357 


EOR* 

LSTPGE 

1755 



ft 



1756 

P0579 

0112 


SAN 

NOT SHE- *- 

1757 

P 0 5 7 A 

: E 8 5 A 


LDQ* 

F LG A DR 

17 5 8 



ft 



1759 



* 



1760 

P057B 

1 83 4 


JMP* 

FOUND1 

176 2 



ft 

COME 

HERE WHEN 

1763 



ft 

THE 1 

SAME AS TH 

1765 

P0 57C 

E 141 

NOTSHE 

LDQ- 

M7FFF , I 

176 6 

P057D 

48 53 


STQ* 

MINREF 

176 7 



ft 



1768 



ft 



1769 



ft 



1770 

P057E 

E 1 82 


LDQ- 

NOPAGE, I 

1771 

P057F 

0 852 


TCQ 

Q 

1772 

PO 580 

4175 


STQ- 

ADOR, I 

1773 



ft 



1774 



ft 




FLAG INDICATING TYPE OF OPERATION 
SAVE ADOR TO READ FROM OR STORE INTO 
0= READ, 1 = WRITE 

PICKUP THE FLAG THAT LETS THIS ROUTINE 
DISTINGUISH BETWEEN ENTRY/EXTERNAL PAGES 
AND COMMAND SEQUENCE PAGES. 

$8000= ENTRY/EXTERNAL PAGE 
$0030= COMMAND SEQUENCE PAGE 
INCREMENT RETURN ADDRESS PAST PAGE FLAG 
SKIP TEST IF ENT/ EXT PAGE LOOKUP 
IS THIS AN *MP LOAD 

NO, 

YFS, SUBTRACT PARTITION START 
SO ACTUAL ADDRESS FOR DISK READ/W'RTTE 


IS CALCULATED 


TO BE STORED INTO 
THE WORD ADDRESS 
WORDS TO GET THE 


COMPUTE THE WORD THAT IS 
OR READ FROM BY DEVIDING 
BY THE SIZE OF A PAGE IN 
SECTOR AND WORD ADDRESS 
S AYE THE WORD REFERENCED IN THE PAGE 
PICKUP THE PAGE-FLAG WHICH HAS A VALUE OF 
EITHER $8000 OR $0000 INDICATING EITHER 
AN EXT/ENT PAGE OR A COMMAND SEQUENCE PAGE 
COMBINE THE PAGE FLAG WITH THE SECTOR ADDRESS 
OF THE DESIRED PAGE 


THE PAGE NUMBER IS THE SECTOR ADDRESS PLUS 

AN INDICATOR FOR THE PAGE TYPE 

NOW TEST TO SEE IF THE LAST PAGE REFERENCED 

WAS THE SAME AS THIS PAGE 

THIS PAGE IS NOT THE SAME * GO FIND IT 

THIS REFERENCE IS FOR THE SAME PAGE AS THE 

LAST REFERENCE, PICKUP THE ADDRESS OF THE 

FLAGS FOR THIS PAGE. 

GO TO PROCESS THIS REQUEST 

THE PAGE CURRENTLY BEING REFERENCED IS NOT 
- LAST PAGE REFERENCED 

MINREF IS THE NUMBER OF TIMES THAT THE LEAST 
REFERENCED PAGE IN CORE HAS BEEN REFERENCED. 
SET THIS VALUE TO THE LARGEST POSITIVE 
NUMBER SO THAT THE COMPARE ROUTINE THAT 
COMES LATER CAN FIND THE LEAST REFERENCED PA 
PICKUP THE NUMBER OF PAGES THAT RESIDE IN 
CORE AND SETUP THE COMPLEMENT OF THAT NUMBER 
IN AQOR FOR USE IN SCANNING THE PAGES _ 

IN GORE TO SEE IF ONE OF THEM MATCHES THE 
CURRENT REFERENCE 


01801 689 
01801690 
01801691 
01301692 
01301693 
01801694 
0180 1 695 
01801696 
01801 697 
01801698 
01801699 
0180 1 70 D 
0180 170 1 
01801702 
01801703 

01801704 
01801705 
01801706 
0180 1707 
0180170 8 
01801709 
0 18 0 1 7 1 D 
01801711 
01801712 
018 01713 
01801714 
01801715 
01801716 
01801717 
018 01718 
01801719 
01801 720 
01801721 
01801722 
01801723 
01801724 
01801725 


01801727 
0180 1728 

01801730 
01801731 
01801 732 
018 01733 
GEO 18 01 73 4 
01801735 
01801 736 
01801737 
01801738 
01801739 


ILOAD 


PAGE 53 


0 ATE* 08/19/99 



1775 

P 0 5 8 1 

C 1 77 


LDA- 

CORA DR, I 


1776 

PG 5 82 

6850 


STA* 

MINBAS 

o 

1777 

1778 

1779 

PO 583 

E 1 9 1 

* 

LDQ~ 

FLGBSE, I 


1780 



* 



o 

1781 

1782 

PG 584 

4851 

* 

STQ* 

MINFLG 


1783 






o 

1785 

P 0 58 5 

4 8 4F 

FIND 

STQ* 

FLGAOR 

1786 







178 7 
178 8 

P 0 586 

684D 

* 

ST A* 

ADPAGE 

o 

1789 
179 0 

PG 587 

C201 


LDA- 

PGENUM, Q 


1791 

1792 

PO 588 

B846 

* 

EOR* 

PAGENO 

o 

1793 

1794 

PG 589 

0111 

* 

SAN 

RFFR-*-l 


1795 

1796 

P058A 

1 8 23 

•w* 

JMP* 

FOUNOA 


PICKUP THE FIRST CORE ADDRESS AVAILABLE FOR 
PAGING AND USE AS THE ADDRESS OF THE LEAST 
■REFERENCED PAGE UNTIL THE TRUE ADDRESS 
CAN BE FOUND. 

PICKUP THE BASE ADDRESS OF THE FLAG 
AS THE ADDRESS OF THE FLAGS FOR THE 
PAGE TO BE TESTED 

INITIALIZE FLAG ADDRESS FOR LEAST 
REFERENCED PAGE 


TABLE 

FIRST 


1 18*439 
118*439 


SET FLGADR TO THE ADDRESS OF THE CORE FLAGS 
FOR THE PAGE CURRENTLY BEING CHECKED 
SET ADPAGE TO THE CORE ADDRESS OF THE 
PAGE CURRENTLY BEING CHECKED 

PICKUP THE PAGE NUMBER OF THE PAGE CURRENTLY 
BEING CHECKED. 

COMPARE THIS TO THE PAGE NUMBER WE ARE 
LOOKING FOR 

THIS IS NOT THE PAGE WE WANT, SKIP DOWN 
TO PICKUP THE NEXT PAGE FOR CHECKING 
THIS IS THE PAGE WE ARE LOOKING FOR, GO DOWN 
TO PROCESS THIS REQUEST 


01801740 
01801741 
018 01742 
01801 743 
01801744 
01801745 
01801746 

01801746 
01801749 
018 01750 
01801751 
0180 1 752 
01801 753 
01801754 
01801 755 
01801756 
01801 757 
018 01758 
01801759 
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PAGE 54 


D ATE’ 


Q 8/19/99 


1798 

17 9 9 

18 D 0 
1801 


1803 

180 4 
1805 
180 6 
1807 
180 8 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

181 6 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 
182 7 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1833 

1839 

1840 

1842 

1843 
1344 

1845 

1846 
1347 


* 

* 

* 


CONE HERE TO PICKUP THE ADDRESS OF 
COPE FLAGS WHEN TRYING TO FIND OUT 
CORE. THIS ROUTINE IS ALSO USED TO 
REFERENCED AND THE MOST REFERENCED 


THE NEXT PAGE AND ITS 
IF A GIVEN PAGE IS IN 
IDENTIFY THE LEAST 
PAGES IN CORE. 


01801761 
01801762 
01801 763 
01801764 


P058E 

C 2 02 

REFR 

Jg. 

LDA- 

REFER, Q 

PQ58C 

9845 


SUB* 

MAXREF 

P 0580 

0132 


SAM 


P058E 

C2 02 


L OA- 

REFER, Q 

P058F 

6842 


ST A* 

MAXREF 

P0590 

C202 

FB 

LOA- 

REFER, Q 

PO 591 

983F 


sue* 

MINREF 

PG 592 

0101 

* 

SAZ 

FC-*-i 

PG 593 

012F 

-rf 

* 

SAP 

FD-*- 1 

PO 594 

C201 

■»* 

FC 

LDA- 

PGENUH, i 

PG595 

0138 


SAM 

FCl-*-l 

PO 596 

Cl 4E 


LOA- 

GSNAME, 

PO 597 

0 9FA 


IN A 

-5 

P0598 

0125 


SAP 

FC1 

P 0599 

C 2 0 1 


LOA- 

PGENUH, 

PO 59 A 

9800 


SU 8 

LENSDT 

PO 599 

FA 64 




P059C 

0121 


SAP 

FCi-*-l 

P059D 

1806 


JMP* 

FD 

P059E 

C 2 02 

PCI 

LDA- 

REFER, Q 

PO 59F 

6 831 

■af. 

STA* 

MINREF 

PQ5A0 

4835 

If 

ST Q* 

MINFLG 

P05A1 

C 832 


LD A* 

ADPAGE 

PO 5A2 

6830 


STA* 

MINBAS 




COME 

HERE TO 



* 

PAGF 

IN CORE 




HAVE 

BEEN CH 

PG5A3 

D 175 

FD 

RAO- 

ADDR, I 

PO 5A4 

Cl 75 


LDA- 

AQDR, I 

PO 5 A 5 

0111 


SAN 

FE-*-l 

P05A6 

1830 

V- 

JMP* 

FF 


Q 


Q 


PICKUP THE NUMBER OF TIMES THAT THIS 
PAGE HAS BEEN REFERENCED. 

COMPARE THIS TO THE MAXIMUM NUMBER OF 
REFERENCES LOGGED IN MAXREF • 

SKIP IF NUMBER OF REFERENCES .LT, MAXREF. 
UPDATE MAXREF TO THE NUMBER OF TIMES 
THAT THIS PAGE HAS BEEN REFERENCED. 

COMPARE THE NUMBER OF T I?*JES THAT THIS PAGE 
HAS BEEN REFERENCED TO THE MINIMUM NUMBER 
OF TIMES THAT A PAGE HAS BEEN REFERENCED. 

IF THIS PAGE HAS BEEN REFERENCED THE MINIMUM 
NUMBER OF TIMES SKIP DOWN AND SAyE ITS 
ADDRESS IF THE PAGE NUMBER IS ABOVE LENSDT. 

IF THE NUMBER OF REFERENCES IS GREATER THAN 
THE MINIMUM THEN GO ON TO CHECK THE NEXT PAGE 


IF A IS MINUS THE NUMBER OF REFERENCES IS 
LESS THAN MINREF. 

MAKE SURE THAT THE NUMBER 
SKIP IF ENT/EXT PAGE 
CHECK FOR *M OR *HP LOAD 


OF THE LEAST 


SKIP IF * M OR *MP 

REFERENCED PAGE IS ABOVE THOSE 


01801766 
0180 1 767 
01801 768 
01801769 
01801 770 
01801771 
01801772 
01801773 
01301774 
01801775 
01801776 
01801777 
01801778 
01801779 
01801780 
01801781 
01801782 
01801783 
01801 784 
01801 785 
118*439 7 **** *-*♦* 
118*4397******** 
118*4397******** 
118*439 7 ******** 
66*145501801786 


CONTAINING SYSQAT AND THE DIRECTORY 
JUMP IF NOT VALID LEAST REFERENCED PAGE 
PICKUP THE NUMBER OF TIMES THAT THIS PAGE 
HAS BEEN REFERENCED AND STORE THE VALUE 
IN MINREF AS THE NEW MINIMUM. 

SAVE THE ADDRESS OF THE CORE FLAGS OF THE 
LEAST REFERENCED PAGE IN MINFLG. 

SAVE THE CORE ADDRESS OF THE LEAST 
REFERENCED PAGE IN MINBAS. 


INCREMENT THE COMPLEMENT OF THE NUMBER OF 
PAGES TO BE CHECKED AND TEST TO SEE IF 
ALL PAGES HAVE BEEN CHECKED. 

SKIP IF NOT ALL PAGES HAVE BEEN CHECKED. 
ALL PAGES HAVE BEEN CHECKED AND THE PAGt 
THAT THIS REQUEST SPECIFIES IS NOT IN CORE, 


01801 787 
01801788 
01301789 
01801790 
01801791 
01301792 
01801793 
018D1 794 
01801 795 

01801 797 
01801798 
01801799 

01801801 

01801802 

01801803 

01801304 

01801805 

01801806 


I LOAD 
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DATEt 08/19799 


1849 



* 

UPDATE PARAMETERS 

1851 

P05A7 

C82C 

FE 

LDA* 

ADPAGE 

1852 

P05A8 

8 17A 


ADD- 

PAGE * I 

1853 

P05A9 

FI 32 


AQQ- 

FLGLGN, I 

1854 

1855 

PG5AA 

1 8 DA 


JMP* 

FIND 


TO SEE IF THE NEXT PAGE IS THE PAGE REQUESTED 

UPDATE THE ADDRESS OF THE PAGE BEING CHECKED 
TO POINT TO THE NEXT PAGE IN CORE. 

UPDATE THE Q-REGISTER TO POINT TO THE 
CORE FLAGS OF THE NEXT PAGE IN CORE. 

GO BACK TO TEST THE NEXT PAGE. 


0180180 8 

01601810 

01801811 

01801812 

01801813 

01801814 


ILOAO 


PAGE 56 


DATE'! 08/19/99 


COME HERE WHEN THE PAGE DESIRED HAS BEEN FOUND 


0180 1816 


P05AR 4828 FOUND STQ* ADPAGE 


P05AC EQ28 


LDQ* FLGAQR 


THIS ENTRY IS USED WHEN THE DESIRED PAGE 01801818 
HAS BEEN READ IN FROM THE DISK. SAVE THE 01801819 
CONTENTS OF THE Q-REGISTER WHICH CONTAINS 01801820 
THE ADDRESS THAT THE PAGE WAS READ INTO. 01801321 
PICKUP THE ADDRESS OF THE CORE FLAGS FOR 01801822 
THE REFERENCED PAGE FOR USE AS AN INDEX. 01801323 


POE AD C 2 0 1 
P05AE 6821 


FOUNDA LD A- PGENUM, Q 
ST A* LSTPGE 


THIS ENTRY IS USED WHEN THE DESIRED PAGE 
IS FOUND IN CORE BY THE RFER ROUTINE. 

BEING REFERENCED AND SAVE IT AS THE 
NUMBER OF THE LAST PAGE REFERENCED. 


01801825 
01801826 
0180182 7 
01801828 
01801829 


P05AF 0202 
P0 5B0 01 AO 


P05B1 
P05B2 
PQ 583 
P0 5B4 
P05B5 
P D 5B6 
P05B7 
P05B8 

P05B9 

P058A 

P05BB 

P05BC 

PQ5BD 

P058F 

P05BF 

PS5C0 
PG5C1 
P05C2 
P05C3 
PO 5C4 
P05C5 
P0 5C6 
P05C7 


0901 
0 1B2 
GOOD 
6000 
6202 
C8 12 
010C 
6203 

C 8 13 
E 8 13 
6F18 

C 813 
0138 
0822 
916E 

0135 
0104 
41 6E 
1803 
E8 09 
CE OE 
€8 05 
1C8C 


FOUND 1 LDA- REFER, Q 
SOV 0 

* 

INA 1 
SNO FOUNDS 
LDA =N$60 0 0 

FOUNDS ST A- REFER, Q 
LDA* RWFLAG 
SAZ FG-*-i 
STA- MODIFY, Q 

* 

LDA* VALUE 
LD Q* WORD 
STA* C AOPAGE3 ,Q 

* 

LDA* LSTPGE 
SAM FH-*-l 
TRA Q 

SUB- LGEPG£,I 

* 

SAM FH-*-l 
SAZ FH-*-l 
STD- LGEPGE , I 
JMP * FH 

FG LOG* WORD 

LDA* (ADPAGE), Q 
FH LDQ* SQ 

JMP* TDISKRDD 


THIS ENTRY IS USED WHEN THE DESIRED PAGE 01801831 

IS THE SAME AS THE LAST PAGE REFERENCED. 01801832 

INCREMENT NBR OF TIMES THIS 61*128901801833 

118*439 7****-*^* * 

PAGE HAS BEEN REFERENCED. ‘ 01801834 

61*128901801835 

61*128901801836 

RESET LOWER REFER NBR 61*128 90180183 7 


SO NUMBER IS NOT NEGATIVE 61*128901801838 
SFF WHAT TYPE OF REQUEST THIS IS, READ OR WRITEO1801 83 9 
SKIP DOWN IF THIS IS A READ REQUEST. 01801840 
THIS IS A WRITE REQUEST, SET A FLAG TO 01801841 
INDICATE THAT THIS PAGE HAS BEEN MODIFIED. 01801842 
PICKUP THE VALUE TO BE STORED IN THE PAGE 01801843 
PICKUP THE WORD REFERENCED IN THE PAGE 01801844 
STORE THE VALUE INTO THE PROPER WORD 0180184s 
OF THE PAGE 01891846 
PICKUP THE NUMBER OF THE PAGE JUST USED. 01801847 
SKIP IF THIS WAS AN ENTRY /£ XTERNAL PAGE. 01801848 
THE PAGE JUST USED WAS FOR COMMAND SEQUENCE, 01801849 
SEE IF IT IS THE LARGEST PAGE USED AND IF SO 01801850 
THEN UPDATE LGEPGE. 01801851 
THIS PAGE IS NOT THE LARGEST PAGE 01801852 
REFERENCED SO EXIT THIS SUBROUTINE,. 01801853 
SAVE THE NEW LARGEST PAGE USED. 01801854 
EXIT 01801855 
THIS WAS A READ REQUEST SO PICKUP THE 01801856 
REQUESTED WORD IN THE A-REGI5TER. 01801857 
RESTORE THE Q-REGISTER. 01801858 
RETURN TO THE CALLER. 01801859 





I LOAD 



page 

57 

DATES 08/19/99 


□ 

Q ■ 

1903 




T A 

B L E 

0 F 

CONSTANTS LOCAL 

018G1861 


O ; 

1905 



s* 

T 0 

F H E 

P 

aging routine 

01801863 

o 

O 

1907 

1908 

P05C8 

00 00 

RWFLAG 

* 

NUM 

0 


READ/WRI'FE FLAG - SETUP ON ENTRY TO PAGE 
0 = READ, 1 = WRITE 

01801865 

01801866 

o 

o 

O 

1910 

1911 

P05C9 

00 0 0 

PGEFLG 

* 

NUM 

0 


TYPE OF PAGE FLAG - SETUP ON ENTRY TO PAGE 
$800 0 = ENT/EXT PAGE, 0 = COMMAND SEGU PAGE 

01301868 

01801869 

O 

1913 

P05CA 

00 00 

SA 

NUM 

0 


TFMPORARY STORAGE FOR A-REGISTER 

01801 371 

o 

1915 

P05CR 

00 00 

SQ 

NUM 

0 


TEMPORARY STORAGE FOR Q-REGISTER 

01801373 


n 

191 7 

P05CC 

oaoo 

VALUE 

NUM 

0 


VALUE THAT IS TO BE STORED INTO A .PAGE 

018 01875 

o 


1919 

P05CD 

00 00 

WOP D 

NUM 

0 


THE WORD ADDRESS DESIRED WITHIN A PAGE 

01801877 


O 

1921 

PD5CE 

0 0 00 

PA GEN 0 

NUM 

0 


THE NUMBER OF THE PAGE BEING SOUGHT 

01801879 

o 

1923 

P05CF 

0000 

LSTPGE 

NUM 

0 


THE ADDRESS OF THE LAST PAGE REFERENCED 

01801881 


O 

1925 

1926 

P 0 50 0 

0 0 00 

M IN RE F 

* 

NUM 

0 


THE MINIMUM NUMBER OF TIMES THAT A PAGE 
IN CORE HAS BEEN REFERENCED. 

01801 88 3 
01801884 

o 

o 

1928 

1929 

P05D1 

oooo 

MAX RE F 

NUM 

0 


THE MAXIMUM NUMBER OF TIMES THAT A PAGE 
IN CORE HAS BEEN REFERENCED. 

01801886 

01801887 

o 

1931 

P05D2 

oaoo 

HINBAS 

NUM 

0 


THE CORE ADDRESS OF THE LEAST REFERENCED PAGE 

0180 1889 


o 

1933 

P05D3 

0000 

AD'PAGE 

NUM 

0 


THE CORE ADDRESS OF THE PAGE TO RE REFERENCED 

01AQ1891 

o 

1935 
19 3 6 

P 0 50 4 

0000 

FLGADR 

* 

NUM 

0 


THE CORE ADDRESS OF THE FLAGS CORRESPONDING 
TO THE PAGE TO BE REFERENCED 

01801893 

01801894 

o 

o 

1938 

1939 

P0 505 

oooo 

MIN FL G 

NUM 

0 


THF CORE ADDRESS OF THE FLAGS CORRESPONDING 
TO' THE LEAST USED PAGE. 

01801896 

01801897 


o 


n 


O 


O 


O 


o 



o 
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PAGE 58 


DATEi 08/19/99 


1941 




* 

COME HERE WHEN 

1942 




yf- 

OF THEM IS I HE 

1944 




* 


1945 




* 


1946 

P05D6 

E3FE 


FF 

LOQ* MINFLG 

1947 

PO 507 

43 FC 



STG* FLGAOR 

1948 




* 


1949 

PD5D8 

C 2 03 



LDA- MODIFY, G. 

1950 




* 


1951 

P05D9 

010B 



SAZ FI-*-i 

1952 




* 


1953 






195^ 

PQ5DA 

61 6D 



ST A- PGEWRT , I 

1955 




v- 


1956 

PO 50 B 

C 2 0 1 



LDA- PGENUM, Q 

1957 

P0 5DC 

5852 



RTJ* F NO SEC 

1958 

P05DD 

0352 



TCQ Q 

1959 

PO 5DE 

5800 

X 


RTJ MDRTV 


P05DF 

7FFF 

X 



1950 




* 


1961 






1962 

P05EO 

E3 00 

X 


LDQ ISA V 


P 0 5 El 

7FFF 

X 



1963 

P05E2 

40 FF 



STQ- I 

196-+ 

P05E3 

0111 



SAN FI-*-i 

1965 

PQ5E4 

1 8 6E 



JMP* WRE 


REPLACE THE LEAST REFERENCED PAGE WITH 
THE PAGE THE REQUEST IS FOR. 

PICKUP THE ADDRESS OF THE FLAGS OF THE 


LEAST 


REFERENCED PAGE AND 
OF THE FLAGS OF THE 
TEST TO SEE IF THIS 
WHILE IN CORE. 

IF THE PAGE HAS NOT 


SAVE THEN AS THE ADDRESS 
REQUESTED PAGE. 

PAGE HAS BEEN MOOIFIEO 

BEEN MODIFIED WHILE 


BOTHER TO WRITE IT OUT 


OUT 


IN CORE, DO NOT 
TO MASS STORAGE. 

SET THE FLAG THAT SAYS THAT A PAGE HAS BEEN 
WRITTEN OUT TO MASS STORAGE. 

PICKUP THE NUMBER OF THE PAGE TO WRITE 
GO TO FIND THE SECTOR OF THIS PAGE. 
COMPLEMENT THE NUMBER OF WORDS TO SIGNAL 
WRITE THE PAGE OUT TO MASS STORAGE 

A-REGISTE R = ADDRESS TO WRITE FROM 
Q-REGISTER = COMPLEMENT OF WORD COUNT 


01.301899 

01301900 


0180 1902 
01301903 
01801904 
01801905 
0 180 1 90 6 
0 18 0 190 7 
0180 1908 
01801909 
018Q1910 
01801911 
01801912 
0180 1913 
01801914 
01801915 
WRITE018 01916 
01801917 


RESTORE THE I-REGISTER 
SKIP IF NO ERROR 
IRRECOVERABLE MASS STORAGE 


ERROR 


01801918 
01801919 
0180 192 C 

01801921 
0180 1922 
01801923 


1967 



*■ 

COME 

HERE TO 

READ 

1969 

P0 5E5 

CBEfl 

FI 

L DA* 

PAGENO 


1970 



■* 




1971 



* 

SAM 



1972 

P05E6 

0138 


FJ-*-l 


1973 

P0 5E7 

2 8 4A 


MU I* 

NUMSC'+l 


1974 



* 


LSSECT 


1975 

P05E8 

8800 

X 

ADD 



PQ5E9 

0133 

X 


ENTSEC , 


1976 

P0 5EA 

917F 


SUB- 

I 

1977 





FK-*-l 


197 8 

P0 5EB 

013B 


SAM 


1979 

P05EC 

Cl 4£ 


LDA- 

GSNAME, 

I 

198 0 

P05ED 

09F9 


I N A 

- 6 


1981 

PO 5EE 

01 08 


SAZ 

FK 


1982 

P05EF 

COOO 


LDA 

= A1 2 



P0 5FQ 

3132 



PRINT2, 


1983 

PO 5F1 

1 13B 


JMP- 

I 


IN THE REQUESTED PAGE 

PICKUP THE NUMBER OF THE PAGE REQUESTED 
ANO TEST TO DETERMINE IF IT IS A ENT/EXT 
PAGE OR A CCMMANO SEQUENCE PAGE. 

SKIP IF AN ENT/EXT PAGE 

MULTIPLY THE PAGE NUMBER BY THE NUMBER 

np 9FCT0RS TN A PAGE 

ADD THE STARTING SECTOR. OF COMMAND SEQUENCE 

SUBTRACT THE STARTING SECTOR OF ENT/EXT 
PAGES TO SEE IF THIS IS A LEGAL SECTOR. 

SKIP IF PAGE NUMBER IS IN VALID RANGE 

CHECK FOR *MP LOAD 

THIS IS AN ILLEGAL PAGE NUMBER 

PRINT ERROR ANO ABORT 


01801925 

0180 1927 
01801928 
01801929 
01801930 
01801931 
01801932 
01801933 

01801934 
018 0193 5 
01801936 
01801937 
01801938 
01801939 
01801940 

018G1941 


noao 


PAGE 59 


DATES 08/19/99 


1984 

P05F2 

A 141 


FJ 

1985 

PO 5F3 

91 81 



1986 




* 

1987 

D 0 5F4 

0132 



1988 

P05F5 

OA 32 



1989 

P05F6 

1138 



1991 




V- 

1993 

P05F7 

E80C 


fk 

1994 

PD5F3 

C808 



1995 

P05F9 

0111 



1996 

P05FA 

QA 03 



1997 

P05FB 

0 9F0 


FK1 

1998 

PD5FC 

6202 



1999 

P05FD 

0 8 44 



2000 

P05FE 

62 03 



20 01 

P05FF 

68 Di 



200 2 




w 

20 0 3 

P0600 

C8CD 



20 0 4 

PO 60 1 

6201 



200 5 

P 06 02 

0135 



2006 

PO 603 

916E 



200 7 

PO 604 

0 1 32 



20 08 

PG6G5 

0101 



20 0 9 

P0606 

1825 



2010 

P 0 6 0 7 

181B 


FL 

2012 

PO 60 8 

A1 41 


FM 

2013 

P06Q9 

0 8 42 



2014 

PO 6 0 A 

0113 



2015 

PQ60B 

6175 



2016 

P060C 

a a o i 



2017 

P06GQ 

18 0 9 



2018 

PO 60E 

30 00 


EAB 


P060F 

0 010 



2019 





20 2 D 

P061Q 

6175 



2021 

P 0 61 1 

0 A 0 1 



2022 

P 0 6 1 2 

0143 


EAB2 

20 23 

PO 613 

QDFE 



2024 

PO 614 

QF'Cl 



2025 

P0615 

1 3FC 



2026 

P 0 61 6 

El 75 


EAB1 

2027 

P 0 61 7 

6175 



2028 

P 0 61 8 

C A Q 8 

X 



P0619 

7FFF 

X 


2029 

PO 61 A 

Ai 75 



203 0 

P061B 

0116 



20 31 




* 

203 2 

PG61C 

CA 00 

X 



PO 61 D 

0619 

X 



AND- M7FFF.I 
SUB- MAXPG E, I 

SAM FK-*-i 
ENA $32 
JMP- PRINT 2 , I 


CLEAR THE UPPER BIT FROM THE ENT/EXT PAGE NO. 
SUBTRACT THE MAXIMUM PAGE NUMBER ALLOWED 
ON THE MASS STORAGE DEVICE. 

SKIP IF PAGE NUMBER IS LEGAL 
HASS STORAGE OVERFLOW 
PRINT ERROR AND ABORT 


01801942 
0 18 0 1 9 A3 
01801944 
01801945 
0180194b 
01801947 


COME HERE TO SETUP THE NEW PAGE IN GORE 


01801949 


LDQ* FLGADR 
LDA * MAXREF 
SAN FKl-*-l 
ENA 3 
INA -2 
STA- REFER, Q 
CLP A 

STA- MODIFY, Q 
STA'* MAXREF 

LDA* PAGENO 
STA- PGENUM , Q 
SAM FM-*-i 
SUB- LGEPG E , I 
SAM FL-*-l 
SAZ FL-*-l 
JMP* FN 
JMP* G TP AGE 


INITIALIZE THE CORE FLAGS OF THE NEW PAGE 

SKIP IF MAXREF IS DEFINED 
CREATE A MAXREF 

SETUP THE NUMBER OF TIMES THE PAGE 
HAS BEEN MODIFIED TO 'MAXREF -2 


CLEAR PAGE HAS BEEN MODIFIED FLAG 

CLEAR MAXREF SO THAT IT WILL BE REDEFINED 

ON THE NEXT CALL TO PAGE. 

STORE THE PAGE NU?-i8'ER INTO THE FLAGS 
CORRESPONDING TO THE PAGE. 

SKIP IF THIS AN ENT/EXT PAGE 
THIS IS A WRITE REQUEST INTO A COMMAND 
SEQUENCE PAGE. SEE IF WE HAVE USED THIS 
HIGH OF AN ADDRESS BEFORE AND IF NOT THEN 
DO NOT BOTHER TO READ IN THE PAGE. 

READ IN THE PAGE 


0 18 G 1 951 
01801952 
01801953 
01801954 
01801955 
01801956 
01801957 
01801958 
01801959 
01801960 
01801961 
01801962 
01801963 
018Q1964 
01801965 
01801966 
01801967 
01801968 


AND- M7FFF , I 
CLR Q 
SAN EAB-*-i 
STA- ADDR, I 
f N A 1 
JMP* EAB1 
DVI =N$ 10 


CLEAR THE UPPER BIT FROM THE ENT/EXT PAGE NO. 


SKIP IF NOT PAGE ZERO 
SAVE PAGE ADDRESS 
SETUP BIT POSITION 
GO TO CHECK STRTBL 

CHECK TO SEE IF THIS PAGE WAS PREVIOUSLY 


01801970 
01801971 
01801972 
01801973 
0180 197** 
01301975 
01801976 


STA- ADD R, I 
ENA 1 

SQZ EABl-*-l 
INQ -1 
ALS 1 
JMP* EAB2 
LOO- ADDR » I 
STA- ADDR, I 
LD A STRTBL, Q 


USED BY CHECKING ITS BIT IN THE STRTBL 
SAVE THE NUMBER OF THE WORD IN THE STORAGE 

COMPUTE THE BIT POSITION CORRESPONDING TO 
THIS PAGE IN THE ENT/EXT PAGES 


PICKUP THE INDEX TO THE STRTBLE 

SAVE THE BIT POSITION FOR THIS PAGE 

PICKUP THE CORRECT WORD OF THE STORAGE TABLE 


01801977 
0 180 1 978 
01801979 
01801980 
01801981 
01801982 
01801983 
01801984 
01801985 
01801986 


ANO- 

SAN 


ADDR, I 
GTPAGE- *-l 


TEST FOR THIS PAGE BEING STORED INTO. 
PAGE HAS BEEN PREVIOUSLY STORED INTO, 
READ IT IN FROM MASS STORAGE. 


01301987 

01801988 

01801989 

01801990 


LD A 


STRTBL, Q 


I LOAD 


PAGE 


60 


DATE: 08/19/99 




2033 

P061E 

B175 



EOR- 

ADDR, I 


20 3 4 

P061F 

6AQ0 

X 


STA 

STRTBL, Q 

O ; 


P0620 

0 61 D 

X 




2035 

P0621 

180 A 



JMP* 

FN 

o ■ 

2037 

P0 622 

C8 AS 


GTP AS £ 

LOA* 

PAGFNO 

20 3 8 

P0 623 

5 8 0 B 



RTJ* 

FNDSEC 


2 0 3 9 

P 0 624 

58 0D 

X 


RTJ 

MDRIV 



P0 625 

0 5 OF 

X 




O ' 

2040 

PD 62 6 

E8 00 

X 


LDQ 

ISA V 


P0627 

0 5E1 

X 





2041 

P0 628 

40 FF 



STQ- 

I 


2042 

P0629 

0111 



SAN 

FN-*- 1 

o 

2043 

P0 62 A 

18 28 



JMP* 

WRE 


2045 





COME 

HERE WHEN 

o 

2047 








2048 

P062B 

E8 AS 


FN 

LDQ* 

MINBAS 


2049 

P062C 

180 0 



JMP 

FOUND 

o 


P062D 

FF7D 






O 

20 5 1 

P062E 

0B DO FNDSEC 

NOP 

0 


2052 

PG62F 

0135 

SAM 

NOTCSQ-*- 

O 

2053 

P063Q 

20 0 0 NUMSC 

MU I 

=XN UMSE C 

P0631 

0 0 01 




205 4 

P0 632 

88 C 0 X 

ADD 

LSSECT 



P0 637 

05E9 X 



O 

20 5 5 

P0 634 

1804 

JMP* 

EA 

205 6 

P 0 635 

A 1 41 NOT CS Q 

AND- 

M7FFF , I 


205 7 

P0636 

2 8 F A 

MUI* 

NUMSG+1 


2058 

PO 637 

817F 

ADO- 

ENTS EC, I 

o 

2059 

2060 

P0 63 8 

* 

6806 EA 

STA* 

SECTNO 


2061 

P0 639 

E 1 7 A 

LDQ- 

PAGE, I 


2062 

P 0 63 A 

C 8 0 4 

LOA* 

SECTNO 

o 

2063 

P063B 

6 0 FF 

STA- 

I 

2064 

PG63C 

C895 

LDA* 

MINBAS 


2065 

P063D 

1CF0 

JMP* 

( FNDSEC ) 


206 6 

P0 63E 

0000 SECTNO 

NUM 

0 


o 


o 

o 


UPDATE STRTBL TO SHOW THAT THIS PAGE 
HAS BEEN USED AND SKIP READING THE PAGE- 


COME HERE TO READ A PAGE IN FROM MASS STORAGE 
FIND THE SECTOR FOR THIS PAGE 
READ THE PAGE INTO CORE 


RESTORE THE I-REGISTER 
SKIP IF NO ERROR 

IRRECOVERABLE MASS STORAGE ERROR 


THE DESIRED PAGE IS LOCATED IN CORE 
IN CORE 

USE THE BASF OF THE LEAST USED PAGE 
AS THE BASE OF THE DESIRED PAGE 


01801991 

01801992 

O 

01801993 

018 01995 
01801996 
01801997 

O 

018D1998 

O 

01801999 
0 180 2 0 Q 0 
01802001 

O 

018 C 2 0 0 3 


0180 2 00 5 
01802006 
01802007 

O 


O 


O 


COMPUTE THE SECTOR NUMBER OF THE PAGE DESIRED . 01802009 
SKIP IF NOT COMMAND SEQUENCE PAGE 01802010 
MULTIPLY PAGE NUMBER EY NUMBER OF SEGTORS/PAGEO18020U 

ADD THE STARTING SECTOR OF COMMAND SEQUENCE 01802012 


ON MASS STORAGE. 

CLEAR ENT/EXT INDICATOR 
MULTIPLY PAGE NUMBER BY NUMBER 
ADD STARTING SECTOR OF ENT/ EXT 
ON MASS STORAGE. 

SAVE THE SECTOR NUMBER 
PICKUP NUMBER OF WORDS 
PICKUP SECTOR NUMBER 
SAVE SECTOR NUMBER FOR MDRIV 
PICKUP CORE ADDRESS OF BUFFER 
RETURN TO CALLER 

TEMPORARY STORAGE FOR SECTOR NUMBER 


OF SECTORS 
PAGES 


01802013 

018C2Q14 

/PAGE018G2Q15 

01802016 

01802017 

01802018 

01802019 

01802020 

01802021 

01802022 

01802023 

01802024 


o 

o 

o 

o 

o 

o 

o 




o 


ILOAO 


PAGE 61 



DATE’S 08/19/99 


o 


o 

0 WRITE ALL PAGES 01602026 

BEEN MODIFIED 01802028 Q 

ASS STORAGE. 01802030 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 


RETURN ADDRESS ^ „ 

PICKUP THE NUMBER OF PAGES IN CORE 

COMPLEMENT THIS VALUE AND USE IT AS A COUNTER 

TO DETERMINE WHEN ALL PAGES ARE WRITTEN OUT. 

PICKUP THE BASE OF THE FLAG TABLE 

PICKUP THE STARTING ADDRESS OF THE FIRST PAGE 

SAVE THE PAGE BASE FOR THE WRITE BUFFER ADORE 

SAVE THE FLAG ADDRESS FOR FUTURE USE 

HAS THIS PAGE BEEN MODIFIED 

NO. CHECK THE NEXT PAGE 

YES, PICKUP THE PAGE NUMBER 

FIND THE SECTOR ADDRESS OF THIS PAGE 

COMPLEMENT WORD COUNT TO FLAG WRITE 

WRITE PAGE TO MASS STORAGE 


RESTORE THE I-REGTSTER 
SKIP IF NO ERROR, 


01802032 
01802033 
UNTER 01802034 
OUT. 01802035 
01802036 
PAGE 01802037 
ADORE S018 0 2 0 38 
01802039 
01802040 
01802041 
0180 2 34 2 
01802043 
01602044 
01802045 


IRRECOVERABLE MASS STORAGE ERROR 


INCREMENT PAGE C 
HAVE ALL PAGES B 
YES, EXIT 
NO, DO NEXT PAGE 


COUNTER 
BEEN WRITTEN 


UPDATE BUFFER ADDRESS TO NEXT PAGE 
UPDATE FLAG ADDRESS TO NEXT SET OF FLAGS 


WRITE NEXT PAGE 
RETURN TO CALLER 


018Q 2-346 

01802 047 
01832048 
01802049 
01802050 

01802051 

01802052 

01802053 

01802054 

01802055 

01802056 

01802 057 
01802058 
01802059 


o 


210 3 
210 5 
21 0 T 


2109 

2110 


2112 

2113 


211 5 


2117 


2119 

2120 
2121 
2122 

2123 

2124 

212 5 
212 6 

2127 

2128 

2129 

2130 

2131 

213 2 
2133 


I LOAD 


PAGE 62 


DATE: 38/19/99 


'*■ 

* 


THIS IS 

ADDRESS 

LOADER. 


THE MODULE 
ARITHMETIC 


THAT DOES 
C R THE 


01802061 

01802063 

01802065 


* USE THE FLAG ARIT15 TO DETERMINE WHETHER TO USE 15 BIT OR 

* 16 BIT ARITHMETIC 

* THE Q-REGISTER CONTAINS THE PROGRAM BASE ADDRESS 

* IF Q = ZERO THEN TO RELOCATION IS NECESSARY 

* THE A-REGISTER CONTAINS THE RELATIVE ADDRESS 

* ON EXIT THE SUM OF THE TWO -REGISTERS IS IN A. 


01802067 

01802068 

01802070 

01802071 

01802073 

01802075 


PO 66C 

61 88 

ADUOV1 

STA- 

A HOLD) *1 

P0661 

4189 


S7 ES- 

QHOL0.I 

PO 662 

01 4B 


SO. Z 

ADJ0F2- *-i 

PO 663 

Cl 57 


LOA- 

ARITi 5? I 

PO 664 

010A 


SAZ 

A0J0F4- *-l 

PO 665 

Cl 88 


LOA- 

A HOLD, I 

P 0 666 

0122 


SAP 

AOJOF3 -*-i 

PO 567 

G A 39 


FNA 

$39 

P 066 8 

1 1 3 B 


JMP- 

PRINT 2, I 

PO 669 

El 09 

ADJ0F1 

LDQ- 

BGRLSWf I 

P0 66A 

0 151 


SQN 

ADJ0F3- * -1 

P056B 

81 42 


EOR- 

M80Q 0 , 1 

P066C 

E 1 89 

ADJ0F3 

LDQ- 

QHOLD, I 

P06 6D 

0834 


A AQ 

A 

PO 66E 

11 51 

A0J0F2 

JMP- 

ADJXIT, I 


SAVE THE PROGRAM RELOCATION ADDRESS 

SAVE THE PROGRAM EASE 

EXIT IF NO RELOCATION IS NECESSARY 

TEST WHETHER TO USE 15 OR 16 BIT ARITHMETIC 

15 BIT ARITHMETIC 

16 BIT ARITHMETIC 

SKIP IF RELOCATION FACTOR IS LESS THAN $7FFF 
ERROR 9 IF RELOCATION FACTOR IS 
GREATER THAN 37FFF. 

TEST FOR FORTRAN GENERATED BACKWARD RELOCATIO 


SET THE UPPER BIT FOR 
PICKUP PROGRAM BASE 
ADD RELOCATION FACTOR 
RETURN TO CALLER WITH RESULT 


IN A-REGISTER 


01802077 
01802078 
01802079 
01802080 
01802081 
01802082 
01802383 
01802084 
0180 2 08 5 
NO 180 208 6 
018Q2G87 
01892088 
01802089 
01802090 
01802091 


o 


f 


ILOAD 


PAGE 63 


DATE: 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 


213 5 

P066F 

C 1 56 

ADJOF4 

LDA- 

213 6 

P 0 67 0 

0101 


SA7_ 

2137 

P0671 

0 8 52 


TCQ 

213 8 

PQ 672 

Cl 88 

ADJ0F5 

LOA- 

2139 

P0 673 

A 141 


AND- 

2140 

P0674 

0 163 


SQP 

2141 

PQ 675 

0 852 


TCQ 

2142 

P 0 676 

8142 


A.QD~ 

2143 

P0 677 

0 864 


TCA 

2144 

P0678 

0 8 34 

ADJ0F6 

A AO 

214 5 

PQ679 

0 8 42 


CL R 

214 6 

P 067 A 

0FF1 


:LLS 

2147 

P067B 

QFCF 


ALS 

2148 

P067C 

0 834 


AAQ 

211*9 

P067D 

El 89 


LDQ- 

2150 

P0 67E 

0161 


SQP 

2151 

P067F 

0 8 64 


TCA 

2152 

P 0 680 

Ai 41 

AD J0F7 

AND- 

2153 

P0681 

0FC1 


ALS 

2154 

P 0 682 

El 38 


LDQ- 

2155 

P0683 

0FA1 


QLS 

2156 

P0 684 

0 F 61 


LRS 

2157 
215 8 

P0685 

11 51 


JMP- 

END 


NGRLS W, I 

ADJ0F5-'*-l 

Q 

A HOLD » I 
M7FFF » I 
AD J0F6- *-l 
Q 

M 8 0 0 0 , I 
A 
A 
Q 

1 

15 

A 

QHOLO * I 

ADJ0F7-*-i 

A 

M7FFF,I 

1 

AHOLD , I 
1 
1 

ADJXIT, I 
ILOAD 


PGM= 0686 ( 16705 


COM = OGQO ( 


0? 


IS 15 BIT NEGATIVE RELOCATION SPECIFIED 
NO 

YES, COMPLEMENT BASE ADDRESS 
PICKUP RELOCATION ADDRESS 
STRIP OFF SIGN 31 T 
SKIP IF POSITIVE RELOCATION 
NEGATIVE RELOCATION COMPLEMENT BASE 
ADD MINUS SIGN TO RELOCATION FACTOR 
COMPLEMENT RELOCATION FACTOR 
ADD BASE AND RELOCATION 


ADD END AROUND CARRY IF ANY 

SKI* 1 IF POSITIVE RELOCATION 

COMPLEMENT RESULT IF NEGATIVE RELOCATION 

CLEAR UPPER BIT FROM RESULT 


MAKE SIGN OF RESULT SAME SIGN AS RELOCATION 
EXIT TO CALLER 


DAT 


00 0 0 l 


03 


0 1 80 2 0 93 
01802094 
O 18 0 E 09 5 
018Q2Q96 
01802097 
01802098 
01802 Q99 
01802100 
018021Q1 
01302102 
01802103 
01802104 
0180210 5 
01802106 
01802107 
01802108 
0 180 2 10 9 
01802110 
01802111 
01802112 
01802113 
01802114 
0 18 0 2 11 5 
01602116 


O 

O 

O 


O 

O 

o 


ILOAD 


PAGE 64 


DATE 


08/19/99 


o 


o 


o 


o 


EQUIVALENCES 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DEF .LINE 

NAME 

VALUE 

0 GOO 

I 

00FF 

0 0 53 

ZERO 

0 022 

0 05 4 

PGFNUM 

0 0 D 1 

00 55 

REFER 

000 2 

0 0 57 

MODIFY 

00 0 3 

0 060 

NUMSEC 

0001 

0 063 

COMBAS 

0 0 0 1 

0 0 64 

DATBAS 

00 0 2 

0065 

PR DBAS 

00 03 

0 0 6 6 

GGMLIM 

0 0 0 4 

0067 

DATLIM 

00 0 5 

0068 

CSQLIM 

000 6 

0 069 

EXTCTR 

00 07 

0070 

ENDSW 

0 0 0 8 

0 071 

ABRLSW 

0 0 0 9 

0 072 

BGRLSW 

00 09 

0 07 4 

INP KRQ 

00 0 A 

0 075 

INPREL 

00 0 B 

0 077 

CSONUM 

0 o o c 

00 79 

ENTPN'T 

0G0D 

0 081 

LINK 

00 0E 

0 083 

INPCTR 

GOOF 

0 087 

NOTLNK 

0010 

G 0 8 8 

END IMP 

0011 

3090 

BLANKS 

00 12 

0 091 

SYMSTR 

0013 

0 094 

SC A NSW 

0016 

0 100 

BAS E 

0017 

0101 

W ROC NT 

0018 

0 10 6 

C0UNT1 

0019 

0 108 

BZSSW 

00 1 A 

0111 

C0UNT2 

8 0 1 R 

0112 

BLKCMT 

00 IB 

0 115 

SW6 

oeic 

0 118 

AS AV 

00 1 D 

0119 

OS A V 

0 0 IE 

0 121 

xfrnah 

0020 


REFERENCED AT LINE NUMBER 


f 0002559 

0968, 

1523, 

1 547 , 

1963, 

(0000341 

0 816 , 

0 98 6, 

1043, 

1421 

( 0 000015 

1789, 

1821, 

1826, 

1868, 

( 0000025 

1803, 

1 308, 

1810, 

1830 , 

<0000035 

1883, 

1949, 

2000 , 

2082 

( 0000015 

2 0 53 




(0000015 

0341, 

0345, 

0 361, 

0385, 

I 0000025 

0395, 

0399, 

0 446, 

0478, 

< 0000035 

0272, 

0278, 

0 445 , 

0 458, 

I 0 0 Q 00 45 

0 3 44, 

0 359 



<0000055 

0398 , 

0 453, 

0 628 


<0030065 

0364, 

Q 45 9, 

0499, 

0 626, 

I 0000075 

0960, 

101 4, 

1237, 

1274, 

<0000085 

0 671 , 

0 70 7 , 

0733 


(000009) 

0987 , 

106 6 



<0000095 

0 594, 

0761, 

2128 


<0000105 

0 646, 

0 754, 

0784, 

0791, 

(000011) 

0 600, 

G 636 , 

0 649, 

0 74b, 

(000012) 





( 0 00 0135 

0 8 81, 

0 898, 

0934, 

09-39, 

( 0000145 

10 01, 

1021 , 

1028, 

10 52, 

< 000015) 

0 655, 

0 660, 

0 664 , 

-0 669, 


D 9 7 0 , 

0 971, 

0985, 

0 999, 

(0000165 

0923, 

0 947, 

0 997, 

132 0 

( 0000175 





< 0000185 

0 418, 

0 53 5, 

0 906, 

1473 

(000019) 

0969, 

110 5, 

110 7, 

1109, 

(0000225 

1111, 

1477, 

1 47 8, 

1487, 

<0000235 





( 00 00245 

0 593, 

0 72 3 , 

0752, 

0765, 

<0000255 

0591, 

0 719, 

0722, 

0 751, 

<00-00265 

0 584, 

0589, 

0 632 , 

0762 

(0000275 

1 526, 

1 550, 

1627, 

1644 

{ 0000275 

0702, 

0 70 4, 

0767 


(0000285 

0 6 02 , 

0666, 

0698, 

0 830, 

(0000295 

0 631, 

0 654, 

0687 


( 0 0 Q 0 3 0 5 

0 347 




<0000325 

0 909, 

0 911, 

0 913, 

0 930 


2041, 

2063, 

2089 




1956, 
18 74, 

2 00 4, 
1880 , 

2084 

1998 




0503, 
0645, 
0 497, 

0 622, 
0 79 0 
0 546, 

0 643 
0 554, 

0 640, 

0788, 

0847, 

0670 , 
1277, 

0701, 

1342 

0 848, 

0916 



10 5 6, 
078 1, 

1072, 

0806 

1084 




0993, 
1076, 
0 688, 
1003, 

1065, 

1078, 

0692, 

1209, 

1291 
10 8 2, 
0 696, 
1306, 

108 8 
0700, 
1 33 1 , 

0 785, 
1332, 

0793, 

1339, 

1 474, 
1489, 

1475, 

149'8, 

1476, 

1507, 

1546 

1540, 

1552, 

1567, 

1648, 

1493, 

1649 
1 52 2 , 

1529, 

1530, 

1544, 

1556, 

0935, 

0994, 

1182, 

120 3, 

1203, 

1217, 


068 0, 0917 

0814, 08 25, 0853, 0868, 0872, 0931 
1341, 1396, 1420 

1599 

1557 

1220, 1240 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 
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DATES 08/19/99 


o 


o 



0 122 

NAME 

0023 

10000355 







0123 

SCHXIT 

00 27 

(0000393 

1170 , 

1183 




o 

0124 

TABSCH 

0028 

( 0000403 

0829, 

0932, 

0992 



0126 

CENTAO 

0 0 2 B 

(0 000433 

1144, 

1157, 

1162, 

1171, 

1173 


0128 

MAX ENT 

002 C 

(0000443 

1141, 

114 5, 

1261 , 

1267, 

1270 


0129 

TEMP 

0 Q2D 

(0000455 

12 01, 

1218, 

1219 



o 

0 130 

TEMPI 

0 02E 

10000463 

1146, 

1159, 

1164, 

1174 


0 131 

WMXSEC 

00 2 F 

(0000473 

1278 






0 132 

NOTRAN 

0030 

( 00 0 0483 







0133 

NO JUMP 

0031 

1 0 G0049) 

0 925 , 

0929 




o 

0135 

FLG'LGN 

0032 

(0000503 

1853, 

2099 




0136 

BINASC 

0033 

10000513 

0411, 

0 413, 

1113, 

1115, 

1381 


0137 

PR3XIT 

0 03 5 

(0000533 

1362 






0 138 

PR I NT 3 

0036 

(0000543 

0 436, 

0 83 4 , 

0890, 

1062 


o 

0139 

INPXC0 

0039 

<0000571 

0259, 

0 294, 

0592 



0 140 

INPXC1 

0 03A 

1 0000583 







0141 

PRI NT2 

0 03B 

( 0000593 

0241, 

0264, 

0 293, 

0 524, 

0678 


0142 

INPXCC 

GO 3 H 

10000623 

0 824, 

0852 




o 

0143 

NXTINP 

003F 

1 0Q00633 

0519, 

0673, 

0709, 

0 876, 

0 91 3 

0 144 

M7FFF 

0041 

(0000653 

0 651, 

0 883, 

1 D 2 7 , 

1031, 

1087 


0145 

M 8 0 0 0 

0042 

(0000663 

1006, 

1073, 

2130, 

2142 



01^6 

MFFFF 

0043 

( 0000673 

1024, 

1059 




o 

0 147 

MFFQ0 

0044 

( 00006 83 

1370 





0148 

M0 OFF 

0045 

10000693 







0149 

ASKII 

0046 

10000703 







0 150 

NEGSW 

0047 

( 0 000713 

1471, 

1502, 

1511, 

1 581, 

1586 

o 

0151 

SDNTRM 

■0048 

(0000723 

1479, 

1 482, 

1589, 

1594, 

1610 

0152 

SGNINP 

0049 

(0000733 

1 472, 

1491, 

1538, 

1569, 

157 4 


0154 

SCNXIT 

004A 

10 DO 07 43 

1 500, 

1509, 

1520, 

1532, 

1535 


Q 1 5 5 

SCAN 

00 48 

( 0000751 






o 

0156 

CSNAME 

0G4E 

( 0000783 

0269, 

0 441, 

0500 , 

0 543, 

1148 

0157 

XC S NAM 

0 0 4 F 

(0000793 







0158 

INMED 

0050 

10000803 







0161 

AOJXIT 

0051 

(0000813 

2133, 

2157 




o 

C 162 

AD JOVF 

0052 

< 0 0 0 Q 8 2 3 

0 6 4 7, 

0792 




0163 

EXTPCH 

00 5 5 

(0000853 

1234, 

1 250 





0 164 

NGRLSW 

0056 

1 0000863 

0741, 

213 5 





016 6 

APIT15 

0057 

( 0000873 

0737, 

1057, 

1068 , 

1 085, 

2122 

o 

016 8 

PRESET 

0058 

1000088? 

1205 





0 170 

CMVXIT 

0059 

10000893 

1 454 






0171 

CONVRT 

0G5A 

(0000903 

0 410 , 

1112, 

1379 




0172 

PR4XIT 

0 0 5D 

( 0 00093? 

1388 





o 

0173 

PR I NT 4 

00 5 E 

( 0 G 00945 

0 5 55 





0174 

PR5XIT 

0061 

10000973 

1 431 






G 17 5 

PR I MI 5 

0062 

10000983 

0 8 32 , 

0891 





0176 

AIN PUT 

0065 

(0001013 

0 233, 

1153 




o 

0177 

IK IX IT 

0067 

10001033 

1051, 

1 064 




0 17 8 

LINK1 

006 8 

C 0 0010 43 

10 02 






0179 

ENTPGS 

0 0 6B 

(0001073 

1140, 

1143 





Q 180 

TOP 

0 0 6 C 

(0001003 

0 460 , 

0 506, 

0630 



o 

0181 

PGEWRT 

006D 

( 0 001093 

1954 





0 182 

LGEPGE 

0 0 6 E 

(000110) 

1892, 

1896, 

2006 




0 183 

IGNORE 

0G6F 

( 0 001113 







o 


o 


o 

o 

o 


1383, 

1444, 

1446, 

1447, 

1450 , 

145 2, 

1453 



o 

0 681, 

0774, 

0 813, 

0938, 

1266, 

1283, 

1983, 

1989, 

2127 

o 

1206, 

1211, 

1402, 

1422, 

1 765 , 

1984, 

2012, 

2056, 

2139, 2152 

o 










o 

1 615, 
1577, 
1587 

1624, 

1580, 

1631 , 
1585 

1657, 

1660 





o 

1 73 4, 

1823, 

1979 







o 


o 

o 

o 

o 

o 

o 


o 


o 

a 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE:: 08/19/99 


0 185 

LNKSTR 

0070 

1000112'} 

1036 

0 18 6 

LNKC-TR 

0071 

10 00 113) 

0 809, 

0 187 

LNK END 

0072 

(000114) 

3 810 

0188 

ENTST0 

0073 

(000115) 

1161 

0189 

ENTST1 

007 4 

( 000116) 

1156 

0 19 G 

A DDR 

0075 

(000117) 

1772, 

G 191 

EXTSTR 

0076 

(000118* 

0 957 , 

0 192 

CORADR 

0077 

f 000119) 

1775 , 

0 193 

PRODAT 

0078 

(000120) 


0 194 

PROCOM 

00 79 

(000121) 

1743 , 

0195 

PAGE 

00 7 A 

(000122) 

0197 

CSQCTR 

007B 

(0 00123) 

0376, 

0199 

cextad 

007C 

(000124) 

1236, 

0 2D 1 

EXTADR 

007C 

(000124) 

0958 , 

0 202 

TIN EXT 

007D 

10 00125) 


0 203 

MAXEXT 

007 E 

(000126) 

1976, 

G 204 

ENTSEC 

QG7F 

(000127) 

0 205 

CSQSEG 

0080 

(0 00128) 

1985 

0 2D 6 

MAXPGE 

0081 

(000129) 

0 20 7 

NOPAGE 

0032 

I 000130) 

1 770, 

0 208 

PARBAS 

0083 

(000131) 

0941 

0 209 

PARLIM 

0 0 84 

(000132) 

0 624 

0 210 

STRSEC 

0085 

( Q 0 0 133) 


0 211 

MSDWCT 

00 86 

( 0 D 0 134) 


0 212 

XFRADR 

0087 

(0 00135) 

1207 , 

0 213 

A HO ID 

0088 

(0 0 013 6) 

0 214 

0 HOLD 

0089 

1 000137) 

1630, 

0 215 

SECTOR 

008 A 

(000138) 

1163 

0 216 

EC REP 

00 8 B 

f 000139) 

0 217 

ECREP1 

0 0 8 C 

(000140) 

1158 

0 213 

EXTSWT 

0G8D 

ID DO 141) 

0 827, 

0 219 

SAVEA 

30 8E 

(0 00142) 

0 736, 

0 220 

JUMP 

008F 

( D00143) 

0 967 , 

Q 221 

TEMPI 

0090 

(000144) 

0 222 

FLGBSE 

0091 

(000145) 

1 779, 

G 223 

PROGCT 

00 92 

(000146) 

0 494, 

0224 

OMTAB 

0 0 93 

(G 00147) 


0 225 

MONTAB 

0 09 4 

(0 00148) 


0 22 6 

FLGRS1 

0095 

(000149) 

0265, 
3 530 , 

0 22 7 

INPUT 

0096 

(000150) 


207' 


0885 


0576, 0978, 0981 


0 531 * 


0535,’ 0537,’ 0 533? G539? 0540? 0 541? 0542? 0840 ? 0843? 0905, 0908, 0910 , 0912, 1369 


( } 

k -.* 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


S Y M B 0 


DEF .LINE 

ODD 6 
D 0 D 7 
0 D G 8 
0 0 09 
0010 
0011 
0 024 
0 025 
0 0 26 
0 027 
0 028 
0 029 
0 070 
0 031 
0 032 
0033 
0 034 
0 0 35 
0 0 36 
0 037 
0 0 38 
0 039 
0 040 
0 0 41 
0 0 ^2 
0 043 
0 044 
0 045 
0 04 6 
0048 
0 0 49 
0 050 
0050 
0 0 51 
0 051 
0 240 
0 243 
0246 
0252 
0 256 
025 7 
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DATE: 08/19/99 


o 


L S 


o 


NAME 

ADDRESS 

REFERENCED AT 

S I G NC K 

0139 

0006, 

0 348 , 

ILOAD 

00 0 1 

DO 07, 

0298, 

WRT OUT 

063 F 

0 0 08 , 

2101 

LENSDT 

0000 

0 0 09, 

0 283, 

QISKWR 

0558 

0010, 

0 661, 

FNDSEC 

062 E 

0 011, 

1957, 

PRNT3 

0418 

0 024 


PRNT4 

0437 

0 025 


PRNT5 

045 E 

0 026 


AD J0V1 

0660 

0 027 


CNVERT 

047C 

0 028 


LINKil 

0 2C1 

0 029 


ENTSTR 

03 A 5 

0030 , 

D 836, 

FLGADR 

0 504 

0031, 

0 0 47, 

I SCAN 

0491 

0032 


SCHTBL 

0348 

0033 


RWFLAG 

05C8 

0034, 

1724, 

PGEFLG 

0509 

0035, 

1730, 

S A 

0 5 C A 

0036, 

1725, 

SO 

05CB 

0 0 37, 

1 70 9, 

VALUE 

05’GC 

0 0 3 8, 

1719, 

WORD 

0 5DD 

0039, 

1 745, 

PAGENO 

05CE 

0 0 40, 

1752, 

PAR ST R 

0138 

0041, 

0 548 , 

LSTPGE 

05 OF 

0 0 42, 

1 754, 

M IN REF 

05 DO 

0 0 43, 

1766, 

H A X REF 

0 50 1 

0 0 44, 

1805, 

MIN BAS 

0502 

0045, 

1 776 , 

AOPAGE 

0 50 3 

0 0 46, 

1?87, 

MINFLG 

0505 

0 0 48, 

1 782 , 

NXTBLK 

0015 

0 0 49 


OATBSO 

00C7 

0 0 50, 

0449 

DAT'LMO 

0 0 C 8 

0 0 50 , 

0 455 

DATBS1 

DOCS 

0 0 51 , 

0 451 

DATLMi 

00CA 

0 0 51, 

0 45 7 

IL0AD1 

000 9 

0 233 


TYPELD 

oooc 

6 237, 

0 23 9 

LASTFC 

0 012 

0 237 


LOADER 

0012 

0 2 43 


SW1 

0018 

0 252, 

0253 , 

NX? BIN 

001 A 

0255 , 

0 262, 


LINE NUMBER 



0 365, 

0 401, 

0 46 5 , 

0507, 0577, 0656, 0689 

0 948, 

1322, 

134 4 


1327 
0 693, 

0943, 

1010 , 

1079, 1294, 1 300, 1310 

2038, 

2065, 

2085 


1272 

1757, 

1 785, 

1863, 

1947, 1993 

1881 

1746 

1737, 

1 73 9 , 

174 0 


1714, 

1900 



1 885 
1886, 

18 98 


2037 

1791, 

1738 

1969, 

2003-, 


1 869, 

1889 



1 811, 

1031 



1809, 

1994, 

20 01 

2080, 2096 

1836, 

2043, 

2064, 

1835, 

1851, 

1859, 

1887, 1899 

1833, 

1946, 

2 0 81 , 

2098 

0255, 

0284, 

0 2 85, 

0316, 0317, 0330, 0331 

0839, 

1368 




1715 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


/ 
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DAT El 

08/ 19/99 

O 

o 

0263 

LOAD 12 

0021 

0261 







0 265 

SW1 A 

0023 

0252, 

0 330, 

0 849 




o 

0283 

EYNP 

0037 

0 281 


0275 



O 

0 2 84 

L0AD13 

00 38 

0271, 

0273, 




0287 

1 0 A 01 4 

0 03 C 

0 26 8 


0329 





0292 

LOAP15 

0042 

0 3 06, 

0323, 



O 

o 

0294 

L 0 A 01 6 

0044 

0291 





0300 

SW1R 

0048 

0284 






0 306 

L 0 A 017 

004E 

0304 







0307 

L 0 A D1 8 

004F 

0 305 






o 

0313 

L0AD19 

0055 

0312 





O 

0 316 

SW1PJ1 

0058 

0310 






0318 

swig 

00 5E 

0316 







0324 

LOAD20 

006 4 

0322 





o 

o 

032 7 

L0AD21 

0068 

0325 





0 33 0 

LOAD22 

0 06 B 

0 328 






0336 

NAMPRO 

0070 

0 285 







0 339 

NAMP1 

00 73 

0337 





o 

r\ 

0 341 

NAMP2 

0075 

0339 






0344 

N A M P3 

0078 

0 3 42 






0352 

FUDGE 

008 0 

0350 







0355 

FUOGEl 

008 3 

0353 





o 

o 

0359 

NA HP4 

00 8 4 

0 343 





0 370 

NAMP6 

0 0 8 F 

0366, 

0368 






0375 

NAMP6A 

0 09 4 

0 370 , 

0 373 

0 3 83 





0 381 

C SO 1ST 

009C 

0 380 , 

0 382, 



o 

o 

0 390 

NAMP7 

00 A3 

0338, 

0351 , 

0355 



0 393 

NAMP8 

O 0 A 6 

0391 






0395 

NAHP11 

0 0 A 8 

0393 







0 398 

NAHP12 

00 A B 

0 396 





o 

o 

C 40 4 

INTRHD 

0DB2 

0 402 





0 h0 7 

FUDGE2 

00 B 5 

0405 


0 479 




0 408 

PR N TIT 

0086 

0 3 8 6, 

0 422, 





0 923 

SVQ 

00 C 6 

0 409, 

0 415 





o 

0 432 

COMFRR 

0 0CB 

0 3 40, 

0354 




o 

0 433 

OA TERR 

Q0CB 

0 394 






0434 

NAMP1 4 

0 OCB 

0 4 06, 

0 444 






0 441 

NAM PI 3 

OOCF 

0 397 






o 

0 445 

NOTWMP 

00 03 

0 4 43 





■ o 

0 451 

DAT Bi 

0 OD 9 

0448 






0 452 

SETLIM 

00 0 A 

0450 







0457 

OATL1 

GOOF 

0 454 






o 

0 458 

SET BAS 

OOEQ 

0 456 

0 468 




o 

0 470 

PRT OUT 

0 0E8 

0 466, 

0476 




0474 

D SO 1ST 

OOEE 

0473, 

0475, 





0 481 

NAM PI 5 

GQF7 





0419, 0420, 0421, 0 472, 0476 


o 

0 486 

SUFFER 

00 FB 

0 379 , 

0 3 83, 

0 41 2 , 

0 414, 

o 

0 489 

TMPARG 

0 OF E 

0470, 

0 48 0 


0437, 

0 48 4 


0 493 

NAMP9 

OOFF 

0 392, 

0 403, 

0407, 



Q 494 

NAMP17 

0100 

0 495 






o 

0 497 

NAMP18 

010 3 

0 50 4 




o 

0 506 

N A H ? 2 0 

010C 

0502, 





0 507 

NAMP21 

010D 

0 50 5 







o 


o 


o 


G 
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DATE* 08/19/99 


D 

0 512 

NAMP22 

0112 

0 508 , 

0510 


P~"\l 

LJ 


Q 5 1 8 

NAMP19 

011 5 

0 496 




O 

0 523 

COROVF 

0117 

0369, 

0374, 

0469, 0511 

o 

0528 

PRNNAM 

0119 

0434, 

0 51 8, 

0556 


Q 530 

PRNM1 

Oil B 

0 534 





0535 

PRNNM2 

0120 

0532 




O : 

0 552 

NAMP26 

013 2 

0 547, 

0 550 


o 

0 554 

NAMP24 

0135 

0545, 

0 551 



0 555 

NAMP25 

013 6 

0 553 





0569 

A UPPER 

o 13 n 

0 5 66 




O 

0 573 

BTHSAH 

0141 

0 567 , 

0569 


C) 

0576 

QBIGER 

0144 

0 56 8 




0577 

ABIGER 

0145 

0 572, 

0575 




0 583 

BZSPRO 

0146 

0 314 




Q 

0 588 

RBDPRO 

0 1 4 A 

0313 



o 

0 591 

RBT3Z1 

014C 

0586 




0 595 

BZSPR1 

0150 

0 710 





0 605 

RBEZ? 

0 1 5 E 

0603 




o 

06G9 

RBBZ-4 

016-4 

0 605 



o 

0611 

RBBZ5 

016 8 

Q 608 




0 613 

RBBZ3 

01 6 C 

0 604 





0620 

SW2A 

017 0 

0595 




o 

0 625 

sw 

0175 

0 623 



o 

0 626 

SW2X 

0176 

0621 




0628 

SW2B 

0178 

0 6 09 





0630 

SW 2 C 

017 A 

06 06 




o 

0631 

RB8Z6 

0 17 B 

0625, 

0 627, 

0629 

o 

0 632 

RBBZ7 

017C 

0 674 




0 63 5 

RBBZ'8 

0 17F 

0 633 





0646 

RBBZ9 

0 1 8 A 

0 638, 

0 641, 

0644 


o 

0 654 

R8BZ10 

0192 

0 650 , 

0652 


o 

0659 

RBBZ11 

019 7 

0657 




G 66 0 

RBBZ12 

0198 

0658 





0 662 

CSQ 

0190 

0 6 48 




o 

0671 

RBBZ13 

0 1 A3 

0 667 



o 

0674 

RBBZ14 

01 A 6 

0672 




0677 

SW3A 

01A 7 

0 597, 

0 683 




0 680 

SW3B 

01A9 

0610 




o 

0 683 

S W3C 

01 A B 

0 607 



o 

0687 

BZSPR2 

0 1 A C 

0 634, 

0 706 



0 692 

BZSJ20 

0 1 B 1 

0 690 





07 02 

BZS J21 

o i b n 

0699 




o 

0707 

BZSPR3 

01C1 

0 705 



o 

0710 

BZSP2 

0 1C 4 

0708 




071 8 

N XT WRD 

QIC 6 

0599, 

0 63 5, 

0764, 0768 



0727 

Nxwm 

01CF 

0720 




Oi 

0741 

NXWP2 

01DD 

D 73 8, 

0 73 9 


o 


0 758 

N X H D 3 

01EA 

0755 




0761 

NXWD4 

0 IE E 

0757, 

0 759 




0762 

NXWD5 

Q1EF 





o 

0 765 

NXWD6 

0 1F2 

0763 



o 

0769 

REL WRD 

0 IF 7 

0726, 

0 72 8, 

0730 


0773 

NEGERR 

01F8 

0740 




o 







o 

o 







p 




o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE3 

08/19/99 

0780 

ADJUST 

0 1 F A 

0613, 

0786, 

0794 



0 784 

AD Ji 

01 F E 

0 782 





0787 

AD J2 

0 20 1 

0783 





0791 

ADJ7 

0205 

0789 





0 796 

SW2 

0 20 9 

0 595, 

0596, 

0 60 6, 

0609, 

0 611, 0 614 

0799 

SW3 

0 2 D B 

0597, 

0598, 

0607, 

0610, 

0612, 0659, 0691 

0805 

ST'RLNK 

02 D D 

0653 , 

0818 




0810 

STLNK1 

0212 

0 808 





0 314 

SO 

0217 

0 811 





0818 

SB 

02 1 B 






0 B24 

ENT PRO 

Q21C 

0315 





0 828 

ENTPR1 

0 22 0 

0837 





0836 

ENTPR3 

0229 

0 831 





0 839 

SEGMNT 

022C 

0835, 

0851 




0 847 

NAMFX 

0236 

0 842 





0850 

FRYAGN 

023 A 

0 846 





0 852 

EXT PRO 

023D 

0 326 





0 856 

FXTPR1 

0241 

0 858 





0 *67 

NXTNAM 

0245 

0823, 

0856, 

0899 



08 77 

N X N AM 1 

024F 

0 875 





0889 

NOTEXT 

0259 

0886 





0 894 

AES ADR 

025E 

0878 





0898 

RELADR 

025F 

0884, 

0888, 

0892 



0905 

XFRPRO 

0261 

0 332 





0916 

XFR1 

026A 

0907 





0922 

LNKFNT 

0 26 0 

0 244 





0 928 

LNKEN0 

0273 

0926 





0939 

LNKFN2 

027F 

0 936 





0944 

L NKEN3 

0285 

0940 





0946 

LNKEN1 

0287 

0927 





0956 

PATCH 

02 8 A 

0 924, 

0964, 

1017 



0 966 

PATCH1 

0290 

0 963, 

1016 




0971 

PATCH2 

0295 

0984 





0985 

PATCH3 

0 2A 1 

0 9 83 





0992 

PATCH4 

0 2 A 7 

0990 





0 999 

PATCH6 

0 2 A E 

0995 





1011 

PATCH? 

02B A 

1007 





1013 

PATCH5 

02BC 

0 991 , 

0 998 




1017 

PATCH3 

02C0 

1015 





1030 

L I M K1 A 

02C A 

1025 





1 031 

LINK2 

02CB 

1089 





1037 

LNA 

0 2CF 

10 49 





1051 

LN3 

02D 7 

1042 





10 52 

LINKA 

0 2D8 

1029, 

1032, 

1045 



1065 

LI NB 

D2E5 

1058 , 

1060 




1071 

LK1 J12 

02EB 

1069 





1076 

LK1 Jll 

0 2F0 

10 67 





1077 

LK1 J10 

0 2F1 

1070, 

107 5 




10 80 

yALINK 

02F5 

1077 





1088 

L I N K3 

02FD 

1086 





1091 

INKSAy 

0 2 F F 

1022, 

1044, 

1083 



1092 

BADFXT 

0300 

10 63, 

1120 




10 9 4 

BDEXT1 

0 30 2 

1118 






o 



o 




I LOAD 
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DATES 

08/19/99 


o 

1097 

BDALF1 

0323 

1106 





o 


1098 

BDALF2 

0324 

1108 






o 

1099 

BDALF3 

0325 

1110 





o 

1101 

8DALF4 

0333 

1114 






1102 

BDALF5 

0334 

1116 

1117, 






1104 

BDEXT2 

033 6 

1 0 93, 

1118 




o 

1148 

SCHTB1 

0 35 0 

1142 





o 

1153 

SGHTB2 

0355 

1151 






1156 

SCHTB3 

0358 

11 54 







1161 

SCHTB4 

035D 

1150 



1179 



o 

1168 

TBSCHO 

0363 

1147* 

1 16 0, 

1165, 


o 

1169 

TBSCH1 

0364 

1180 






1 180 

TSOK1 

036F 

1178 







1181 

TSEXIiT 

0370 

1152, 

1155, 

1166 




o 

1200 

SEARCH 

0 373 

1169, 

1215, 

1216, 

1224, 

124 3 

■ o 

1204 

TBSCH2 

0377 

1222 






1217 

TSSCH3 

03 83 

1214 







1 223 

TBSCH4 

033 9 

1221 






o 

122 6 

GET 

038 B 

120 4, 

1223, 

1229, 

12 49 


o 

1232 

EXTSCH 

0390 

1241, 

1251 





1236 

TBSCH7 

039 4 

1247 







1242 

TBSCH5 

03 9 A 

1233 






o 

12 48 

T3SCH6 

03 A 0 

1244 




1309, 1313 

o 

o 

1252 

STRAOR 

03A4 

1268, 

1275, 

1293, 

1298, 


1267 

ENT ST 

03AC 

1264 







12 73 

EXSTOR 

03B2 

0 857, 

1 281 





o 

1282 

E X S TR 1 

038B 

1279 





o 

1284 

STORIT 

03 BE 

1271 , 

1280 , 

1-30 3 




1 295 

VALUX 

03C A 

1292 







1305 

ESTORE 

03 0 3 

1286, 

1288, 

1290, 

1314 



o 

1 311 

E VALUE 

0 3 DA 

1308 





; ° 

1320 

PRNEXT 

03DE 

0245 






1323 

PEXT1 

0 3'E 2 

1321, 

1328 






1 32 6 

PEXT2 

D 4 0 0 

t 32 3, 

1327, 

1328 




o 

1 332 

PFXT3 

0 40 8 

1345 





o 

1339 

PEXT4 

0 410 

1337 






1 345 

PEXT5 

0417 

13 43 







13 53 

COM SGE 

041 e 







o 

1356 

PR3 Ji 

0 42 4 

1 352 , 

1359, 

1378, 

1 380 


o 

1364 

STOP 

0 42 B 

1 3 64 






1368 

STOP1 

0 42 0 

1374 







1375 

ST0P2 

0 43 5 

1373 






o 

1 392 

PRINT6 

0443 

1333 , 

i <,12 




o 

1394 

8UF6 

D 44 5 

1 403 






1 395 

PR6 

0449 

1393 , 

1409 






13 99 

PR6A 

044D 

1397, 

140 8 





o 

1409 

PR6B 

0459 

1407 


1427 



o 

1 418 

BUF5 

0 46 A 

1423, 

1425, 




1419 

PR 5 J1 

D46E 

1416, 

1428 






1457 

CVT 

0489 

1442, 

1445, 

1448, 

1451, 

1 464 


o 

1 463 

CVT1 

Q48F 

1461 

1512 




■ o 

1 481 

SC A Ml 

049C 

1 503, 





1 <*83 

SCAN2 

049 F 

1480 







O o 


o 

*w 


n 
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o 


( i 
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L/ 

i48 6 

SCAN3 

04 A 2 

1484 


1495 

PLUS 

04A e 

1485 

o 

1 501 
1504 

SCAN5 

MINUS 

Q4B1 

Q4D4 

1 499 
1 496 


1510 

SCAN6 

0 48 A 

1508 


1 51 4 

ALFNUM 

0 4BD 

1505 

o 

1517 

SCAN? 

Q4CG 

1515 

1 520 

SCANS 

0 4C3 

1 518 


1521 

ALFTRM 

0 4C4 

1 519 


1527 

SCAN9 

G4C A 

1536 

O ; 

1 533 

SCAN10 

04D0 

1531 

1 536 

SC A Nil 

Q4D3 

1534 


1 537 

NUMTRM 

G4D4 

1516 


15 44 

SCAN12 

04DB 

1 542 

o 

1 545 

SCAN4 

0 4DC 

1494 

1 551 

SCAN13 

04E2 

1579 


1560 

SCAN14 

04£8 

1553, 


1 564 

SCAN25 

04EE 

i 561 

O 

1571 

BIN VAL 

D4F5 

1565, 

1577 

NUMSFR 

OhFB 

1 572 


1580 

SGN 1ST 

04FD 

1 559, 


1587 

SC A Ml 5 

050 4 

1 582 

O 

1588 

NUMBER 

0505 

1 514, 

1594 

NUMXIT 

05 0 B 

1 608 


1596 

NOTNUM 

0 5 0 D 

1 591, 


1598 

HEXTST 

0 5 0 F 

1 593 

o - 

1602 

SCAN16 

0513 

1 600 

1605 

SCAN17 

0516 

16 03 


1608 

SCAN13 

0519 

1606 


1609 

LETTER 

05 1 A 

1517, 

o • 

1617 

SCAN19 

0522 

1614 

1619 

NOTALF 

0524 

1612, 


1 621 

ALFTST 

0 52 6 

1 618 


1 624 

SCAN20 

0529 

162? 

o - 

1 626 

STRCHR 

D52B 

1527, 

1634 

SCAN21 

0 533 

1 632 


1638 

SCAN22 

0537 

1636 


1 647 

CHPU 

0 53 F 

1 481, 

O ; 

1 656 

CHPU1 

0548 

1 6 54 

1659 

GET BIN 

054B 

1 537, 


1 667 

GTBIN1 

0553 

1 665 


1703 

DISKED 

055-4 

9 973 , 

O 

1 724 

DISKRW 

0561 

1711 

1740 

NOMP 

057 G 

1733 , 


1 745 

0 B 

0 57 4 

17 42 


1 765 

NOTSMF 

0 57C 

17 56 

O : 

178 5 

FIND 

0585 

1855 

1303 

REFR 

0 5 8 B 

1793 


1810 

FB 

0590 

1807 


1821 

FG 

0594 

1 813 

o ; 

1830 

FC1 

059 E 

1822, 

1 8 42 

FD 

0 5 A3 

1816, 


18 51 

FF 

05A7 

1845 

O 





O 






1558 
1575 
1 562 

1560, 1595, 1597 
1601, 1604, 1607 

1533, 1616, 1620, 1625 
1623 

1554, 1646 

1528, 1555, 1658 
1564, 1667 

1054, 1227, 1334, 1400, 1716, 1720 , 1727, 1732, 
173 6 


1825, 1828 
1829 


□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

1901 

o 

o 

o 

o 

o 


I 


o 


DATES 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 
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1859 

FOUND 

0 5 A B 

2 0 49 



1368 

FOUNDA 

0 5 A D 

1795 



1 874 

F0UND1 

0 5 A F 

1760 



1880 

FOUNDS 

0535 

18 78 



1898 

FG 

05C4 

1882 



1900 

FH 

05C6 

1890 , 

1894, 

1895 

1 946 

FF 

0 5D6 

1846 



1969 

FI 

05E5 

1951, 

1964 


1984 

FJ 

05F2 

1972 



1993 

FK 

05F7 

1978, 

1981 , 

1987 

1 997 

FK1 

05FB 

1995 



2010 

FL 

0607 

200 7, 

2008 


2012 

FH 

0 60 8 

20 05 



2018 

EAB 

06 0 E 

2014 



2022 

EAB2 

0612 

2025 



2026 

EAB1 

0616 

20 17, 

2 022 


2037 

GTRAGE 

0622 

20 10, 

2030 


2048 

FN 

062B 

2009, 

2035, 

2042 

2 D 53 

NUMSC 

0630 

1973, 

2 0 57 


2056 

NOT CSQ 

0 63 5 

2052 



2060 

EA 

063 8 

2055 



2066 

SECTNO 

063E 

2G60 , 

2062 


2080 

WRA 

0 645 

2100 



2091 

WRE 

0652 

1965, 

2043 


2093 

WRB 

0655 

2083, 

2 090 


2101 

WRC 

065 F 

2095 



2128 

AD J0F1 

0669 

2125 



2131 

ADU0F3 

066C 

2129 



2133 

ADJ0F2 

0 6 6 E 

2121 



2135 

ADJ0F4 

066F 

2123 



2138 

ADJ0F5 

0672 

2136 



21*4 

ADJ0F6 

067 8 

2140 



2152 

ADJ0F7 

0680 

2150 




1897 


o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


I LOAD 


DATES 08/19/99 


PAGE 79 


X T E R 

N A L S 





DEF.LINE 

NAME 

VALUE 

REFERENCED AT 

LINE NUMBER 

0012 

ERFLAG 

0419 

1351 



0 013 

LSSECT 

0633 

0552, 

1975, 

2054 

0014 

STR.TBL 

0620 

2028, 

2032, 

2034 

0 015 

ISA V 

Q64F 

1962, 

2 040 , 

2088 

0 016 

WRO ADR 

01F4 

0724, 

0 753 , 

0766 

0017 

MDR I V 

0640 

1959, 

2039, 

2087 

0 018 

DCOM 

0 47 A 

0417, 

1329, 

1387, 1 411, 1 43 0 

0019 

TELOUT 

0429 

1119 , 

1361 


0 0 20 

IDRIV 

0 0 1 E 

S 260 



0 021 

RACKGR 

023 8 

0254, 

0850 


0 022 

QTYPE 

0654 

2092 



0 023 

CM 6 5 

0435 

1375 




o 


o 


c 


ILOAD 


PAGE 

75 

*** A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

o 

ABIGER 

0577 

ABRLSW 

0071 

A'BSABR 

0 894 


ADJ0F3 

2131 

ADJ0F4 

2135 

ADJOF5 

2138 


AO PAGE 

0046 

AHOLD 

0213 

AINPUT 

0176 

o ; 

AUP'PER 

0 569 

BACKGR 

0 021 

BADEXT 

10 92 

B0EXT1 

1094 

BDEXT2 

1104 

8GRLSW 

0072 


BUF 6 

1394 

BUFFER 

Q 486 

BZSJ2Q 

0 692 


BZSSW 

0108 

CENTAD 

0 126 

CFXTAO 

0199 

o - 

COMERR 

0 432 

COMLIM 

0066 

COHSGE 

1 3 53 

CSMAHE 

0156 

CSQ 

0 662 

CSQCT R 

0 197 


DAT FAS 

006 4 

DATES 0 

0050 

BATBS1 

0 0 51 


DISKED 

170 8 

OISKRW 

1724 

DTSKWR 

00 10 

o ■ 

ECREP1 

0217 

ENDINP 

0 088 

ENOSW 

0070 

ENT ST 

1267 

ENTST0 

0188 

ENTST1 

0189 


EXSTR1 

1282 

EXTADR 

0 201 

EXT CT R 

0 069 


FB 

1810 

FC 

1821 

F'Cl 

1 8 30 

o 

FIND 

178 5 

FJ 

1984 

FK 

1993 

FM 

2012 

FN 

2 0 48 

FNOSEC 

0011 


FUD GE ? 

0 40 7 

GET 

1226 

GETBIN 

1659 


IL0AO 

000 7 

ILOAOl 

0 24Q 

INMFD 

0 158 

o 

INPXCC 

0142 

INTRMD 

0404 

ISAV 

0015 

LIND 

1 06 5 

LINK 

GOBI 

LINK1 

0178 


LKl Jil 

1076 

LK1J12 

1071 

LK1XIT 

0 177 


LNKFN3 

0 944 

LNKEND 

0187 

LNKENT 

0922 

o 

L0AD16 

0 29 4 

L0A017 

0306 

LOAD! 8 

0 307 

LS TP GE 

0042 

MOOFF 

0148 

M7FFF 

0 144 


MFF 00 

0147 

MFFFF 

0146 

MINBAS 

Q Q 45 


MSD HOT 

0 211 

NAHBX 

0 847 

NAME 

0122 

o 

NAMP17 

0494 

NAMP13 

0 49? 

NAHP19 

0 518 

NAMP26 

C 552 

NAMP3 

0344 

NAMP4 

0 359 


NEGFRR 

0773 

NEGSW 

0 150 

NGRLSW 

0 164 


NOTLNK 

0 087 

NOTMMP 

0 445 

NOT NU M 

1 596 

o 

NUMTRM 

1537 

NUMXIT 

1594 

N XNAMl. 

0 877 

NXWD2 

0741 

NXWD3 

0 758 

NXWD4 

0 761 


PARLIM 

0 20 9 

PARSTR 

0 041 

PATCH 

0 956 


PAFCH7 

1011 

PAT CHS 

1017 

PEXT1 

1323 

o 

PGEWRT 

0181 

PLUS 

1 495 

'PR3J1 

1356 

PR6B 

1409 

PRESET 

0168 

PR I NT 2 

0141 


PRNNAM 

0528 

PRNNM2 

0 535 

PRNT3 

0 024 


PRO GCT 

0 223 

PRTOUT 

0 470 

QBIGER 

0576 

o 

RBBZil 

0 65 9 

RBBZ12 

D 660 

RB8Z13 

3671 

RBBZ7 

0 632 

RBBZ8 

0 635 

RRBZ9 

0 646 


SA 

0036 

SAVEA 

0 219 

SB 

0818 


SCANIA 

1560 

SCAN15 

1587 

SCAN16 

1602 

o 

SCAN22 

1638 

SCAN25 

1 564 

SCAN3 

1486 

SC A NSW 

0094 

SGHTB1 

1148 

SCHTB2 

1153 


SCN XI T 

0154 

SD 

0 814 

SEARCH 

1200 


SIGNCK 

0006 

SQ 

0 037 

STLNK1 

0810 

o 

o 

STRLNK 

0 80 5 

STRSEC 

0210 

STRT8L 

0014 

SW1C 

0318 

SW2 

0 796 

SW2A 

0620 


DATE: 08/19/99 


SYMBOLS *** 


ADDR 

0190 

AD Ji 

0784 

ADJ2 

0 787 

AD J3 

ADJ0F6 

2144 

ADJOF7 

2152 

A'DJOVl 

0027 

ADJOVF 

ALFNUM 

1514 

ALFFRM 

1521 

ALFTST 

1621 

ARIT15 

BASF 

010 0 

BDALF1 

1097 

BDALF2 

1098 

BDALF3 

BIN ASC 

0136 

BINVAL 

1571 

BLANKS 

0090 

BLKCNT 

BZS J21 

0702 

BZSP2 

0710 

BZSPRl 

0595 

BZSPR2 

C HP U 

1647 

CHPU1 

1656 

CM6 5 

0023 

CNVERT 

CONVRT 

0171 

CORADR 

0192 

CORO VF 

0 523 

COUNT 1 

CSQLIM 

0068 

CSQNUM 

0077 

CSGSEC . 

0205 

CVT 

D AT ERR 

0 433 

DAT LI 

0457 

datlim 

0 067 

CATLM0 

DSD 1ST 

0474 

EA 

2060 

EAB 

2018 

EAB1 

ENT P GS 

0179 

ENTPNT 

0079 

ENTPR1 

0 82 8 

ENTPR3 

ENT STR 

0030 

ERFLAG 

0 Cl 2 

ESTORE 

130 5 

EVALUE 

EXT PC H 

0163 

EXTPR1 

0856 

EXTPRO 

0852 

EXTSCH 

FD 

1842 

FE 

1851 

FF 

1946 

FG 

FK1 

1997 

FL 

201 Q 

FLGAOR 

0 031 

FLGBS1 

FOUND 

1859 

FOUND1 

1874 

FOUNDA 

1868 

FOUND B 

G TB INI 

1667 

GTPAGE 

2037 

HEXTST 

1 598 

I 

I NPCTR 

0 0 83 

INPREL 

0 07 5 

INPUT 

0227 

INPWRD 

ISCAN 

0 Q32 

JUMP 

0220 

LASTFC 

0246 

LENSOT 

LINK11 

0029 

LINK! A 

1030 

LINK2 

1031 

LINK3 

LNA 

1037 

LNB 

1051 

LNKCTR 

0186 

LNKFN Q 

LNKSA1/ 

1091 

LNKSTR 

018 5 

LOAD12 

0263 

LOAD 1 3 

LQAD19 

0313 

LOAD20 

0 32 4 

LOAD 21 

0327 

LOAD22 

M 8 0 GO 

0145 

MAXENT 

012 8 

HAXEXT 

0203 

MAXPGE 

MINFXT 

0202 

MINFLG 

004 8 

MINREF 

0 0 43 

MINUS 

NAM FI 

0339 

NAMP11 

0395 

NAMP12 

0398 

N A HP 13 

NAMP2 

0341 

NAMP2D 

050 6 

NAMP21 

0 507 

NAMP22 

NAMP6 

0370 

NAMP6A 

0375 

NAMP7 

0 39 0 

NAHP8 

NOJUMP 

0133 

NOMP 

17 40 

NOPAGF 

02 0 7 

NOTALF 

NOTRAN 

0132 

NOTSHE 

1765 

NUMBER 

1 588 

NUMSC 

N XT BIN 

0257 

NXTBLK 

0049 

NXTINP 

0143 

. NXTNAM 

NXWD5 

0762 

NXWD6 

0765 

ONTAB 

0224 

PAGE 

PATCHi 

0966 

PATCH 2 

0971 

PATCH3 

3 985 

PATCH4 

PE XT 2 

13 26 

PEXT3 

1332 

PEXT4 

1339 

PEXT5 

PR3X.IT 

0137 

PR4XIT 

0172 

PR5 Jl 

1419 

PR5XIT 

PRINT3 

0138 

PRINT 4 

0173 

PRINT 5 

017 5 

PR I NT 6 

PRNT4 

0025 

PRNT5 

0026 

PRNTIT . 

0 40 8 

PROBAS 

QCOM 

0 018 

QHOLD 

0214 

QSAV 

0119 

QTYPE 

R8BZ14 

0 674 

RBBZ2 

060 5 

RBBZ3 

0 613 

RB8Z4 

R BD°RO 

0588 

REFER 

0 05 5 

REFR 

1803 

RELADR 

SCAN 

0155 

SCAN1 

1481 

SCAN10 

1533 

' SCAN1.1 

SCAN17 

1605 

SCAN18 

160 8 

S CAN 19 

1617 

SCAN2 

SCAN4 

1545 

SCAN5 

1501 

SCAN6 

1510 

SCAN7 

SCHTB3 

1156 

SCHTB4 

1161 

SCHTBL 

0033 

SCHXIT 

SECTNO 

2066 

SECTOR 

0215 

SEGMNT 

0839 

SETBAS 

STOP 

1364 

STOP1 

1368 

ST0P2 

1375 

STORIT 

SVQ 

0 423 

SW 

0 62 5 

SWi 

0256 

S HI A 

SW2B 

0528 

SW2C 

0630 

SW2X 

0626 

SW3 


□ 


0791 

ADJOF1 

2128 

ADJOF2 

2133 

O 

0162 

ADJUST 

0780 

ADJXIT 

0161 


0166 

ASA V 

0118 

ASKII 

0149 


1099 

BDALF4 

1101 

BDALF5 

1102 

O 

0112 

BTHSAM 

0573 

BUF 5 

1418 

0687 

BZSPR3 

0 70 7 

BZS FRO 

0583 


0028 

CNVXIT 

0 170 

COMBAS 

0063 


010 6 

CCUNT2 

0111 

CSD 1ST 

0381 

Q 

145 7 

CVT1 

1463 

DAT 81 

0451 

005 0 

BATLM1 

0 051 

D B 

1745 


20 2 6 

EAB2 

2022 

ECREP 

0216 


0836 

ENT PRO 

.0 824 

ENTSEC 

0204 

O 

1311 

EVNP 

0283 

EXSTOR 

1273 

1232 

EXTSTR 

0191 

EXTSWT 

0218 


1898 

FH 

1900 

FI 

1969 


0226 

FLGESE 

0 22 2 

FLGLGN 

0135 

O 

18 3 3 

FUDGE 

0 352 

FUDGE1 

0355 

00 0 0 

I DR IV 

0 02 Q 

IGNORF 

0183 


0 0 7 4 

INPXGG 

0 139 

INPXC1 

0140 


0 0 09 

LETTER 

1609 

LGEPGE 

0182 

O 

1088 

LINKA 

1052 

LKl J1Q 

1077 

0928 

LNKEN1 

■ 0546 

LNKEN2 

0939 


0284 

LOAD14 

0 287 

LOAD15 

0 2 92 


033 0 

LOADER 

0 25,2 

LSSECT 

0013 

O 

0 20 6 

MAX REF 

0044 

MORIV 

0017 

3 5 0 4 

modify 

0 057 

MONTAB 

0225 


04^1 

NAM PI 4 

0 43 4 
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86 

0192 




«F 



87 

0193 

P0 05A 

0000 


ARIT1 5 

NUM 

0 

0194 







88 

0195 

P005B 

0 0 Q 0 


PRESET 

NUM 

0 

D 1 9 6 
0197 

P0Q5C 

1400 



JMP* 

(S7FFFJ 

89 


P0 0 5Q 

FFFF 





91 

0198 

P005E 

18 00 

X 


JMP 

CNVERT 


P005F 

7 FFF 

X 




9 3 

0199 

P00 60 

1400 



JMP* 

($7FFF) 


P0 0 61 

FFFF 





95 

020 0 

P 0 0 62 

18 00 

X 


JHP 

PRNT4 


P0 0 63 

7 FFF 

X 




97 

020 1 

P0064 

1400 



JMP + 

(S7FFFJ 

PO 065 

FFFF 





99 

0202 

PC066 

18 0 0 

X 


JMP 

PRNT5 


P0Q67 

7FFF 

X 




101 

0203 

P 0 0 6 8 

00 0 0 


AINPUT 

NUM 

0 

02 04 

P 0 069 

0 000 


S’YSPGE 

NUM 

0 

102 

020 5 

P0G6A 

1400 



JMP+ 

(S7FFF1 

103 


P006B 

FFFF 





105 

020 6 

P0 0 6C 

1800 

X 


JMP 

LINKI 1 


P0D6D 

7 FFF 

X 




107 

0207 

PGG6E 

CO 00 


ENTPGS 

NUM 

0 

0 20 8 




* 



108 

0209 

P006F 

0000 


TOP 

NUM 

0 

0210 







109 

0211 

P0 07 0 

0 0 00 


PGEWRT 

NUM 

0 


MASK 

MASK 

MASK 

MASK 

MASK 

ASCII 


= LPMASKs-15 { STEFFI 
•= $80 0 0 
= SFFFF 
OF $FF00 
OF $00FF 

FLAG WORD FOR MAG- 


OF 


S FT BY SCAN TO VALUE 
SET BY SCAN TO ASCII CODE 

SET BY SCAN TO THE BINARY VALUE OF A NUMERIC 
OPERAND AFTER ITS CONVERSION FROM ASCII 
EXIT FROM SCAN 

ENTRY TO SCAN 


0190 
0190 
019 0 
0190 
0190 
0190 
019 0 


TAPE OR 905 DRIVER 
LEGAL ALGEBRAIC SIGN 

FOR FIELD TER MI NAT 0R0 190 

0190 
0190 


0190 


0171 
0 172 
0173 
017 4 
0175 
G 17 6 

0177 

0178 

0179 
0 180 
0181 


CODE FOR CONTROL STATEMENT BEING PROCESSED 
CODE FOR LAST CONTROL STATEMENT PROCESSED 
INPUT MEDIUM SWITCH 

0 = USE COMMENT DEVICE 

1 = USE STANDARD BINARY INPUT DEVICE 
RETURN FROM ADJCVF 

ENTRY TO ADDRESS ARITHMETIC ROUTINE 

FLAG - NEGATIVE IF EXTERNAL NOT PATCHED 
FLAG 0= POSITIVE RELOCATION 

1= NEGATIVE ADDRESS RELOCATION 

0 = USE 15 BIT ADDRESS ARITHMETIC 

1 = USE 16 BIT ADDRESS ARITHMETIC 

USED TO HOLD THE CONTENTS OF A WORD READ INTO 
CORE BY THE PAGE ROUTINE DURING A TABLE SEARC 
RETURN FROM CONVERT 

ENTRY TO CONVERT 

RETURN FROM PRINT 4 

ENTRY TO PRI NT 4 

RETURN FROM PRINT5 

ENTRY TO PRINTS 

STORAGE FOR A-REGISTER UPON ENTERING LOADER 
NUMBER OF SYSTEM PAGES 
RETURN FROM LINKi 

ENTRY TO LINKI 

STARTING ADDRESS OF ENTRY POINT TABLE IN 
ENTRY / EXTERNAL PAGES 
CONTAINS THE HIGHEST CORE LOCATION 
AVAILABLE FOR THIS LOAD 

FLAG =1 IF ANY PAGES WRITTEN TO MASS STORAGE 


01900 182 

01900183 
01900184 
0190 018 5 
01900186 
01900187 
01900188 

01900169 


0190 
0190 
0190 
0190 
0190 
019 0 
HO 190 
0190 


0 19 0 

0191 

0192 
0 193 
G 194 
019 5 

0196 

0197 


01900198 

01900199 

0190 0 200 

01900 201 

0190 0 20 2 

01900203 
0 190 0 20 4 
0190 0205 

01900206 

0 190 Q 20 7 
01900208 
01900209 
01900 210 
01900211 


O 


O 

O 

O 

O 

o 

o 

o 

o 

o 

O 

o 

o 


o 


o 


o 


o 


10RTBL 


PAGE 


! / 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0212 

PC 071 

0 0 0 0 

LGEPGE 

NUN 

0 

110 

0213 

0214 

P0 072 

0 0 0 0 

IGNORF 

» 

NUM 

0 

111 

0215 

P0 073 

0 0 00 

LNKSTR 

NUM 

0 

112 

0216 

PO 07 4 

0 0 00 

LNKCTR 

NUM 

0 

113 

0217 

P0075 

00 00 

LNKHND 

NUM 

0 

114 

0218 

F0 076 
P0 077 

0 0 0 0 

ENTST0 

NUM 

0 

115 

0219 

00 00 

ENTST1 

NUM 

0 

116 

0220 

P0 078 

0 0 0 0 

ADDR 

NUM 

0 

117 

0221 

P0 079 

0 0 0 0 

EXTSTR 

NUM 

0 

118 

0222 

P007A 

GOOD 

CORAD R 

NUM 

0 

119 

0223 

P007B 

GOOD 

PRODAT 

NUM 

0 

120 

0224 

P007C 

0000 

PRO COM 

NUM 

0 

121 

0225 

0226 

P0 0 70 

00 60 

PAGE 

*■ 

NUM 

96 

122 

022 7 
0228 

P007E 

00 00 

CSQCTR 

NUM 

0 

123 

0229 
0 23 D 

P0Q7F 

ooeo 

CEXTAD 

* 

NUM 

0 

124 

0231 

P 0 0 8 0 

0000 

MAXEXT 

NUM 

0 

125 

0232 

PQ 081 

0 0 0 0 

DIFCON 

N UM 

0 

12 6 

0233 

P 0 0 82 

0 0 00 

ENTSEC 

NUM 

0 

127 

0234 

P0 08 3 

0 0 0 0 

CSQSEC 

NUM 

0 

128 

0235 

0236 

P0 0 84 

00 00 

MAXPG E 
* 

NUM 

fl 

129 

0237 

P0 085 

00 0 0 

NOPAGE 

NUN 

a 

130 

0238 

P 0 08 6 

0 QQ0 

PARBAS 

NUM 

0 

131 

0239 

P 0 08 7 

0 000 

PAR LI M 

NUM 

0 

132 

0240 

P0C88 

00 00 

STRSEC 

NUM 

0 

133 

0241 

P0 089 

00 0 0 

MSDWCT 

NUM 

0 

134 

0242 

PQ08A 

00 00 

XFRAQR 

NUM 

a 

13 5 

0243 

P008B 

go go 

AHOLD 

NUM 

0 

136 

0244 

P0 0 80 

00 00 

QHOLO 

NUM 

0 

137 

0245 

POD 80 

0 0 60 


ADC 

SECTOR 

138 

0246 

P0 08E 

00 00 

EC REP 

NUM 

0 

139 

024 7 

PD08F 

ooco 

EC REP 1 

NUM 

0 

140 

0248 

P 0 0 9 0 

0 00 0 

EXT SWT 

NUM 

0 

141 

0249 

P0 091 

0 0 0 0 

SAVEA 

NUM 

0 

142 

0250 

P 0 09 2 

00 0 0 

JUMP 

NUM 

G 

143 

0251 

P 0 09 3 

ODOO 

TEMP3 

NUM 

0 

144 

0252 

P 0 0 94 

0 D0 0 

FLGRSE 

NUM 

0 

145 

0 25 3 

P 0 09 5 

0 0 0 0 

PRO GOT 

NUM 

e 

146 

0254 

P 0 096 

0 0 0 0 

ONT AB 

NUM 

0 

147 

0255 

P0 097 

00 00 

MONTAB 

MUM 

a 

148 

0256 

P0 0 98 

0 0 0 0 

FLGBS1 

NUM 

0 

1 49 

0257 

PQ 099 

0 0 3C 

INPUT 

BZS 

INPUT 16 0) 

150 

0258 

PQ0D5 

0060 

LNKT8L 

BZS 

LNKTBL 1 LNKLGN 

0259 
026 0 

P0 13 5 

Q G 15 

STRT8L 

* 

BZS 

STRT8LC RE 

ET8L, 


D ATE * 08/19/99 

LARGEST COMMAND SEQUENCE PAGE USED 
FLAG SAYING TO IGNORE DUPLICATE ENTRY POINTS 
WHEN LINKING *M OR *MP TO CREP OR CREP1 
ADDRESS OF LINK TABLE 

NEXT AVAILABLE LOCATION IN LINK TABLE 
LAST ADDRESS +1 IN LINK TABLE 
STARTING ADDRESS OF FART 0 ENTRY POINTS 
STARTING ADDRESS OF PART 1 ENTRY POINTS 
COUNTER USED BY PAGE ROUTINE 

START OF EXTERNAL TABLE 
AVAILABLE FOR LOADER 
IF PROTECTED DATA IS DECLARED 
IF PROTECTED COMMON DECLARED 
ON MASS MEMORY, MUST BE A 


BEING CURRENTLY PROCESSED 


WORD ADDRESS OF 
LOWEST LOCATION 
FLAG - NON ZERO 
FLAG - NON ZERO 
LENGTH OF PAGE 

LAsFaOORESS OF PROGRAM COMMAND SEQUENCE 
STORAGE #- 1 
ADDRESS OF EXTERNAL 
FROM EXTERNAL TABLE _ . 

LARGEST ADDRESS BEING USED IN EXTERNAL TABLE 
j EMPO R ARY 

STARTING SECTOR OF ENTRY/EXTERNAL TABLES 

STARTING SECTOR OF COMMAND SEQUENCE IMAGE 

MAXIMUM PAGE NUMBER THAT CAN BE USED 

ON THE SYSTEM MASS STORAGE DEVICE 

NUMBER OF PAGES IN CORE 

ADDRESS OF STARTING PARTITION 

LAST WORD ADDRESS *■! OF LAST PARTITION 

STARTING SECTOR OF IMAGE ON MASS MEMORY 

NUMBER OF WORDS STORED ON MASS MEMORY 

TRANSFER ADDRESS OF NAME ON TRANSFER BLOCK 

TEMPORARY 

TEMPORARY 

NUMBER OF WORDS IN A SECTOR 
END ADDRESS OF CREP TABLE 
•END ADDRESS OF CREP1 TABLE 

FLAG - NON ZERO IF PROCESSING EXTERNAL BLOCK 
TEMPORARY 

JUMP SWITCH FOR 11 
TEMPORARY 

BASE ADDRESS OF CORE FLAGS 
LENGTH OF PROGRAM FRO N NAM 
*Y ORDINAL COUNTER 
*YN ORDINAL COUNTER 
CELL TO HOLD ORIGINAL FLAG 
INPUT B L)F F F R 

) TABLE FOR ABSOLUTIZED ADDRESSES OF S7FFF 
n 6+1) BIT TABLE INDICATING WHICH ENTRY/ 
EXTERNAL PAGES HAVE BEEN STORED INTO 






TABLE 

CARD 


BASE 


01900212 
0190021 3 
0190 0214 
01900215 
0190 0 216 
01900217 
01900218 
01900219 
01900 220 
01900221 
01900222 
01900223 
01900224 
01900225 
01900 226 
01900227 
01900228 
01900229 
01900230 
01900 231 
01900232 
01900233 
O 193 0 234 
01900235 
01900236 
019GQ 237 
01900238 
01900239 
01900240 
01900241 
019 0 0 242 
01900243 
0 1900244 
0190 0 245 
01900246 
01900247 
01900248 
■*01900249 
0 190 0 25 D 
*01900 251 
01900252 
01900253 
01900254 
01900255 
01 9u 0256 
0190 0 25 7 
0190 0 258 
0190 0 25 9 
0190 0 260 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


0262 

0263 

0264 

0265 

0266 
0267 
0 26 8 
0269 

0271 

0272 

02 73 
0274 
0 27 5 
0 27 6 

0277 

0278 

0279 
0 28 D 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0 294 
0295 

029 6 

0297 

0298 

0299 

030 0 
Q 3 0 1 
0302 

03 03 
0304 
03 0 5 

0306 

0307 
03 0 8 
03 0 9 
0310 


LDRTBL 


PAGE 


DATES 08/19/99 


P014A 

0 BOO 

CON BA 

P014B 

E 8 0 0 


P014C 

FEB3 


P014D 

ODFB 


P014E 

08 44 


P014F 

6201 

CONI 

P 0 150 

Cl 72 


PQ 151 

0 D F E 


P0152 

1 8 FC 


P 0 1 53 

0 C 25 

* 

CON 6 

P0154 

C8F5 


PC 15 5 

60FF 


PO 156 

0 8 44 


PQ157 

63 01 

C0N8 

PO 158 

01 4 2 


PO 159 

0 DFE 


P 0 15 A 

18FC 


PO 15 B 

C QGO 

CON7 

P015C 

01 45 


PO 150 

61 OC 


P015E 

GOOD 


P015F 

2320 


PO 160 

6112 


P 0 1 61 

COFF 


PO 16 2 

D 9 2 A 


PO 163 

60 FF 


P 0 1 64 

OC 0 9 


PO 165 

0 844 


P 0 1 6 6 

6301 

C0N9 

P 0 167 

0 1 42 


PO 168 

ODFE 


P 0 1 6 9 

1 8FC 


P 0 1 6 A 

CG 00 

CON 10 

P016B 

0 0 03 


P016C 

6108 


PD 1 60 

C8 DC 


P016E 

6 0 F F 


P016F 

0 8 44 


PQ 170 

6146 


P0171 

6147 


P 0 172 

6148 


PO 1 73 

6149 


PO 174 

61 4E 


P0175 

614F 


PO 176 

615B 


PO 177 

6155 


P0178 

6156 


PO 1 79 

61 57 


P017A 

6158 


P017B 

cacE 


P017G 

096A 



S NOP 

0 

LOQ 

CONENT 

INQ 

-4 

CL R 

A 

STA- 

1 » Q 

SQM 

CON6-*-l 

INQ 

-1 

JMP* 

CONI 

I N 1 

: t r a l 

ENQ 

37 

L DA* 

CQNBAS 

sta- 

I 

CLR 

A 

STA- 

1,B 

SQZ 

CON 7-*- 1 

INQ 

-1 

JMP* 

CON8 

LDA 

= xreetb l 

STA- 

12,1 

LDA 

= N $ 2 0 2 0 

STA- 

18,1 

LDA- 

I 

I N A 

42 

STA- 

I 

ENQ 

9 

CLR 

A 

STA- 

ue 

SQZ 

GON1B-*-! 

INQ 

-1 

JMP* 

C0N9 

LDA 

=XFL AGS 

STA- 

8 , T 

LQA* 

CONBAS 

STA- 

I 

CLR 

A 

STA- 

70,1 

STA- 

71,1 

STA- 

72,1 

STA- 

73,1 

STA- 

78, I 

STA- 

79,1 

STA- 

80,1 

STA- 

85,1 

STA- 

86,1 

STA- 

87,1 

STA- 

88, I 

LDA* 

CONBAS 

INA 

106 


RETURN ADDRESS = START OF LOADER TABLE 
PICKUP RETURN ADDRESS TO INITIALIZER 

COMPUTE BASE ADDRESS OF INITIALIZER -1 

CLEAR CORE LOCATION 

SKIP IF ALL AVAILABLE CORE IS ZEROED 
DECREMENT INDEX „ , 

LOOP BACK TO ZERO NEXT LOCATION 

F LOADER TABLE 
'CLEAR LOCATIONS 0-38 OF LOADER TABLE 

SET I-REGISTER TO START OF LOADER TABLE 


SKIP IF DONE 

LOOP BACK _ „ . 

RESET LOCATION 12 TO CONTAIN THc NUMBER 

OF SECTORS RESERVED FOR EXTERNALS AND ENTRYS 
RESET LOCATION 18 TO CONTAIN THE ASCII 

r,nOF FOR TWO SPACES 


CLEAR LOCATIONS 43-52 
SKIP IF DONE 

reset Location so to the number 
OF CORE FLAGS PER PAGE 

CLEAR LOCATIONS 70-73 

CLEAR LOCATIONS 78-80 
CLEAR LOCATIONS 85-88 


01900262 

01900263 

01900264 

01900265 

01900266 

01900267 

01900268 

01900269 

0190 G 27 1 
0 190 027 2 
019G0273 
01900274 
0190 0275 
01900276 
01900277 
01900278 
0190 0279 
0190 0 28 0 

0 190 O 28 1 
01980282 

0190 0 283 
0190 0284 
01900285 
0190 0 286 
0190 0287 
01900288 
0190 Q 289 
01900 290 
01900291 
0190 0 29 2 
01900293 

01900294 
01900295 
01900296 
0190 0297 
01900298 
0 19 D 0 299 
0190 0 30 0 
01900 301 
01900302 
0 190 0 30 3 
0190 0 304 
01900305 
01900306 
0190 0 30 7 
01900 308 
01900309 
01900310 


LDRTBL 


PAGE 


9 


DATES 08/19/99 


0311 

0312 

0313 

0314 
031 5 

031 6 
0 317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

032 8 

032 9 

0330 

0 331 
0332 

03 3 3 

033 4 

0335 

0336 
033 7 

0338 

0339 

0340 
0 341 

0342 

0343 
0 3 *4 4 

0345 

0346 
03 47 

0348 

0349 
03 5 0 

0351 

0352 

0353 


P017D 

60 FF 


P017E 

EO 00 


PQ 17F 

OQDB 


P01B0 

0 8 44 


P 0181 

63 01 


PO 182 

0142 


PO 183 

0 DEE 


PQ 184 

1 8 FC 


P0185 

C8 0 0 


P0186 

FFC3 


PO 187 

60 FF 


PG18B 

61 IF 


P 0 1 89 

80 00 


PD 1 8 A 

0096 


PQ18B 

6139 


P018C 

0901 


P018D 

61 3 A 


P 0 1 8 E 

09 FB 


P018F 

61 3 E 


P0190 

cooo 


PO 191 

0 0 60 


P 0 19 2 

617A 


PO 193 

COOO 

X 

P 0 1 94 

7FFF 

X 

P0195 

9000 


PO 196 

01 45 


PO 19 7 

61 7F 


PO 1 98 

COOO 


PO 199 

0 0 60 


PQ19A 

61 8 A 


P019B 

C 8 0 0 


P019C 

FE 63 


P019D 

0 9 FB 


PQ19E 

6117 


P019F 

08 42 


POIAO 

30 00 


P01A1 

0 0 63 


PQ 1 A2 

6182 


P01A3 

6119 


P01A4 

5802 


P 0 1 A. 5 

182 0 


PO 1A 6 

OBOQ 


PO 1 A 7 

0 9 FD 


PO 1A8 

0123 


P01A9 

COOO 


PO 1 A A 

3131 


P01AB 

113B 


PO 1 AC 

C 1 82 


P01AD 

2132 


P01AE 

6191 


PfllAF 

Cl 17 


PO 1B0 

9191 




STA- 

LDQ 


CLR 

CON11 

STA- 

SQZ 

INQ 

JMP* 

CONI? 

LOA 


STA- 

STA- 

AOD 


STA- 

INA 

STA- 

INA 

STA- 

LD A 


STA- 

LDA 


SUB 


STA- 

LOA 


STA- 

LDA 


INA 

STA- 

BLE 

DVI 


STA- 

STA- 


RTJ* 

JMP* 


CONMS1 NOP 
IN A 
SAP 
LD A 

JMP- 
C0N3 L.DA- 
MUI- 
STA- 
LDA- 
SU8- 


I 

=XCONBAS-ENTPGS-l 


CLEAR LOCATIONS 107 - END OF TABLE 


01900 311 
0190 0 312 


1 ,B 

CON12-*-i SKIP IF DONE 

-1 

CON 1 1 
CONBAS 


01900313 
01900 314 
01900315 
0190 0316 
0190 0 317 
0190 0 318 


I SAVE STARTING ADDRESS OF LOADER TABLE IN 

31,1 BOTH I-REGISTER AND LOCATION ISAV 

=XlNPUT-L0RTBL COMPUTE STARTING ADDRESS OF INPUT BUFFER 


01900319 
0190 0320 
01900321 


57.1 
1 

58.1 

-4 

62.1 
= XPGE 


SAVE STARTING ADDRESS OF INPUT IN INPXCQ 

SAVE STARTING ADDRESS *1 OF INPUT IN INPXC1 

SAVE STARTING ADDRESS -3 OF INPUT IN INPXCC 

RESET WORD 122 TO THE LENGTH OF A PAGE 


01900322 
01900323 
01900 324 
0190 0 32 5 
0190 0 326 
019 0 0 327 


12?, I ON NASS STORAGE 

=XMAXSEC 


01900326 

113*4253******** 


=XREETBL 


113 * 4253 ******** 


127,1 
=XSEC TOR 


ENTRY /EXTERNAL PAGES IN ENTSEC 11271 
RESET WORD 138 TO THE NUMBER OF 


0 190 D 33 0 
01900 331 


138,1 WORDS IN ASECTOR 

CONENT 


01900332 
01900 333 


-4 

23,1 

Q 

=XLENGTH 


COMPUTE BASE ADDRESS OF INITIALIZER AND 
SAVE IN LOCATION BASE 

DEVICE ALL OF CORE BELOW THE INITIALIZER BY 
THE LENGTH OF A PAGE 


01900334 
0190 0335 
0 19 0 0 33 6 
01900337 


130,1 
25, I 


CON MSI 
CONI 5 
0 

-2 

00N3-*- 1 
= A11 


SAVE NUMBER OF PAGES IN NOPAGE 
SAVE NUMBER OF PAGES IN COUNT1 
1 CARD DELETED 
ALLOCATE THE PAGES 
ALLOCATE. MASS STORAGE 


66*1455 


MAKE SURE THAT AT LEAST TWO PAGES CAN 
RESIDE IN CORE SIMULTANEOUSLY 


0190 0 33 8 
0190 0 339 
01900 340 
01900341 
01900342 
01900343 
01900344 
01900345 
0190 0346 


59.1 
130 ,1 

50.1 

145.1 

23.1 

145.1 


FATAL ERROR 11, TERMINATE INITIALIZATION 


MULTIPLY NUMBER OF PAGES BY NUMBER OF FLAGS 
PER PAGE AND SAVE IN FLGBSE 

SUBTRACT FLGBSE FROM ADDRESS OF INITIALIZER 
TO GET BASE ADDRESS OF FLAG TABLE 


0190 Q 347 
01900348 
01900349 
01900350 
01900 351 
01900352 


LDRTBL 


PAGE ID 


DATE? 08/19/99 


0354 

P01B1 

0 9 FE 



INA 

-1 

0355 

0356 

P01B2 

6191 



STA- 

145,1 

0 3 5 /' 

P01B3 

Q 8 22 



TRA 

Q 

035 8 

P01B4 

0 ADO 



FN A 

0 

0359 

P 0 1 B5 

6175 



STA- 

117,1 

0360 

P01B6 

Cl 1 9 



LDA- 

25,1 

0361 

P0187 

0864 



TCA 

A 

0362 

P01B8 

6119 



ST A- 

25,1 

0363 

PQ1B9 

Cl 75 


C0N4 

LDA- 

117,1 

0364 

P01BA 

6201 



STA- 

PGENUM, Q 

0365 

PG IBB 

0 AGO 



ENA 

0 

0366 

P01BC 

6202 



ST A- 

REFER, 0 

0357 

PQiBD 

6203 



STA- 

MOBIFY, Q 

0368 

P018E 

D 1 19 



RAO- 

25, I 

0369 

P01BF 

Cl 1 9 



LDA- 

25, I 

037 0 

P01C0 

0103 



SAZ 

C0N5-*- 1 

03 71 

P01C1 

Di 75 



RAO- 

117,1 

0372 

P01C2 

FI 32 



ADQ- 

50,1 

0373 

P01C3 

13F5 



JMP* 

COM4 

0374 

P01C4 

1C El 


C0N5 

JMP* 

(COMMSII 

0375 

P01C5 

0 8 *+4 


C0N15 

CLP 

A 

0 37 6 

PQ1C6 

6800 

X 


STA 

RWFLAG 


P01C7 

7FFF 

X 




037 7 

PQ1C8 

6800 

X 


STA 

PGEFLG 


P01C9 

7FFF 

X 



SA 

0378 

P01CA 

6800 

X 


STA 


PD ICR 

7FFF 

X 



SQ 

0379 

PQ ICC 

6800 

X 


STA 


P01CD 

7FFF 

X 




0380 

PO ICE 

6800 

X 


STA 

VALUE 


P01CF 

7FFF 

X 



WORD 

0381 

P 0 ID 0 

6800 

X 


STA 


P01D1 

7FFF 

X 




0382 

PO 1 02 

6800 

X 


STA 

PAGENO 


PO 103 

7FFF 

X 




0383 

PO 10 4 

6800 

X 


STA 

LSTPGE 


P01D5 

7FFF 

X 




0384 

PO 1 D 6 

68 00 

X 


STA 

MINREF 


P01D7 

7FFF 

X 



MAX REF 

0385 

PO ID 8 

6800 

X 


STA 


PO 1 09 

7FFF 

X 



MIN8AS 

038 6 

P01 DA 

68 0 0 

X 


STA 


P01DB 

7FFF 

X 




038 7 

PO 1 DC 

6800 

X 


STA 

ADPAGE 


P01OD 

7FFF 

X 




038 8 

P01DE 

68 00 

X 


STA 

FLGADR 


P01DF 

7FFF 

X 



MINFLG 

0389 

P01E0 

68 OQ 

X 


STA 


P01E1 

7FFF 

X 



C0N8AS 

0390 

P01E2 

C 8 0 0 



LDA 

P01E3 

FF 66 




=XLNKTBL 

0391 

P01F4 

8 0 00 



ADD 


P01E5 

00D2 






'DFCREMENT STARTING ADDRESS OF FLAG TABLE 
TO ALLOW FLAG INDICES OF 1,2,3 
FLG3SE = BASE - FLGBSE 


PICKUP THE 
FOR USE AS 


NUMBER 
A LOOP 


OF PAGES 
COUNTER 


AND COMPLEMENT IT 


PICKUP PAGE ADDRESS 
SAVE IN PAGE TABLE 

NUMBER OF TIMES PAGE IS REFERENCED COUNTER 

PAGE HAS BEEN MODIFIED FLAG 

INCREMENT PAGE COUNTER 

HAVE ALL PAGE FLAGS BEEN INITIALLED 

YES, GO ON TO ALLOCATE DISK 

INCREMENT PAGE ADDRESS 

UPDATE ADDRESS IN FLAG TABLE 

GO BACK TO INITIALIZE NEXT SET OF PAGE FLAGS 


PAGING ROUTINE 


-LDRTBL 


01900353 
01900 354 
0190 0 355 
0190 Q 356 
01900357 
0190 0 358 
01900 359 
01900360 
01900361 
01900 362 
01900363 
01900364 
01900365 
0190 0 366 
0 190 0 36 7 
0190 0368 
0190 0369 
0190 0 37 0 
01900371 
0 19 0 0 37 2 
0190 G 37 3 
0 190 0 37 4 
01900375 

0190 0376 

0190 0377 

01900378 

0190 Q 379 

01900380 

01900381 

0190 0 38 2 

01900383 

0 1900384 

01900385 

01900386 

0190 0 387 

0190 0 38 8 

01900389 

019 0 0 390 


LDRTBL 


PAGE il 


DATES 08/19/99 



D39 2 

P01E6 

6170 



STA- 

112,1 


0393 

P01F7 

6171 



STA- 

113,1 

o 

0394 

Pfl 1 E 6 

80 0 0 



ADD 

=XSTRTBL 


PG1E9 

00 60 






0395 

P01EA 

6172 



ST A- 

114,1 


0396 

P01FB 

CQOQ 



LDA 

=XREET8L 

o 


P01EC 

01 A5 





0397 

P01ED 

90 00 



sue 

=M100 



P01FE 

00 64 





o 

0 39 8 
0399 

P01EF 

20 00 


* 

MU I 

= XLFNGT H 


P01FO 

0 0 60 






0 4 0 G 

P01F1 

6176 



STA- 

118,1 


0401 

P01F2 

6107 



STA- 

7,1 

o 

0402 

P01F3 

617D 



STA- 

125,1 

0403 

P01F4 

COCO 



LD A 

= XREETB’L 



P01F5 

0145 






04G4 

P01F6 

2 0 GO 



MUX 

=XLFNGTH 

o 


P01F7 

0 0 60 





0 40 5 

P 0 IF 8 

61 2F 



STA- 

47,1 


O'+Q 6 

P01F9 

1C00 



JMP 

t CO NENT 1 



P01FA 

F F 0 5 





o 

0407 

PO 1FB 

0 30 0 


COMMA S 

NOP 

0 

0403 

P01FC 

C 3 0 0 

X 


LD A 

LSSECT 



POIFO 

7FFF 

X 





0409 

PO IFF 

6180 



STA- 

128,1 

o 

0410 

P01FF 

COO 0 

X 


LD A 

=X MAXSEC 


P0200 

0194 

X 





0411 

P 0 20 1 

9 1 a c 



SU8- 

12, I 


0 412 

P 0 2 02 

61 7F 



STA- 

127,1 

o 

0413 

PO 203 

0 8 42 



CL R 

Q 

Qh-Ih 

P 0204 

C10C 



LDA- 

12,1 


0 415 

P020 5 

3 00 0 



CVI 

= XN UMSE C 



P 0 2 0 6 

0 0 01 





o 

0 41 6 

PO 2 0 7 

61 81 



STA- 

129,1 

0417 

PO 208 

1CF2 



Jl-IP* 

(CONMAS i 


041 8 

PO 20 9 

0B00 


CONHS 

NOP 

0 


0419 

P020A 

5800 

X 


RTJ 

WR.TOUT 

o 


P020B 

7FFF 

X 




042 D 

P02CC 

CROC 

X 


LDA 

LF.NSQT 



PO 20 D 

7PFF 

X 





0421 

P02DF 

2 0 00 



MU I 

= XPGE 

o 


PB2GF 

0060 





0422 

P 0 21 0 

0901 



INA 

1 


0423 

P0211 

6177 



STA- 

119, I 


0 424 

P0212 

Cl 82 



LD A- 

130 , 1 

o 

0 42 5 

P0213 

61 66 



STA- 

102,1 

0426 

P 0 2 1 4 

Cl 91 



LDA- 

145,1 


0427 

0428 

P0215 

619 5 



STA- 

149,1 

o 

0429 

P021 6 

6117 



STA- 

23, I 

0430 

0431 

P0217 

91 77 


* 

SUB- 

119,1 



PUT THE LINK TABLE ADDRESS IN LOCATION LNKSTR 
PUT LINK TABLE ADDRESS IN LOCATION LNKCTR 


01900391 
01900 392 
01900393 


PUT LWA3-1 OF LINK TABLE IN LOCATION LNKEND 01900394 
PICKUP NUMBER OF SECTORS RESERVED FOR ENT/EXT 01900395 


SUBTRACT NUMBER 


SECTORS RESERVED 


MULTIPLY 8 Y THE NUMBER OF WORDS / PAGE TO 
XLFNGT H-FLAGS DETERMINE THE WORD ADDRESS OF THE START OF 

18.1 THE EXTERNALS ( EXTSTRl 

,1 THIS IS ALSO THE NEXT AVAILABLE LOCATION IN 

25.1 THE EXTERNAL TABLE I EXT CT R) AT STARTUP 

XREETB’L COMPUTE WORD ADDRESS OF MAXSEC FOR USE IN 

XLENGTH-FLAGS TESTING FOR EXTERNAL TABLE OVERFLOW 

7.1 TWMXSEC) 


019 0 0 396 

0190 Q 39 7 
01900393 

0190 0 399 
0190 0 400 
01900 401 
0 190 0 AO 2 

0190040 3 

0190 0 404 
0190 0 40 5 


RETURN ADDRESS IN CONTRL 01900406 

PICKUP NEXT AVAILABLE SECTOR AFTER AUTOLOAD 2 01900407 

SAVE AS STARTING ADDRESS OF COMMAND SEQUENCE 01900408 
PICKUP LARGEST AVAILABLE SECTOR 01900409 

SUBTRACT NUMBER OF SECTORS RESERVED FOR ENTRY /O 190 0 41 0 
EXTERNAL TABLES AND STORE IN ENTS EC C127) 01900411 

COMPUTE THE MAXIMUM LEGAL PAGE NUMBER ON MASS 01900412 
STORAGE BY DIVIDING THE NUMBER OF SECTORS 01900 413 

RESERVED FOR ENTRY/EXTERNALS BY THE NUMBER 01900414 


OF SECTORS PER PAGE. 01900415 

RETURN TO CONTRL 0190 0 41 6 

01903417 

WRITE TO HASS STORAGE ALL PAGES ALREADY USED 01900418 


NUMBER OF CORE RESIDENT PAGES 
SYSOAT AND THE SYSTEM DIRECTORY 


66*1 455 01900 419 


0190 0 42 0 


AND SAVE IT AS THE FIRST ADDRESS 

AVAILABLE FOR PAGING 

SAVE THE NUMBER OF SYSTEM PAGES 

FOR USE AT THE END OF INITIALIZATION 

PICKUP THE BASE ADDRESS OF THE FLAG TABLE 

SAVE THE INITIAL FLAG BASE FOR USE IN 

THE FINAL SYSTEM LINKING PROCESS 

RESET THE TOP OF SCRATCH CORE TO 

THE BASE OF THE SYSTEM FLAG TABLE 

SUBTRACT CORADR FROM FLG8S1 TO DETERMINE HOW 


0190 
0190 
0190 
0 1.90 
0190 
0190 
0190 
0190 
0190 
0190 


0 421 
0 422 
0 42 3 
0424 
0 42 5 
042 6 
0 427 
0 42 8 
0429 
0 43 0 


Q 





LDRTBL 

PAGE 12 

DATES 0 8/19/9 9 



o 







o 


0 43 2 

p G 2 1 8 

0 3 42 

clp a 

MUCH CORE IS AVAILABLE FOR PAGING 

O 190 0 A3 1 



D 43 3 

P 02 19 

30 0 0 

DVI =XLENGTH 

DFVIDE BY PAGE LENGTH TO GET NUMBER OF -PAGES 

0190 0 A3 2 


o 

0434 

P021A 
P021 9 

0 0 63 
61 82 

STA- 130,1 

SAVE NUMBER OF PAGES IN NOPAGE 

01900 433 

o 


0 43 5 

P021C 

6119 

STA- 25,1 

SAVE NUMBER OF PAGES IN COUNT 1 

0190 0434 



0436 

P021D 

ICE B 

JMP* (CONMS* 

RETURN TO CONTRL 

01900 435 


o 

0437 



END 


0 19G 0 436 

o 


PGM= 

021E 

( 542) 

COM = 0000 ( 05 

DAT = 0 0 Q 0 [ 0) 



o 







o 

o 







' o 

o 







o 

o 







o 

o 







o 

o 







o 

o 







o 

o 







o 

o 







o 


o 

o 

o 

o 

o 

o 

o 

■ o 


o 







1 ' 



LORTBL 

PAGE 13 

DATE-J 

03/ 19/99 


Q 








o 

E Q U I y 

A L E N 

C E S 




O 

o 

DEF .LINE 

NAME 

VALUE 

REFERENCED AT 

LINE NUMBER 


O 


0 0 00 

I 

00FF 

( 0002555 0274, 0284, 

0286, 0296, 

0311, 0319 



0 017 

SECTOR 

0060 

(GOO 0961 0 019, 0245, 

0 332 




0016 

NUMSEC 

0 001 

( 0 0000 15 0 G 19 » 0 037, 

0415 


o 

U 

0019 

PGE 

0060 

(0000965 0021, 0327, 

0421 



0 020 

FLAGS 

0003 

( 00 QO 0 35 0021 , 0 160, 

0293, 0399, 

0 40 4 



0 0 21 

LENGTH 

0063 

30000995 0338, 0399, 

0 LQ 4, 0433 




0 022 

PGENUM 

000 1 

(0000015 0 364 



o 

o 

0 023 

REFER 

000 2 

(0000025 0366 





0 0 2 5 

MODIFY 

0003 

(0000035 0367 





0 028 

LNKLGN 

0060 

(000 0965 0258 




o 

0 0 30 

REETB'L 

0145 

(000325) 0090 , 0259, 

0280, 0330, 

0396, 0403 

o 

o 







o 

O ; 







o 

O 







o 

o 







o 

o 







o 

O ' 







o 

o 







o 

o 







o 

o 







o 

o 







o 


LD'RTBL 


DATE: 08/19/99 


o 


PAGE 14 


SYMBOLS 


O 


DEE. LINE 

NAME 

ADDRESS 

0 033 

CONENT 

0000 

0 034 

GCNMS1 

0 1 A 6 

00 3 5 

CONMS 

0209 

0 03 6 

C ONMAS 

0 1FB 

0 038 

WRDADR 

00 1 D 

0 0 39 

STRTBL 

0135 

0 0 40 

I S A V 

0022 

0073 

LDRT3L 

0003 

0075 

COMBAS 

ODD 4 

0 0 76 

QAT8AS 

00 0 5 

0 0 77 

PROBAS 

000 6 

0 078 

CCMLIM 

00 07 

0079 

DAT LIM 

00 0 8 

0 080 

C5QLIM 

0009 

0 0 81 

EXTCTR 

0 0 0 A 

0 083 

END SW 

Q00B 

0 08 5 

ARRLSW 

oooc 

0 0 87 

INPWD 

GOOD 

0 0 88 

INPREL 

00 0 E 

0 090 

TBLNUM 

0 0 0 F 

0 092 

ENTPNT 

0010 

0 094 

LINK 

0011 

0 0 96 

INPCTR 

0 012 

0 ICO 

NOT'LNK 

0 013 

0101 

END IN P 

0014 

0103 

BLANKS 

0015 

0 10 4 

SYMSTR 

0016 

0108 

SCANS W 

0019 

0116 

BASE 

0 0 1 A 

0 118 

WRDCNT 

0 DIB 

0124 

C0UNT1 

001C 

0127 

3ZSSW 

0 0 ID 

0 130 

COUNT 2 

0 01 E 

0 134 

SW6 

00 IF 

0 137 

ASA V 

0020 

0138 

QSAV 

0021 

0 140 

XFRNAM 

0 0 23 

0143 

NAME 

0026 

0147 

SCHXI T 

0 0 2 A 

0151 

CENTAD 

00 2 E 

0153 

MAX ENT 

G02F 


REFERENCED AT LINE NUMBER 

0033, 0263, 0334, 0406 

0034, 0342, 0374 

0035, 0436 

0036, 0417 
0 038 

0039, 0394 
0 040 

0321, 0391 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


j j 
v*. 



LDRTBL 
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Q 

0154 

TEMP 

0030 


0155 

TEMPI 

0 0 31 

O 

0156 

WMXSEC 

OD32 

0157 

NOT RAN 

D 0 3 3 

0 158 

NCJMP 

0 03 A 


0160 

FLGLGN 

003 5 

O 

0 161 

BINASC 

003 6 

0 165 

INPXCO 

0 03C 

0 166 

INPXC1 

0 03 D 


0167 

PRI NT2 

0 0 3 E 

O 

0169 

IN'PXCC 

0041 

0 17 0 

NXTINP 

0042 

0171 

M7FFF 

0044 


0 172 

M 8 0 0 0 

00 45 

■ O 

0 173 

MFFFF 

0046 

0176 

AS K 1 1 

0049 

0 177 

NEGSW 

0 0 4 A 


0 178 

SCNTRM 

004B 

O 

0179 

SON IMP 

004C 

0181 

SCNXIT 

0 04D 

0183 

CSNAME 

0051 


0184 

XDSNAM 

0052 

O 

0185 

IMMFD 

00 53 

0 19 0 

EXTPCH 

0058 

G191 

NGRLSW 

0059 


0 193 

ARIT15 

0 0 5 A 

o 

0195 

PRESET 

00 5 B 

0 203 

A IN PUT 

006 8 

0204 

SYSPGE 

0069 


0207 

ENTPGS 

0Q6E 0312 

; O 

0 209 

TOP 

0Q6F 

D 211 

PGEWRT 

0070 

0212 

LGEPGE 

0071 


0 213 

IGNORE 

0072 

■ o 

0 215 

LNKSTR 

0073 

0216 

LNKCTR 

007 4 

0217 

LNKENQ 

0075 


Q 2 1 8 

ENTST0 

0 0 7 6 

o 

0219 

EN T ST 1 

0077 

0 220 

ADD R 

007 8 

0 221 

EXTSTR 

0079 


0 222 

CORABR 

0 0 7 A 

o 

0 223 

PRODAT 

0 078 

0224 

PROCOM 

007C 

0 225 

PAGE 

0 07D 


0 227 

GSQCTR 

O 0 7 E 

o 

0 229 

CEXTAD 

0 0 7 F 

0 231 

MAX EXT 

0080 

0232 

OIFCON 

00 81 


0 233 

ENTSEC 

008 2 

o 

0 234 

CSQSEC 

00 83 

0 23 5 

MAX PGE 

0084 


0237 

NOPAGE 

0 085 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



LDRTBL 


PAGE 16 



DATE 

0238 

PARBAS 

00 86 





0 239 

PARLIM 

00 87 





0 240 

STRSEC 

0088 





0 241 

MSHWCT 

00 39 





0242 

X FRA DR 

0 0 8 A 





0 243 

AHOLD 

0 Q 8 B 





0244 

QHOtD 

0 0 8 C 





0 246 

ECREP 

008E 





0 247 

ECREPi 

0 0 8 F 





0248 

EXTSWT 

0090 





0 249 

SAVEA 

0091 





0 250 

JUMP 

0092 





0 251 

TEMPS 

0093 





0 2 52 

FLG8SE 

009 4 





0 2 53 

PROGCT 

0095 





0254 

ONTAB 

0096 





0 255 

MONTAB 

0097 





0256 

FLGBS1 

00 98 





0 257 

INPUT 

0099 

0165, 

0166, 

0169, 

0 321 

0 258 

LNKTSL 

0005 

0391, 

0394 



0 262 

DONBAS 

0 14 A 

0072, 

0273, 

0295, 

0309 

0 266 

GON1 

014F 

0269 




0272 

G0N6 

0153 

0267 




0276 

C ON 8 

0157 

0279 




0 28 0 

CON7 

0 1 5 B 

0 277 




0289 

C0N9 

016 6 

0292 




0 293 

CON 1 0 

0 1 6 A 

0 290 




0314 

CON 11 

0181 

0317 




0 31.8 

CONI? 

0185 

3315 




0 3 49 

CONS 

Q1AC 

0 346 




0 363 

COM4 

01B9 

0 373 




0374 

COM 5 

QIC 4 

0370 




0375 

C ON 15 

QIC 5 

0 3 43 





08/19/99 


0312* 0318, 


o 


o 

o 

o 

o 

n 


o 

□ 

o 

o 

o 

o 

o 

0390 

o 

O 

O 

o 

o 

o 

o 

o 

o 

o 


r ) 





{ } 



LQRT BL 

PAGE 17 DATE? 08/19/99 

o 

O 





o o 

E X T e R 

N A L S 



o 

DEF .LIME 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

o 

0041 

PRNT3 

00 3B 

0 164 



0 0 42 

STOP 

0040 

0168 

o 

o 

0 043 

NXTRLK 

0043 

0170 

0 0 44 

ADJOV1 

0057 

0189 


0 0 4 5 

0 N VERT 

005F 

0198 



0 046 

PRNT4 

0 0 63 

0200 

o 

o 

0047 

PRNT5 

0 0 67 

0202 

0048 

LSSECT 

0 1FO 

0 408 


0 049 

FLGAOR 

Q1DF 

0 388 



0050 

LINK11 

0 0 6’D 

0 206 

o 

o 

0 0 51 

SGHT'BL 

00 2D 

0150 

0052 

ISC AN 

00 5 0 

0 182 



0 053 

WRTOUT 

020 B 

0 419 



0 0 5 4 

LENSDT 

0 2 0 D 

0 420 

o 

o 

0 05 5 

RW F LA G 

0 1C 7 

0 376 

00 56 

PGEFLG 

0 1C9 

0377 


0 0 57 

SA 

0 1C B 

0 378 



0 0 58 

SQ 

01 CD 

0 3 79 

o 

o 

0059 

VALUE 

0 1C F 

0 380 

0 0 60 

WORD 

01D1 

0 381 


0 0 61 

PAGFNO 

0103 

0382 



0 062 

LST’PGE 

01 D 5 

0 383 

o 

o 

0 063 
0 064 

HINREF 
MAX REF 

01D 7 
01D9 

0 3 84 
0385 


0 0 65 

MINBAS 

0 ID E 

0 386 



0 0 6 6 

A O P A G E 

01OD 

0 387 

o 

o 

0 0 68 

MIMFLG 

0 IE 1 

0 389 

0 069 

MAX SEC 

0 20 G 

0329, 0410 

o 





o 

o 





o 

o 





: ° 

o 





o 

o 





o 

o 





o 


LDP.TBL 


PAGE 


A L 

P H A 

B E T I 

CAL 

SORT 

ABRLSW 

0 08 5 

ADDR 

0 220 

ADJOVi 

BASE 

0116 

BIN A SC 

0161 

BLANKS 

CONI 

0 25 6 

C ONI 0 

0 2 93 

CON11 

CON 7 

0 28 0 

CON 8 

0276 

C0N9 

COUNT! 

0 12 A 

C0UNT2 

0130 

CSNAME 

ECPEP 

0 24 6 

ECREPi 

0247 

ENDINP 

EXT CT R 

0081 

EXIPCH 

0 190 

EXTSTR 

I 

0 00 Q 

IGNORE 

0213 

INMEQ 

INPXCC 

0169 

IS A V 

0 040 

I SCAN 

LINK11 

0050 

LNKCTR 

0216 

LNKENO 

M 8 0 0 0 

017 2 

MAXENT 

0153 

MAXEXT 

MIN REF 

0063 

MODIFY 

0 025 

MONTAB 

NOTLNK 

oiao 

NOTRA N 

0157 

NUMSEC 

PARLIM 

0239 

PGE 

0019 

PGEFLG 

PRNT5 

0047 

PROBAS 

0077 

PROCOM 

RWFLAG 

0055 

SA 

0 057 

SAVEA 

SECTOR 

0 017 

SQ 

0 058 

STOP 

TEMP 

0154 

TEMPI 

0155 

TEMP3 

WRT OUT 

0053 

XCSNAH 

0184 

XFRADR 


18 


DATE’S 08/19/99 


O F 

S Y M B 

O L S 




0 0 44 

AD PAGE 

0066 

AHOLD 

0243 

AINPUT 

0103 

BZSSW 

0127 

CENTAD 

0151 

GEXTAD 

0314 

C0N12 

0 318 

CON15 

0375 

C0N3 

0289 

CONBAS 

0262 

conent 

0033 

C ONMAS 

0183 

CSQCTR 

0227 

CSQLIM 

0 08 0 

CSQSEC 

0 101 

ENOSW 

0 083 

ENTPGS 

0207 

ENTPNT 

0 221 

EXT SWT 

0248 

FLAGS 

0020 

FLGADR 

0185 

INPCTR 

0096 

INPREL 

0088 

INPUT 

0 0 52 

JUMP 

0 25 0 

LDRTBL 

Q 073 

LENGTH 

0217 

LNKLGN 

0023 

LNKSTR 

0215 

LNKTBL 

0231 

MAXPGE 

0235 

MAX REF 

0 06-4 

MAXSEC 

0255 

MSDWCT 

0241 

NAME 

0143 

NEGSW 

0018 

NXTBLK 

0043 

NXTINP 

017 0 

ONTAB 

0 0 56 

PGENUM 

0022 

PGEWRI 

0211 

PRESET 

0 2 24 

PROOAT 

0223 

PROGCT 

0253 

QHOLD 

0249 

S CA NSW 

0108 

SCHTBL 

0051 

SCHXIT 

0 0 42 

STRSEC 

0 24 0 

STRT8L 

0039 

SW6 

0251 

TOP 

0209 

VALUE 

0059 

W MX SEC 

0 2 42 

XFRNAM 

014 0 





0203 

ARTT15 

0193 

ASA V 

013 7 

ASKII 

0 22 9 

CNVERT 

0045 

COMBAS 

0 075 

COMLIM 

0349 

C0N4 

0363 

CON 5 

0374 

CON6 

0036 

CONMS 

0035 

CONMS1 

0034 

CORADR 

0234 

DATBAS 

0 0 76 

DATLIM 

0079 

DIFCON 

0 092 

ENTSEC 

0233 

ENTSTO 

0 218 

ENTST1 

0049 

FLGBS1 

0256 

FLG BSE 

0252 

FLGLGN 

0257 

INPWD 

0087 

TNPXC0 

0165 

INPXC1 

0021 

LENSDT 

0054 

LGEPGE 

0212 

LINK 

0258 

LSSECT 

0048 

LSTPGE 

0 06 2 

M7FFF 

0069 

MFFFF 

0173 

MINBAS 

0065 

MINFL6 

017 7 

NGRLSW 

0191 

NOJMP 

0 15 8 

NOP AGE 

0254 

PAGE 

0225 

PAGENO 

0 061 

PARBAS 

0195 

PRINT2 

0167 

PRNT3 

0 041 

PRNT4 

0244 

QSAV 

0138 

REE T BL 

0030 

REFER 

0147 

SCNINP 

0179 

SCNTRM 

0.17 8 

SCNXIT 

0134 

SYMSTR 

0104 

SYS PGE 

0 20 4 

TBLNUM 
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* LOCORE INITIALIZATION MODULE 1 OF SYS INITIALIZER 

* MASS STORAGE OPERATING SYSTEM VERSION 5.0 

* SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

* COPYRIGHT CONTROL DATA CORPORATION 1976 
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02000013 

11 LOETAB -LENGTH OF ORDINAL NBR TABLE 

02000016 
02000017 
02000018 
0200 0019 
02QOQ02D 
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002000 024 
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020Q0036 
02000037 
002000038 
, 002000039 
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INITIALIZE THE COMMUNICATIONS REGION ICR) 

02000046 

INITIALIZE CR 2 THROUGH $42 



ENT 

11 , OF.TERM 


ENT 

FATE 


EXT* 

TYPEQ 


EXT* 

ENTSTR 


EXT* 

ISA V 


EXT* 

QGOM, R3TART 

00 OD 

EQU 

ENTPNTi 13) 

ooof 

EQU 

INPCTRI 15) 

0 013 

FQU 

SYMSTRf 19) 

0016 

EQU 

SCANS W C 2 2) 

0 028 

EQU 

TABSCHI 40) 

0 0 49 

EQ.U 

INPWRDI73I 

DO 4B 

EQU 

SCANC 75 ) 

0018 

EQU 

W ROC NT I 2 4) 

001C 

EQU 

SW6 (2 8) 

0 0 23 

EQU 

NAME! 35) 

QQ 48 

EQU 

SCNTRM1 72) 

0 0 4E 

EQU 

CS NAME I 78) 

0 0 4F 

EQU 

XCSNAMt 79) 

00 50 

EQU 

INKED (8 0) 

0100 

EQU 

LOETAB (256) 

OQ 7B 

EQU 

CSQCFR! 123) 

0 0 8F 

EQU 

JUMP I 143) 

0 0 93 

EQU 

ONTAB (1 47) 

0 0 94 

E QtJ 

MONTABl 148) 


**MSOS 4. 
**MSGS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 

LOCATION SCNINP ,. M SOS 

**MSOS 
**MSOS 
**M50S 
**MS05 
**M SOS 
**MSOS 
**MSOS 

MAXIMUM NUMBER OF ORDINAL S 

LWA+1 OF PROGRAM COMMAND SEQUENCE STORAGE 

**MSOS 

**HSOS 

**MSOS 


4 
4 , 

4» 

km 

4. 

km 

km 

km 

4. 

4. 

4* 


ADC 

NOP 

STQ 


0 

0 

OE1 


ENTER II VIA AN RTJ 
SELECTIVE STOP DEBUG CELL 
SAVE ADDRESS OF INFUT BUFFER 
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0052 

P0QG4 
PQ 005 

5800 

o oca 

RTJ 

OETERM 

o 

0053 

P0 006 

01 5A 

SON 

CR3 -* -1 

0054 

POO 07 

C14F GR2 

LDA- 

XCSNAM, I 


0055 

POO 08 

61 4E 

STA- 

CS NAME » I 


0056 

PQG09 

0103 

SAZ 

CR2X-*-i 

o 

G 0 5 7 

P 0 0 0 A 

0 A 0£ 

ENA 

14 

00 5 8 

PDOOB 

POOOC 

1800 
0 0 66 

JMP 

OE150 


0059 

P000D 

0AQE CR2X 

ENA 

14 

o 

006 0 

P000E 

08 42 

CL R 

Q 

0061 

P000F 

P0010 

58 00 X 
7FFF X 

RTJ 

TYPEQ 


0062 

POOH 

OOFD CR3 

INO 

-2 

o 

0063 

P 0 0 1 2 

Q 1 45 

SQZ 

CR4-* -1 

0064 

PD 0 13 

0DFD 

INQ 

-2 


0065 

Pfl 0 1 4 

0141 

SQZ 

CR3X-*-l 


0066 

P 0 0 1 5 

1 8 FI 

JMP* 

CR2 

o 

0067 

P0016 

0AFE CR3 X 

ENA 

-1 

0068 

PQ017 

61 50 

STA- 

INMEQ , I 


QG 69 

P 00 1 8 

Cl 8 F CR.4 

LQA- 

JUMP, I 


0070 

P0019 

0101 

SAZ 

CR5— *-l 

o 

0071 

P001A 

1814 

JMP* 

OE7 

0072 

Pfl 01 B 
P0Q1C 

1800 CR5 

0 0E2 

JMP 

OE300 


o 


o 


o 


o 


o 


o 


o 


TEST TERMINATOR 

PREVIOUS CONTROL STMNT NAME CODE 
TO CURRENT 

ZERO IMPLIES FIRST STMNT 
FIELD TERMINATOR INVALID 
INVALID TERMINATOR IF 0 

FIELD TERMINATOR INVALID 

If PE ERROR, Q 

TEST CODE FOR COMMA 

TEST CODE FOR PERIOD 

INVALID TERMINATOR 
PROCESS *Y. OR *YM. 

TO INPUT MEDIUM SWITCH 

NON ZERO IF II ENTERED PREVIOUSLY 

ZERO IMPLIES MOT ENTERED BEFORE 

PROCESS *¥ AND *YM CONTROL STATEMENTS 


02000052 

02000053 
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02000056 
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02000056 

0200 0 059 
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0200 
0200 
0200 
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PRESENT INDEX TO SYS DIR ENTRY 02000079 

AD DR-1 OF ORDINAL NO TABLE 0200 0 080 

02000081 
02000082 


0077 

P001D 

00D0 

OE1 

ADC 

0 

007 8 

P0 DIE 

00 01 

OE 2 

NUM 

$1 

0079 

P 0 01F 

0 0 00 

0E3 

ADC 

0 

008 0 

P0020 

0 0 00 

OE5 

ADC 

0 

008 1 

P3021 

0 8 44 


CLR 

A 

0082 

P0Q22 

6300 


STA 

OE049 


P0 023 

GO A7 




0083 

P0 024 

68 59 


ST A * 

LAST 

0084 

P0 025 

68F8 
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008 5 
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RAO* 
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QQ 8 6 
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I 

00 9 0 

P00 2C 

C8F3 
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A 
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0200 
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GSNAHEt I 
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JMP* 
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o 
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6124 
Cl 15 
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0E99 
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A 
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A 
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TEST FOR "VALID TERMINATOR 
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INVALID TERMINATOR 
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NEG IMPLIES ZERO, COMMA OP BLANK 
SET INPUT MEDIUM SWITCH 
IS ORDINAL NAME SWITCH SET 
ZERO IMPLIES ONS IS RESEI 
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CLEAR A PRIOR TO CALLING SCAN 
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TEST FOR COMMA AS TERMINATOR 

TEST CONSTANT FOR COMMA 
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o 



0196 




* 

TERMINATOR IS 


019 7 





SYSTEM DIREST 

o 

0198 




# 

N 

0199 

P009B 

CO FF 


QE120 

LDA- I 


020 0 

P009C 

8864 



ADD* OEO 5 0 


020 1 

P0G9D 

61 OF 



STA- INPCTR, I 

o 

0202 

P009E 

5128 



RTJ- TABSCH, I 

020 3 

P009F 

C11C 



LDA- SW6,I 


0204 

POOAQ 

0132 



SAM OE121-*- 


0205 

PO DAI 

0 A 11 



ENA 17 

o 

020 6 

POO A. 2 

1320 



JMP* 0E15G 

020 7 

POO A 3 

18 4F 


0E121 

JMP* TEST 


0208 

P0G A4 

£1 4E 


0E122 

ID Q- CSNAM'E , I 


020 9 

P00A5 

C 8 25 



LDA* OEO 49 

o 

0210 

P00A6 

2 A 2 4 



MUI* OEO 49 , 0 

0211 

POO A7 

8 0F7 



ADD- $E7 


0212 

P 0 0 A 8 

6800 



STA 0E3 



P00A9 

FF75 




o 

0213 

POO AA 

6100 



STA- ENTPN T, I 

0214 

POO AB 

E14E 



LDO- GSNAMEf I 


0215 

P0 0 AC 

8 A IE 



ADD* OEO 49,0 


0216 

PC 0 AD 

60E6 



STA- $E6 

o 

021 7 

P0 OAF 

61 7B 



STA- CSQCTR, I 

021 8 





ADD- $EB 


0219 




* 

STA- PRO BA S * I 


022 C 

P00AF 

D81B 



RAO* OEO 49 

o 

0221 

P00B0 

E 8 0 0 



LDQ 0E5 


P00B1 

FF6E 





0222 

PC0B2 

Cl 49 



LDA- I NPWRB, I 


0 22 3 

POO 83 

6201 



STA- 1 , Q 

o 

022 4 

P0 0B4 

D8 0 0 



RAO OE5 


P00B5 

FF6A 





0225 

POOB6 

0 A01 


OE125 

ENA 1 


0226 

POOB7 

6 11C 



STA- SW6 , I 

o 

022 7 

POO B8 

58 0 0 

X 


RTJ ENTSTR 


PG0B9 

7FFF 

X 




022 8 

P00BA 

C8 0E 



LDA* OE042 


0 22 9 

P 0 08 B 

0111 



SAN 0 El 3 0 - * - 

o 

023 0 

P0 0 8C 

1896 



JMP* OEl 0 

0231 

POOBD 

0 8 42 


OE130 

CL R Q 


023? 

POOBF 

48 0A 



ST Q* OEO 42 


0233 

PO DBF 

618F 


OE1 40 

STA- JUMP, I 

o 

023 4 

POOCQ 

1C00 



JHP III) 

023 5 

POOC1 

FF3E 






0236 

P00C2 

0 8 4? 


OE150 

CLR Q 

o 

0237 

PC 0 C 3 

4805 



STQ* OEO 42 

023 3 

P0 004 

4805 



ST Q* OEO 43 


0239 

POOC5 

D18F 



RAO- JUMP,! 


3 24 0 

P00C6 

58 00 

X 


RTJ TYPEQ 

o 


PO 0C7 

0 G 1 0 

X 



0241 




Zf- 



0242 

POOCfl 

0 0 00 


OEO 4? 

ADC 0 


o 


O 


VALID, COMPUTE INDEX TO ENTRY IN 
ORY AND PLACE ORDINAL NUMBER IN ORDINAL 
UMBER TABLE. 

ADDRESS OF CONSTANT TABLE 
ADDR OF ASCII NAME IN CONTAB 

SEARCH LOADER TABLE FOR NAME 
POS 'IMPLIES NAME IN TABLE 

1 

NAME APPEARS PREV IN LOR TABLE 
ERROR 

TEST FOR ILLEGAL ORDINAL NBR 
CONTROL STMNT NAME CODE 
ORDINAL FOR ORDINAL NUMBERS 
TIMES 4 OR 7 

INDEX TO FIRST MASS STG ENTRY 
PRESENT INDEX TO SYSTEM DIR 

INDEX TO ENTRY IN SYSTEM DIR 
CONTROL STATEMENT NAME CODE 
ADD 4 OR 7 

LENGTH OF SYSTEM LIB DIRECTORY 

UPDATE COUNTER TO INCLUDE LENGTH OF 
CORE LOG OF SYSTEM DIRECTORY 
RELOC BASE FOR PROG BEING LOADED 
increment entry count 

ADDR-1 OF ORDINAL NUMBER TABLE 

ORDINAL NUMBER FROM SCAN 
TO ORDINAL EQUIVALENCE TABLE 
POINT AT NEXT ENTRY IN OETAB 

POS NUMBER TO A 

SET ENTRY POINT SWITCH 

PLACE ENTRY IN LOADER TABLE 

IS END OF STATEMENT SWITCH SET 
1 ZERO IMPLIES RESET 

FETCH NEXT ORDINAL NAME 
CLEAR Q 

RESET END OF STATEMENT SWITCH 
SET JUMP SWITCH 


ERROR IF Q = 0 

RESET END OF STMNT SWITCH 

RESET ORDINAL NAME SWITCH 

SET ENTRY SWITCH 

TYPE ERROR AND Q, COMM MED 

RETURN TO CONTROL MODULE 
END OF STATEMENT SWITCH 


O 


02000196 
02000197 
02000198 
0200 Q 199 
0200 0200 
02000 201 
02000202 
02000203 
0200 0 204 
0 200 0 20 5 
02000206 
02000207 
0200 0206 
0200 0209 
0200 0210 
02000211 
02000 212 

02000213 
0200 0214 
02 00 Q 21 5 
02 00 0 216 
02000 217 
02000218 
02000219 
02000220 
02QQ0221 

02000222 
0200 0 223 
0200G 224 

02000225 
0200 0 226 
0200 0 22 7 

0 200 0 22 8 
0 20 0 0 22 9 
02 00 0 23 G 
020 0 0 231 
02000232 
0 2000 233 
0200 0234 

02000235 
02000 236 
02000237 
02000238 
02000239 
02000 240 

02000241 

02000242 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Q 



11 



PAGE 6 

DATE’S 08/19/99 


f S 

r j 

( j 

0243 

P00C9 

0 0 00 

OE043 

ADC 

0 

ORDINAL NUMBER SWITCH 

02 Q 0 0 243 

t>»~ i 


0244 

pooca 

0 0 00 

0EQ49 

NUM 

0 

ORDINAL FOR ORDINAL NUMBERS 

02000244 


o 

0245 

P 0 DC 3 

0 0 04 


NUM 

$4 

MULTIPLICATIVE CONSTANT 

02000245 

o 

D 2 4 6 

POOCC 

0 0 07 


NUM 

$7 

MULTIPLICATIVE CONSTANT 

0200 0 246 


02 4 7 





0200 0 247 



0248 



* 




02000243 


o 

c?49 



* * Sfjftfif ¥■*■*■* V* ¥¥■*-?■*■** WJ 

*****•■*0200 0 249 

o 

0250 



* 

RETURN TERMINATOR CODE IN Q REGISTER 

020 0 0 25 G 


0251 



* * stmt******* **** ^^t*.*******.** ******* ******* * 0251 



0252 

pooeo 

00 00 

OETFRM 

ADC 

0 

DETERMINE IF TERMINATOR IS VALID 

02000252 


o 

0253 

POOCE 

Cl 48 


LDA- 

SCNTRM, I 

FETCH TERMINATOR 

0200 0253 

o 

0254 

PGOCF 

0 8 64 


TCA 

A 

COMPLEMENT 

0200 0254 


0255 

POODO 

0920 


INA 

$20 

TEST FOR BLANK 

02000255 



0256 

POODi 

0112 


SAN 

OET20-*-! 


02000256 



0257 

P00D2 

0003 


ENQ 

3 

CODE FOR SPACE 

02000257 

o 

V -.J 

0258 

P00D3 

1CF9 


JMP* 

I0ETERM1 


02000 258 


025 9 

P00D4 

0 9 OC 

OET 20 

INA 

$C 

TEST FOR COMMA 

0200 0259 



0260 

PO 0 05 

0112 


SAN 

OET30- 1 


0200 Q26G 


o 

0261 

PG0B6 

0002 


ENQ 

2 

CODE FOR COMMA 

02GQ0261 

o 

0262 

P00D7 

1CF5 


JMP* 

10ETERM.) 


0 200 0 26 2 


0 26 3 

PC0D8 

0902 

OET30 

INA 

2 

TEST FOR PERIOD 

0200 0 263 



0264 

P 0009 

0 112 


SAM 

OET 40-*- 1 


02000264 


o 

0265 

PGODA 

0004 


ENQ 

4 

CODE FOR PERIOD 

02000265 

rr 

0266 

POODB 

1 CF1 


JMP* 

(OF TERM) 


02000266 



0267 

POODO 

E 8 0 7 

OET 40 

LOG* 

OET 6 0 

TEST FOR CARRIAGE RETURN 

0200 0 267 



026 8 

POOOD 

0 8 34 


AAQ 

A 


0200 0 268 


o 

0269 

POODE 

0112 


SAN 

QET50-*--! 


02000269 

O 

0270 

POODF 

0 C 01 


ENQ 

1 

CODE FOR CARRIAGE RETURN 

0 20 0 0 27 0 


0271 

P0GE3 

1C EC 


JMP* 

IOETERM1 


02000271 



027 2 

PGQE1 

0 8 42 

GET 50 

CL R 

Q 

INVALID TERMINATOR CODE 

02030272 


o 

0273 

PG0E2 

1 GEA 


JHP* 

(QETERM1 


02000273 

o 

0274 

PD0E3 

OOD1 

O ET 60 

NUM 

$D1 

CARRIAGE RETURN TEST CONSTANT 

02000274 


0275 


¥ * ****•«**•****¥»*:?***.?* *9 ******* *¥*»***?.** ***¥•* ******* **************** 02 -nr. 27 c, 



027 6 



* 

TEST 

FOR MORE THAN 120 CHARACTERS 

02003276 


o 

027 7 



* **************** ♦**»*-**»****«*»*#»»****»**4»»»**«**«****»***»****o2Q0 0 27 7 

o 

027 8 

PG0E4 

OQ OD 

OECHAR 

ADC 

0 

TEST FOR 120 OR LESS CHAR 

0 20 0 Q 278 


0279 

P 0 0 £ 5 

0118 


LO A — 

WRDCNT-, I 

CELL CONTAINING WORD COUNT 

02000279 



0 28 0 

P00E6 

OF 41 


ARS 

1 


02000280 


o 

0281 

P0 0E7 
PO Ot 8 

9800 
FF 34 


SUB 

OE1 

BASE ADDRESS OF INPUT BUFFER 

02000281 

o 


0282 

P00E9 

0 822 


TRA 

Q 


02000282 



0283 

POOFA 

0 8 32 


AAQ 

Q 

2 * DIFF 

02000283 


o 

0284 

POOEB 

OQQi 


INQ 

1 

PLUS 1 

02000284 

o 

0285 

PO DEC 

0 A 01 


ENA 

1 


0200 0 285 


028 6 

POOEO 

A 118 


AND- 

WRDCNT, I 


02000286 



0287 

POQEE 

0834 


AAQ 

A 

ADD 1 FOR RH CHAR 

0200 0 287 


o 

0288 

POOEF 

0864 


TC A 

A 

-CHAR COUNT 

0200 0288 

o 

0289 

POQFO 

0978 


INA 

120 

PLUS 120 

02000289 


G 29 0 

P 00 FI 

1GF2 


JMP* 

(OECHAR) 


02000290 



0291 

* * **** ******** ** ** ************* ************************* 0 291 


o 

0292 



* 

TEST 

FOR INVALID 

ORDINAL NUMBER 

0200 Q 292 

o 

0293 



* *** ** ******* ******* Q 2 Q 0 0 293 


0294 

P00F2 

Cl 49 

TEST 

L DA- 

INP WRD, I 

SCAN NUMBER 

02000294 


o 









o 

o 









o 

] 



o 

o 

o 


o 

o 


02000295 
02000296 
02000297 
02000 298 
02000299 
0200 0 30 0 
0200 030 1 
02000302 
02 000303 
O2GQ 0 304 
02000 305 
02000306 

02000307 
0200 0 308 
0200 030 9 
**MSOS 4*1**02000310 

02000311 

02000 312 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


II 


PAGE 


8 


DATE: 08/19/99 


EQUIVALENCES 


DEF .LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 


0 00 0 

I 

00FF 

(000255) 

0 089, 

0199 



0 022 

ENTPNT 

00 0 0 

( 0 000131) 

0213 




0 023 

INPCTR 

0 0 0 F 

( 0 000155 

0 201 




0 02 4 

SYMSTR 

0013 

(000019) 

0 130, 

0171, 

0173, 0175, 

0179 

0 02 5 

SC A NSW 

0016 

(000022) 

0127, 

0183 



Q 026 

TABSCH 

0028 

(000040) 

0 202 




GO 2 7 

INF WRQ 

00 49 

(000073) 

0 22 2, 

0294, 

0 3 03 


0 0 28 

SCAN 

DC4B 

l 0000755 

0129, 

0 178 



0 0 29 

WRRCNT 

0018 

(0 000245 

0124, 

0279, 

0286 


0 030 

SW6 

001C 

(000028) 

0 203, 

0 22 6 



0 031 

NAME 

0023 

( G0Q035) 

0 172, 

0174, 

017b, 0307 


0 032 

SCNTRM 

0048 

( 0000725 

0253 




0 0 33 

CSN AME 

004E 

(000078) 

0 0 55, 

0 0 9 8, 

0122, 0208, 

0 214 

0934 

XCSNAM 

00 4F 

( 0 0 0 D 7 9) 

0054, 

oio e 



0035 

INMFD 

0050 

(000030) 

0068, 

0092, 

0095, 0155 


0036 

LOETAO 

0 10 0 

{ 0Q0256 ) 

0308 




0 037 

CSQCTR 

00TB 

ID 0 0123) 

Q 2 1 7 




0 038 

JUMP 

0 0 8 F 

(0001435 

0 0 69 , 

0 23 3 , 

0239 


0 039 

ONTAB 

009 3 

( 0 00147) 

0 Q 91 , 

0102, 

0110 


0 040 

MONTAB 

0094 

(0 001483 

0103, 

0117 




o 






O 
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PAGE 9 

DATES 

08/19/99 

r< 

•w 






□ 

O 

S Y M B 0 

L S 




o 







o 

BEF , LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

o 


0 016 

11 

000 0 

0016, 0234 




0 016 

OETHRM 

OOC'D 

0016, 0052, 

0138, G 1 49 , 

0192, 0258, 0262, 0266, 0271, 0273 

o 

0017 

FATE 

0201 

0017 


0 054 

CR2 

00 0 7 

0 066 


o 


0 059 

CR2X 

0 0 0 D 

0 056 



0062 

GR3 

0011 

0 0 53 



o 

006 7 

GR3 X 

0016 

0 0 65 


p 

0 069 

CR4 

0018 

0 0 63 



0 072 

GR5 

0 0 1 B 

0 070 




0 077 

051 

0010 

0051, 0119, 

0281 


o 

0 078 

0E2 

0 0 1 E 

0084, 008 5, 

0 Q 9 7 , 0116 

o 

0079 

0E3 

001F 

0 086, 011 2, 

Q 212 


0 0 80 

0E5 

0020 

0090, 0118, 

0221, 0224, 

0 30 6 


0 092 

0F7 

0 0 2 E 

0 0 71 



o 

0 097 

0E7X 

0 03 4 

D 0 93 


o 

oici 

0E7XX 

0038 

0099 



0 110 

0E7XY 

0043 

0107 



0112 

0E7 Y 

0045 

0109 



o 

0116 

0E7Z 

004 A 

0 111 


o 

0 119 

0E8 

004D 

0100 



0 12 6 

0E1 0 

0053 

0 230 




0 13 4 

OF! 5 

00 5 B 

81 31 



o 

013 6 

0 E 2 G 

0050 

0133 


Q 

0138 

0E.3Q 

0 0 6 C 




0141 

0E3 5 

006 4 

0 139 



0 144 

0^4 Q 

0067 

0137, 0142 



o 

0145 

0E5G 

006 8 

0195 


O 

0 149 

0E6 0 

0 0 6 D 

0146 



0 1.51 

OE6 2 

0070 

0 140 




0 15 3 

0 E65 

0072 

0150 



o 

0156 

0 E 7 0 

0 0 75 

G 154 


O 

0 162 

OE8 0 

G076 

0157 



0165 

LAST 

0070 

0 08 3, 0 10 5, 

0298, 0304 



0 169 

OF 9 0 

0 0 7 F 

01 43 



o 

0179 

0E9 2 

00 88 



O 

0183 

0E99 

0G8C 

0180 



0188 

OE1 00 

0092 

0185 




0 192 

0 F 1 1 0 

00 97 

0189 



o 

0 199 

0 E 1 2 0 

0096 

0163, 0194 


O 

0207 

0E121 

0 0 A3 

0 204 



0 208 

OE122 

00 A 4 

3305 



o 






O 

o 






O 

o 






O 


— 

— 

• 



— 

- - 


o 


o 
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PAGE 10 



DATEi 

08/ 19/9 9 

0 225 

OE125 

0 0 B 6 







0 231 

OE130 

OOBD 

0 229 





o 

0233 
0 23 6 

0 El 40 
0 El 50 

OQBF 
Q OC 2 

0 096 
0 058 , 

0135, 

0148, 

0152, 

0161, 0182 


0 242 

OEO 42 

0 0 C 8 

0162, 

0 228, 

0232, 

0 2 37 



0 243 

OEO 43 

00C9 

0144, 

0 156, 

0159, 

0 170, 

0 23 8 


0 244 

OEO 49 

OOCA 

0 082, 

0 101, 

0108, 

0113, 

0209, 0210 

o 

0 259 

OET20 

0004 

0 256 






0 263 

OET30 

00 08 

0 260 






0267 

OET40 

■0 0 D C 

0 2 64 





o 

0272 

OET50 

0QE1 

0269 





0 274 

OET60 

0 0 £3 

0 267 






0 278 

OECHAR 

OOE 4 

0 136, 

014 5, 

0 188, 

0 290 



0 294 

TEST 

0 OF 2 

0207 





o 

0 298 

TEST10 

9 0 F 6 

0295 





0303 

TEST20 

OOFB 

0 300 






0 30 6 

OE300 

OOFE 

0 072 






0 30 7 

OEO 50 

010 0 

0 2 DO 





o 

0308 

OET AB 

0101 







o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0187* 0 191 1 0206, 0297, 0302 ^ 

0 215, 0 220 Q 

O 
o 
o 
o 
o 
o 
o 
- o 
o 
o 
o 
o 

o 
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PAGE 11 

DATE* 08/19/99 

X T E R 

N A L S 




D£F .LINE 

NAME 

VALUE 

REFERENCED AT 

LINE NUMBER 

0 018 

TYPER 

0 0C7 

0061, 0240 


0019 

ENTSTR 

0089 

0227 


0 020 

I S A V 

002A 

0 038 


0 021 

QCOH 

0203 

0310 


0 0 21 

R'START 

0205 

0311 




II 


PAGE 12 


* » & p l 

P H A 

B E T I 

CAL 

SORT 

O F 

CR 2 

0054 

CR2X 

0 059 

CR3 

0062 

ENT STR 

0019 

FATE 

0017 

I 

0 0 00 

LAST 

0165 

LOETAB 

0 036 

MONTAB 

0 0 40 

0E1 0 

012 6 

0 El 0 0 

0 188 

oEiia 

0192 

OE15 

0134 

OE150 

0236 

0E2 

0078 

OE5 

008 0 

0E5 0 

0145 

0 E60 

0 149 

OF7XY 

0110 

0E7Y 

0112 

0E7Z 

0116 

OET20 

0 25 9 

0ET30 

0 263 

OEF40 

0267 

RSI ART 

0021 

SCAN 

0 028 

SCA NSW 

0 0 25 

TEST20 

0303 

TYPECI 

0018 

WRDCNT 

0 0 29 


DATEi 08/19/99 


SYMBOLS *** 


C R3X 

0067 

CR4 

0069 

CR5 

0 072 

11 

0016 

INMED 

0035 

I NPCTR 

0023 

NAME 

0031 

0ED42 

0242 

OE043 

0243 

O El 2 0 

0199 

O El 21 

020 7 

0E122 

0 208 

OE2Q 

0136 

0E3 

0079 

OE3 0 

0138 

O E62 

0151 

0E65 

0153 

OE7 

0092 

0E8 

0119 

OE8 0 

0162 

0E9 0 

0169 

O FT 5 0 

0272 

OET6 0 

0 274 

OETAB 

0308 

SCN'TRM 

XCSNAM 

0032 

0034 

SW6 

0030 

SYMSTR 

002 4 


CSNAME 

0 033 

CSQCTR 

0037 

ENTPNT 

00 22 

INPWRD 

00 27 

I S A V 

0020 

JUMP 

0038 

OE049 

0244 

OE050 

0307 

OEl 

0077 

0E125 

G225 

OEl 3 0 

0 231 

OE140 

0233 

OF300 

0306 

0E35 

0141 

0E4 0 

0144 

OE70 

0156 

0E7X 

0 097 

0E7XX 

0101 

0E92 

0179 

0E99 

0183 

OECHAR 

0278 

OETERM 

0016 

ONTAB 

0 039 

Q CO M 

0021 

TABSCH 

0026 

TEST 

0294 

TEST10 

0298 


I? 


PAGE 


1 


DATE'2 08/19/99 


NAM 12 DECK-ID 021 MSOS 5.0 

INITIALIZER CONTROLLER FOR DISK/ DRUM AUTOLOAD 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-11 002100 00 1 
AREA 02100002 

02100003 

0 210 000 4 

021000C5 


00 A3 
00 4 A 
00 4 5 

0046 

0047 
0043 
00 49 
0 D 5 D 


P0 0 0 Q 
P0 001 
PQ0Q2 
P0003 
PD004 
P00 05 
P 0 0 0 6 
P 0 0 07 
P0 00 3 
P0Q09 
P 0 0 0 A 
PO 0GB 
P0 00C 
PDOOD 
PO OQE 
POQGF 
POQ10 
POOH 
PO 01 2 
PO 0 13 
P'0014 
PO 01 5 
POO 16 
POO 17 
P 0 0 18 
PO 0 19 
poaiA 
PO 01B 
P001C 
POOIO 
PO OIF. 
PO OIF 


OBOO 
0101 
18 09 
6819 
1800 
7FFF 
08 00 
4813 
8 8FD 
6812 
1CF5 
68 14 

0 C 0 3 
CA OF 
6 E on 

01 42 
ODFE 
18 FB 
OCOQ 
40 FF 
E 8 0 6 
0 8 52 
C8EF 
58 0 0 
7FFF 
1CE6 
QB 00 
00 Q 0 
0000 
0 0 00 
00 0 0 
0 0 00 


****************** ***** ********************* ******************* *****.****0210 oao 7 

* ENTRY PARAMETERS *02100008 

* <A) = 0 - INITIALIZE DRIVER *02100009 

* !A) = ADDRESS OF STMSV4 IN MSOS SPACE*0210 0 010 

*********************************** * *** ****** * * ** *****************0210 0 Oil 


FIRST 


12 RET N 


IOTYPE 

LOOP0T 


GOON 


LENGTH 
PUTTER 
PARTI C 
PARTI L 
PARTI A 
STMS.V4 


ENT 

ENT 

ENT 

EXT* 

EXT* 

EXT* 

NOP 
S AZ 
JMP* 
STA* 
JMP 

NOP 

STQ* 

ADD* 

STA* 

JMP* 

ST A* 

ENQ 

LD A* 

ST A* 

SOZ 

INQ 

JMP* 

END 

STO- 

LDQ* 

TCQ 

LD A* 

RTJ 

JMP* 

NUM 

NUM 

NUM 

NUM 

NUM 

NUM 

END 


12 

I2RPTN 

PART 1 A-, PARTI L ,PART 1C 
OU 

MMINIT DRIVER ENTRY 

MDRIV IN MDRIV 


MASS MEMORY SETUP 


FIRST- * - 1 
IOTYPE 
PAR TIC 
MMINIT 


LENGTH 

I2RETN 

PUTTER 

TIZ) 

STNSV4 

3 

®ART 1 C » Q. 
f PUTTER ) ,Q 
GOON- *- 1 

-1 

LOOPOT 

0 

I 

LENGTH 

0 

I2RETN 

MDRIV 

C 120 
0 
0 
0 
0 
0 
0 


SKIP IF DRIVER INITIALIZATION 

CLEAR PART 1 CORE IMAGE SECTOR NO. 
GO TO SETUP AUTOLOAD AREA POINTERS 


0210 

0210 

0210 

0210 

0210 

0210 

0210 

0210 

0210 

0210 

0210 

0210 


0013 

0014 

0015 

0016 

0017 

0018 
0019 
0020 
0 021 
0022 
0 023 
0 024 


ADDRESS OF THE AUTOLOAD 
LENGTH OF THE AUTOLOAD 

TABLE ADDRESS IN THE AU 
EXIT 


MOVE THE TABLE TO 
THE AUTOLOAD PROGRAM 
SKIP WHEN ALL MOVED 


SET FOR. AUTOLOAD AREA SECTOR ZERO 
LENGTH OF AUTOLOAD PROGRAM 


F W A B 

WRITE OUT AUTOLOAD PGM 


PROGRAM 0210 0 025 

PROGRAM 021 OC 026 

02100027 

TOLOAD PROGRAM 02100028 

02100 029 
02100030 
02100031 
02100032 
02100033 
0210 0 034 
02100035 
0210 0036 

ECTOR ZERO 02100037 

02100038 

RAM 68*1529 02100039 

02100G4C 
0210 0 041 

SECTS 0-4 **MS0S 4.1**02100042 


68*1529 


EXIT 

LENGTH OF AUTOLOAD PROGRAM 

STARTING SECTOR ADDRESS OF PART 1 IMAGE 

MODIFIED LENGTH OF PART 1 

MODIFIED CORE AOORESS OF PART 1 

ADDRESS IN SPACE WHERE TO MOVE THE AUTOLOAD 


O210i 
02101 
02101 
0210 l 
0210: 
0210 l 
02101 
0210 


PGM = 00 20 


COM = 0000 


DAT = 0000 


12 PAGE 2 DATE'S 08/19/99 

o O 

Q EQUIVALENCES Q 

q DEF .LINE NAME VALUE REFERENCED AT LINE NUMBER Q 

0 000 I DOFF ( QC 0255) 0038 

O o 

o O 

O o 

O o 

o . O 

o o 

O . o 

O ; O 

o o 

o O 

o O 

o O 

o o 


DATE: 08/19/99 


12 PAGE 3 


SYMBOLS 


DEF.LINE 

NAME 

ADDRESS 

0 013 

12 

00 0 0 

0 014 

I2RETN 

0006 

0 015 

PART1A 

0 0 1 E 

0015 

PART1L 

0 0 ID 

0 015 

PART1C 

001C 

0 0 23 

FIRST 

00 03 

0 030 

IOTYPE 

0 0 0 B 

0 0 32 

LOOPDT 

00 0 D 

0 03? 

GOON 

0012 

0 044 

LENGTH 

oaiA 

0 045 

PUTTER 

0 01 B 

0 0 49 

STMSV4 

0 0 1 F 


REFERENCED AT LINE NUMBER 


0013, 

0029, 

0 043 

0 014, 
0 015 
0015 

0 D 27, 

0 041 

0 015 , 
0021 
0 022 
0 036 
0 0 34 

0023, 

0 032 

0026, 

0 03 9 


0 028, 
0 030 

0 033 



o 





(J 



I? 
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□ 

O ; 

E X T E R 

N A L S 



o 

o 

DEF .LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

o 


0 016 

OU 

7FFF 




0017 

H HI NIT 

00 0 5 

0 0 2 A 


O 

0 018 

MDRIV 

0018 

0 0 42 

o 

O 





o 

O 





o 

O 





o 

O ‘ 





o 

o 





o 

o 





o 

O ' 





o 

o 





o 
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o 
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o 

o 





o 

o 
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DATE; 08/19/99 


*** A L 

P H A 

n E T I C A L 

SORT 

0 F 

S 'Y M B 

0 L S 







FIRST 

MMINIT 

0023 

0017 

GOON 0037 

OU 0016 

I 

PARTI A 

0 0 00 
0 0 15 

12 

PAR TIC 

0013 

0015 

I2RETN 

PART1L 

0014 

0015 

I OTYP'E 
PUTTER 

0030 

0045 

LENGTH 

STMSV4 

0044 LOOPDT 0032 MDRIV 
0049 


MORI V 


PACE 


1 


DATE: 08/19/99 


000 1 
000 2 
00 03 
DO 0 4 


00 08 
0 0 D 9 
0010 

0011 P0000 GOOD 

0012 P0001 4800 X 
P00G2 7FFF X 

0013 P0003 E 8 0 0 X 
P00G4 7FFF X 

0014 PO 0 0 5 5800 X 
P0006 7FFF X 

0015 PG0C7 1CF8 

0016 


MDRIV 


NAH HDRIV DECK-ID 022 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM 'VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

MASS STORAGE DRIVER CONTROLLER FOR SYS INITIALIZER 
ENT MDRIV 

EXT * OU, QSAVEGUPROCES 


QSAVEQ 


PROGES 


HASS STORAGE OUTPUT PROCESSOR 


OUTPUT LOGICAL UNIT 
PROCESS THE READ REQUEST 


JMP* (MDRIV) 
END 


SUMMARY-11002200 001 
02200002 
02200003 
0220000-4 


02200006 

0220 0008 
02200009 
02200010 
02200011 
02200012 

02200013 

02200014 

02 20 Q 0 1 5 
02200016 


PGM= 0008 ( 


COM = 0000 { 


DAT = 0000 ( 



o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


MORIV 


PAGE 


3 


OATES 08/19/99 


; y m b o 

L S 



DECLINE 
0 0 08 

NAME 
NOR IV 

ADDRESS 

0000 

REFERENCED AT LINE NUMBER 
0008, 0015 


o 


MDRTV 
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□ 

o 

E X T E R 

N A L S 



O 

n 

DEF.LINE 

NAME 

VALUE 

referenced at line number 

o 


0 009 

OU 

00 0 A 

0 013 



0 009 

QSAVEQ 

0 0 0 2 

0012 


o 

0 0 09 

PROCES 

000 6 

0 014 

o 

o 





o 

o 





c 

o 





o 

O ' 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 


o 


o 


n 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


HDRIV PAGE 5 DATES 03/19/99 

*** ALPHABETICAL SORT OF SYMBOLS *** 

I 0000 MORI V 0 0 D 8 OU 00 09 PROCES 0009 QSAVEQ 0009 


O 

o 

O 

O 

O 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


G 

Q 

O 

O 

O 

o 

o 

o 

o 
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o 

o 

o 


o 


o 

o 


IDRIV 


PAGE 


DATES 0 8/1979 9 


000 1 
000 2 


* 

00 03 


* 

00 0 4 


* 

00 0 5 


'* 

00 0 8 


* 

000 9 



001 0 


* 

0011 


* 

0012 


* 

0 D 1 3 


* 

0014 


* 

0015 


* 

0016 


* 

0017 


* 

0018 


******* 

0019 


* 

002 0 


* 

00 21 


* 

00 2 2 


* 

0023 


* 

002 4 


* 

0025 


* 

00 2 6 


’* 

0027 


* 

002 8 



0029 

0031 
003 2 
0033 
003 4 
003 5 
003 6 

DO 5A 


0037 

0 0 33 


0033 
0 C 3 9 

0040 

0041 

0042 


******* 

0043 


* 

0044 


* 

0045 


* 

0046 


* 

0047 


* 

004 8 


* 

0049 


******* 

005 0 


* 

005 1 


* 

005 2 


* 


NAM IDRIV DECK-ID 023 MSOS 5.0 

INPUT DRIVER CONTROLLER FOR SYSTEM INITIALIZER 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-11002300 001 
02300002 
023 G 0 0 0 3 
023 0 0 0 0 4 
02300005 


PROCEDURE FOR INSERTING AN ADDITIONAL INPUT OR MASS 
STORAGE DRIVER INTO THE SYSTEM INITIALIZER. 

1. PLACE AN ADDRESS CONSTANT IN .TABLE. FOR THE DRIVER. 

2. PROVIDE AN EXT* BY THE SAME NAME. 

3. MODIFY THE .MAXLU. PARAMETER IF THE SIZE OF .TABLE 
CHANGES. 


y q. if. Xf. 3f. If. if. if •¥ V- -**=?■» ^ ^ V- V 

ERROR MESSAGE FORMAT IS 

L , X X FAILED YY (7ZZZ5 
ACT ION 

WHERE 

XX = LOGICAL UNIT 

YY = ERROR CODE (AS DEFINED FOR MSOS DRIVERS'} 
ZZZZ = LAST HARDWARE STATUS 


ENT I2MZV4 


LOCATION FOR 'MSIZV4* 


***MS0S 
**HS0S 
**MS0S 
**MSOS 
**MS0S 
* *15 SOS 
**MS0S 
**HSG5 
**MS0S 
**MSOS 
***MSOS 


0 230 
0230 
0230 
0230 
0230 
0230 
0230 
0230 
0 230 
0230 
f 0230 
4.1**0230 
4.1**0230 
4.1**0230 
4. 1**0230 
4.1**0230 
4.1**0230 
4.1**0230 
4.1**0230 
4,1**0230 
4.1**0230 
0230 


0 008 
0 Q 0 9 
0010 
0011 
0012 
0 013 
0 014 
0 015 
0016 
0 017 
0318 
0019 
Q02C 
0 021 
0 022 
0 023 
0 024 

0025 

0026 
0 027 
0028 
0 029 


ENT 

ENT 

ENT 

ENT 

ENT 

EQU 

EQU 

EXT* 

EXT* 

EXT* 

EXT* 


FROCES 


UNIT TABLE 


IDRIV, QSAVECU 
SIB, MASS 
C OL U 

TABLE LOGICAL 

MESG 

CONVRTI 901 BINARY/ASCII CONVERSION 

8INASCC51) STORAGE OF ASCII CODE FROM CONV. 

I N» QPTAPE, QCA RD ,QMTAPE, QMASS 
TTY OUT, OPR I NT , QCOM 

TELOUT ENTRY TO TELETYPE DRIVER 

ISA V 

***»*»*¥*. * *****-****•**********.***** **** 


**MSOS 
**MSO S 


4.1** 

4,1** 


**MSG S 4.1** 


DRIVER ERROR RETURN 
•1A) = 0 

(Q) = ERROR CODE 

(I) = LAST HARDWARE STATUS 

** ** * ** if if 9- ** * * ******** *** ****** 

NOTE,. THE FOLLOWING PARAMETERS DETERMINE WHAT 
STANDARD FOR THE INITIALIZER 


******»**MSQS 4.1** 
**MSOS 4.1** 
**M SO S 4.1** 
**MSOS 4.1** 
**MSOS 4.1** 
**MSOS 4.1** 
**MSOS 4,1** 
*********HSOS 4.1** 
IS CONSIDERED 


02300031 
02300032 
02300033 
02300034 
02300035 
02300036 
02300037 
0230 0 038 
02300039 
02300040 
02300041 
02300042 
02300 043 
02300044 
02300 045 
02300 046 
0 230 0 047 
023000*8 
02300040 
02300050 
02300051 
0230 C 05 2 


G 

□ 

O 

o 

o 

o 

G 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 




IDRIV 
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00 53 


00 03 



EQU 

ILIH3T 

STANDARD INPUT (HAG TAPES 

**MSOS 4.1**0230 0 053 

0054 


0 0 0 4 



EQU 

MSLUIP) 

STANDARD NASS STORAGE 

0 23 G 0 0 5 4 

0055 


00 06 



EQU 

CLU (6 ) 

STANDARD COMMENT (TELETYPES 

**MSO S 4.1**0230 0055 

0056 


0 0 0 8 



EQU 

MAXLU (8 ) 

MAXIMUM QUANTITY LOG. UNITS 

**M SO S 4.1**02300 056 

00 5 7 




* 




0230 0 057 

00 5 8 

POOOO 

0 0 D 3 


SIB 

ADC 

ILU 

INPUT LOGICAL UNIT (STANDARD) 

02300058 

0059 

P0QG1 

00 04 


HASS 

ADC 

HSLU 

OUTPUT LOGICAL UNIT (STANDARDS 

02300059 

0060 

P0002 

00 06 


COLU 

ADC 

CLU 

COMMENT OUTPUT L.V. (STANDARDS 

**M SO S 4.1**02300050 

0061 

P 0 0 0 3 

0 0 00 


IDRIV 

ADC 

0 

INPUT REQUEST PROCESSOR 

02300061 

0 0 6 2 

POO 0 4 

4856 



STQ* 

QSAVEQ 

SAVE Q REGISTER 

0230 0 062 

0063 

PD 0 0 5 

E80 0 

X 


LDQ 

IN 

INPUT LOGICAL UNIT 

0 230 0 063 


P 0 0 0 6 

7FFF 

X 





0 0 6 4 

POO 0 7 

5802 



RTJ* 

PROCES 

READ A RECORD 

0230 0 06i- 

0065 

POO 08 

1 CF A 



J HP* 

(IQRI V) 

RETURN TO USER 

02300 065 

0066 








02300 066 

0067 

P00G9 

0 09 0 


PROCES 

ADC 

0 

COMMON I/O PROCESSOR 

02300067 

0068 

PQOGA 

4852 



STQ* 

LU 

SAVE LOGICAL UNIT NUMBER 

023 0 0 05 8 

0069 

PDQOR 

68 4F 



STA* 

ASAVEA 

SAVE A REGISTER 

02300069 

DO 70 

POOOG 

GOFF 



LDA- 

I 


02300 C7C 

0071 

POOOO 

634E 



STA* 

ISAVEI 


0 230 0 071 

007 2 

POOOE 

F A 54 



A DQ* 

TABLE, Q 

DELTA FOR DRIVER FROM TABLE 

02300072 

0 0 7 3 

P 0 0 0 F 

E 0 0 0 



AD Q 

= XT ABLE- 

RTJ-1 

02300073 


P0010 

0 0 46 







0074 

PQQ11 

48 0 B 



STQ* 

RTJ+1 


0230 0 074 

007 5 

P0012 

E3 4A 



LDQ* 

LU 


02300075 

0076 

P0013 

CA4F 



LDA* 

TABLE, Q 

TEST FOR DRIVER NOT PRESENT 

02300076 

0077 

P0014 

9000 



SUB 

=N$7FFF 


02300077 


P0015 

7FFF 







0 0 7 8 

P 0 0 16 

010 A 



SAZ 

ERRO-*- 1 


02300078 

007 9 

P0D17 

C844 


RRPP 

LDA* 

IS A VE I 


O23G 0 079 

008 0 

P0013 

60 FF 



STA- 

I 


02300080 

0081 

PD019 

C8i*0 



LDA* 

ASAVEA 


02300081 

00 82 

POO 1A 

E 8 40 



LDQ* 

QSAVEQ 


02300082 

0033 

P001B 

5800 


RTJ 

RTJ 

ERR 


0230 0 083 


PQQ1C 

00 0 4 







0084 

POOIO 

0103 



SAZ ERRO-*-i 


02300084 

008 5 

POOIE 

1 CFA 



JMP* 

(PROCESS 


0230 0 085 

003 6 






THIS WORD MUST FOLLOW THE RETURN EXIT AND 

i THE EXIT 0 2300086 

0087 




* 


'(JMP* (PROCES) ) MUST BE 1 WORD INSTRUCTION 02300087 

0 08 8 






THIS CHANGE IS NOT THE BEST BUT IT IS MINIMUN 02300088 

0 Q 8 9 

PO OIF 

0 0 00 


I2MZV4 

NUM 

0 

* MS IZV4 ' TO BE PASSED BY *€ONTRL' 

02300089 

009 0 




9 




02300090 

0091 

PO 02 0 

0 0 0 0 


ERR 

ADC 

0 


02300091 

0092 

P 0 02 1 

0814 


ERRO 

TRQ 

A 

ERROR CODE TO A 

**HSOS 4.1**02300092 

00 93 

PD 02 2 

5849 



RTJ* 

BA 

BINARY/ASCII CONVERSION 

**M50S 4.1**02300093 

0094 

PO 0 2 3 

6814 



S T A* 

ERNUM 

PUT ASCII ERROR CODE IN MESSAGE 

**MSOS 4.1**02300094 

0095 

P0024 

G838 



LOA* 

LU 

LOGICAL UNIT 

**HSOS 4.1**02300095 

0096 

PGD25 

5846 



RTJ* 

BA 

BIN/ASCII CONV. 

**MSOS 4.1**02300096 

0097 

PO 0 2 6 

68 OC 



STA* 

ERLU 

PUT ASCII L.U. IN MESSAGE 

**MSOS 4.1**02300097 

0098 

POO 27 

GOFF 



LDA- 

I 


**HSQS 4.1**02300098 

0099 

PQ028 

E8 GO 

X 


L DQ 

ISAV 

RESTORE POINTER TO LOADER TABLE 

**MSOS 4.1**02300099 


PO 0 29 

7FFF 

X 






Q 1 0 0 

P 0 02 A 

40 FF 



STQ- 

I 


**MSQS 4.1**02300100 





IDRIV 



PAGE 3 

DA TEi 

08/19/99 

0101 

P002B 

51 5A 



RTJ- 

GONVRT, I 

CONVERT STATUS 

TO 

ASCII 

GIG 2 

P0 0 2C 

C 1 3 3 



LDA- 

BINASC, I 

SAVE STATUS IN 



0103 

PD 0 2D 

68 OG 



STA* 

OVSTTS 

MESSAGE 

010 4 

P0 02F 

Cl 34 



LDA- 

BINASOi*I 




010 5 

P002F 

68 OB 



STA* 

0VSTTS*1 

OUTPUT 



01 0 6 

P 0 0 3 0 

5310 



RTJ* 

MESG 



0107 

P0031 

4C2C 



ALF 

1,L , 

L, XX FAILED YY 

( ZZ ZZ ? 

010 8 

P0032 

00 00 


ERLU 

ADC 

0 

ACTION 



0109 

P 0 0 3 3 

2046 



ALF 

4 , FAILED 





P 0 0 3 4 

41 49 









PD 0 3 5 

4C45 









P0036 

4420 








0110 

P0 037 

0 0 0 0 


ERNUH 

NUM 

Q 

SPACE , 1 



0111 

P0038 

2028 



NUN 

$2028 



0112 

PO 039 

0 0 00 


OVSTTS 

NUM 

0,0 





P0 03A 

0 0 0 0 





A .SPACE 



0113 

P003B 

2920 



NUN 

$2920 



0114 

PO 03C 

ODOO 



NUM 

$0000 




0115 

P 0 030 

41 43 



ALF 

3, ACT ION 





P003E 

5449 









P003F 

4F4E 








0116 

PO 0 40 

0 0 0 0 


MESG 

ADC 

0 




0117 

PQ041 

G3FE 



'LB A* 

MESG 

OUTPUT 11 WORDS 



0118 

PD042 

ocoe 



ENQ 

11 



0119 

POO 43 

580 0 

X 


RTJ 

TELOUT 

LOG ERROR ON TELETYPE 


P 0 04 4 

7FFF 

X 







0120 

P 0 0 45 

C 8 F A 


ACTION 

LQA* 

MESG 




0121 

P 0 0 46 

0 9 0 B 



INA 

11 




0122 

PO 047 

0 C 0 4 



ENQ 

4 




012 3 

POO 48 

5 80 0 

X 


RTJ 

TELOUT 

LOG ERROR ON TELETYPE 


PO 049 

0 0 44 

X 




WAIT FOR INPUT OF 

CU 

OR RP 

012 4 

PG04A 

C8F5 



LD A* 

MESG 

0125 

PQ flu B 

0901 



INA 

1 




012 6 

POOhO 

0 8 42 



CL R 

Q 




0127 

P0 0 4D 

58 00 

X 


RTJ 

QCOM 





PQ04H 

7FFF 

X 







0128 

POO UF 

C8F2 



LG A* 

ERLU 

WAS IT RP 



0129 

P0G50 

98 OB 



SUB* 

RPMASK 



0130 

P 0 05 1 

0111 



SAN 

NOTRP-*-! 




0131 

P0G52 

1BC4 



JMP* 

RRPP 

YES 



0132 

PO 0 53 

C8DE 


NOTRP 

LDA * 

ERLU 

NO, WAS IT CU 



0133 

PO 0 54 

98 0 A 



SUB* 

CUMASK 




0134 

PO 0 55 

0101 



SAZ 

CU-*-l 

NO 



0135 

PO 056 

1 BEE 



JMP* 

ACT ION 



013 6 

P0 05 7 

0 8 44 


CU 

CLP 

A 

YES 

TO 

USER 

0137 

P0 05 8 

1CB0 


JMP* 

IPR0CES1 

RETURN ERROR FLAG 

0138 










0139 

PO 059 

0 0 00 


ASAVEA 

ADC 

0 




0140 

P005A 

00 00 


QSAVEQ 

ADC 

0 




0141 

PO05R 

0 0 0 D 


ISAVEI 

ADC 

0 




0142 

PC05C 

0 0 0 0 


LU 

ADC 

0 




0143 

P005D 

5250 


RPMASK 

ALF 

1 * RP 




0144 

P0 05E 

4355 


CUMASK 

ALF 

i,CU 





**MSOS 4.1**02300101 
**MSGS 4.1**02300102 
**HSOS 4.1**02300103 
**MSOS 4, 1**0 230 0104 
**MSOS 4. 1**0230 0 10 5 
0 230 0 10 6 
**HS0S 4.1**02300 107 
02300108 
02300109 


**MS0S 4.1**02300110 
**MSOS 4.1**02300111 
**HSO S 4.1**02300112 

**MSOS 4.1**02300 113 
02300 114 
0230011 5 


0 230 0 11 6 
02300117 
**MSDS 4.1**02300118 
02300 119 

02300120 
**MSO S 4.1**02300121 
02300122 
02300123 

02300124 
0 230 012 5 
02300126 
**HSOS 4.1**02300127 

0 230 012 8 
02300129 
02300 130 
02300131 
02300132 
02300133 
023 0 0 134 
02300135 
02300136 
02300137 
02300138 
02300139 
02300140 
02300141 
0 23 0 0142 
02300143 
02300144 


o 















IDRIV 
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0145 



* 





02300145 




0146 








02300146 



o ■ 

0147 

P0 05F 

0 0 0 0 

DUMMY 

ADC 

0 

DUMMY DRIVER ENTRY FOR LIST OUTPUT 


0 230 D 147 


o 

0148 

P 0 0 60 

0 A 0 1 


ENA 

1 



02300148 



0149 

P 0 0 61 

1CFD 


JMP* 

( DUMMY 3 

EXTT DUMMY DRIVER 


0230 0 149 




0150 







02300150 



o 

0151 

PO 062 

FFF6 

TABLE 

ADC 

1-MAXLU-i) 

TEST CONST CELL 


02300151 


o 

015? 

P0063 

7FFF X 


ADC 

QPTAPE 

PAPER TAPE READER 

**MSOS 

4.1**0230 0152 



015 3 

POO 64 

7 FFF X 


ADC 

QGA RD 

CARD READER 
MAGNETIC TAPE 

**MSGS 

4. 1**0 23 00153 




0154 

PO 065 

7FFF X 


ADC 

QMTAPE 

**MSOS 

4.1**0230 0154 



o 

015 5 

P 0 0 66 

7FFF X 


ADC 

QMASS 

MASS STORAGE 


02300155 


o 

0156 

PO 067 

0 0 0 0 


ADC 

0 

UNUSED 


02300 156 



015 7 

P 0 0 68 

7FFF X 


ADC 

TTY OUT 

LIST ON TELETYPE 


02300157 




0158 

P3069 

7 FFF X 


ADC 

QPRINT 

LINE PRINTER 

**MSO S 

4.1**02300158 



o 

0159 

P006A 

FFF4 


ADC 

(DUMMY-* ) 

DUMMY DRIVER FOR LIST OUTPUT 


02300159 


o 


0161 

PO 068 

0 0 00 

EA 

NUM 

0 

BINARY TO ASCII NUMERIC 

**M SO S 

4.1**02300161 



o 

0162 

P006C 

0 8 42 


CL R 

Q 


**MS0S 

4.1**02300162 


o 

0163 

PO 06D 

30 00 


DVI 

= N10 

TENS IN A, UNITS IN G 

**MS0S 

4.1**02300163 




PO 06E 

00 OA 










016 4 

PO06F 

0 FC 8 


ALS 

8 


**MSQS 

4.1**02300164 



O ' 

0165 

PO 070 

0 834 


A AQ 

A 

COMBINE 

**MSOS 

4,1**02300165 


o 

D166 

P 0 07 1 

8 0 00 


ADD 

=N$3Q 30 

ADD ASCII NUMERIC BASE 

**MSOS 

4.1**02300166 




PO 072 

3030 










016 7 

P 0073 

1 C F 7 


JMP* 

(BA 3 

RETURN 

**BSQS 

4.1**02300167 



o 

0168 




END 




02300168 


o 


PGM= 

0074 

I 1163 CON 

= 0000 ( 

01 DAT = 0000 C 03 





o 











o 

o 











o 

o 











o 

o 











o 

o 











o 

o 











o 

o 











o 

o 











0 









. 

_ 



_ 
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IORIV 


PAGE 5 


BATES 08/19/99 


: ou i v 

A L E N 

C E S 




0£F .LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

DOOQ 

I 

00FF 

(0002551 

0070* 0080, 

0098, 0 100 

0 036 

CONVRT 

005 A 

(0000901 

0101 


0 037 

BINASC 

0033 

(0000511 

0102, 0104 


0 0 53 

ILU 

0003 

(000003) 

0 0 58 


0 05 4 

MSLU 

0004 

( 00 00 0 4) 

0059 


0 05 5 

GLU 

000 6 

1000006) 

0 0 60 


0 056 

HAXLU 

00 0 8 

( 0000081 

0151 



O 







L. ; 



I DRT V 


PAGE 6 


DATES 

08/19/99 

o 






o 

o 

o 

S Y M B C 

: L S 





• o 

DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

o 


0 029 

T2H7V4 

0 0 1 F 

0 0 29 

0 065 




0 031 

IDRIV 

0003 

0 0 31 , 

0 082 

o 

o 

0 031 

QSA VEQ 

0 0 5 A 

0 0 31, 

0 062, 

0031 

PROCES 

00 0 9 

0031, 

0 0 64, 

0085, 0137 


0 032 

SIB 

00 0 0 

0032 





0 032 

HASS 

0 00 1 

0 032 



o 

0124 

o 

0 Q33 

COLU 

DD02 

0 033 


0073, 0076 

0 03 4 

TABLE 

0062 

0 C 34 , 

0 072 , 


003 5 

MESG 

0040 

0 0 35, 

0106, 

0117, 0120, 


0 0 79 

RRPP 

0017 

0131 

0 074 


o 

o 

0 083 

RTJ 

0016 

0073, 


0091 

ERR 

0020 

0 0 83 

0 08 4 



0 092 

ERRO 

0021 

0 078, 

0132 



0 ID 8 

EPLU 

00 32 

0 097 , 

012 8, 

o 

o 

0110 

ERNUM 

0037 

0 0 94 

0105 


0112 

0 VS ITS 

0039 

0103, 



0120 

ACT ION 

G 0 4 5 

0135 





0 132 

NOTRP 

0053 

0130 



; ° 

o 

0 136 

CU 

0057 

0134 

0 081 


0139 

ASAVEA 

0059 

0069, 



0141 

ISA VEI 

00 5 B 

0 371, 

3 079 

0095 



0142 

IU 

005C 

0068, 

0075, 

o 

o 

0143 

RPMASK 

005D 

0129 



0144 

CUMASK 

0 0 5 F 

0133 

0159 



0147 

DUMMY 

0 05F 

0 149, 

0167 



0161 

BA 

0 06 B 

0 0 93, 

0096, 

• o 

o 






o 







o 

o 







o 

o 







; O 

o 







o 

o 







o 


o 


o 


PAGE 


DATES 08/19/99 


G 


G 

idriv 


o 

E X T E R 

N A L S 


o 

BEF • LINE 

NAME 

VALUE 


0038 

IN 

ooo e 


0 038 

QPTAPE 

0 0 63 


0 033 

QC A RD 

006 4 


0 038 

QMTAPE 

0065 


0 038 

QM ASS 

00 6 6 


0 0 39 

TTY OUT 

006 8 


0039 

QPRINT 

0069 

Q 

0 039 

QCOM 

0 04 E 


0 0 40 

TELOUT 

0049 


0 041 

IS A'V 

0029 


O 


O 

o 

o 

o 

o 

o 

o 

o 


7 


REFERENCED AT LINE NUMBER 


0 0 63 


0 152 

0153 

0154 


0 155 


0157 


0158 


0127 


0119, 
0 0 99 


0123 


D 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

o 


o 


TnPTi/ 


PAGE 


8 


DATE: 08/19/99 



o 

o 

o 

o 

o 

o 


GOLU 0033 
ERRO 0092 
HASS GD32 
QKTAPE 0 038 
TELOUT 0040 


CONVRT C 0 3 6 
I 00 0 0 

MAXLU 0056 
QPRINT 0039 
TTYOUT 0039 


CU 0136 

I2MZV4 0029 
HESG 0035 

QFTAPE 0 038 


C UM ASK 0144 
IDRTV 0031 
HSLU 0054 
aSAVER 0031 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


